Hej!

I min VBA-kod använder jag

sConnString = "ODBC;DSN=Metso;UID=" & sID & ";PWD=" & sPwd & ";"

som funkar bra i

With ActiveSheet.QueryTables.Add(Connection:=sConnString, Destination:=Range("A4"))
.CommandText = Array(sSQLstring)
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

men hur kan jag skriva sConnString så att jag kommer åt en AS400 utan att lägga upp en DSN?

I en annan miljö funkar denna (men det är ju SQL Server som driver):

sConnString = "ODBC;DRIVER=SQL Server;SERVER=" & sServer & ";UID=" & sID & ";PWD=" & sPwd & ";APP=Microsoft Office XP;WSID=;DATABASE=" & sDatabase & ";Network=dbmssocn;"

där sServer är en IP-adress till en AS400 (sServer, sID och sPwd är parametrar i ett kalkylark som jag hämtar in till VBA-koden).

Finns det några bra exempel på databaskopplingar från VBA med olika "providers"?

mvh jonas

The Code Project - ADO Connection Strings - Database:
http://www.codeproject.com/database/connectionstrings.asp?df=100&forumid=3917&exp=0&select=613455

OLE DB Provider for AS400:
<code>
strConnect = "Provider=IBMDA400;Data source=myAS400;User Id=myUsername;Password=myPassword;"
</code>

Microsoft länk som kan vara intressant:

Using the OLE DB Provider for AS/400 and VSAM:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/his/htm/_sna_using_the_ole_db_provider_for_as_400_and_vsam_oledb.asp

Tack men jag fick inte exemplet att funka...

Är det några speciella förutsättningar för att använda sig av "Provider=IBMDA400"?

Jag skrev

'sConnString = "Provider=IBMDA400;Data source=123.456.789;User Id=abc;Password=def;"

Fattas det citationstecken eller liknande i strängen?

Måste själva SQL-anropet skilja sig från det jag använder i With-satsen?

Det känns som det är något grundläggande jag inte förstår...

Tacksam för fortsatt hjälp!!

Jag fann följande svara på nätet.

MC Press Online - Installing IBMDA400 provider:
http://www.mcpressonline.com/mc?14@80.qlprbLWgFU6.0@.5bfb5afe/12

MC Press Online - The ODBC and OLE DB Strategy Guide:
http://www.mcpressonline.com/mc?14@80.qlprbLWgFU6.1@.214a2e79

Förlåt om jag kan tolkas som tyken, men väntar du på att få svaret serverat på ett silverfat?

Har du sökt på google om IBMDA400 eller Installing IBMDA400? Om du inte själv sökt svaret på din fråga ställer jag mig frågan varför? Skall jag tolka detta som lathet?

Att få såna här svar Gratis tycker jag borde ge dig dåligt samvete.

Sponsra genast Pellesoft genom att bli bonusmedlem. Du kommer "tjäna" på att detta forum existerar. Dess existens är beroende av Pelle. Så stödj Pelle och hans insats att hålla forumet vid liv.

Jag ställer ju upp med gratis svaren. ;o)