Bindningslös anslutning

[Wippika]

Finns det något som heter så, tror det ???

 

Hur skriver jag om jag inte vill använda ODBC för att göra koppling till databasen.

[Stefan B Karlsson]

Hej.

Svaret beror helt och hållet på vilken datakälla du ska använda dig av.

Men om du tänkter använda dig av t.ex. Access som datakälla och vill "slippa" sätta upp en odbc så kan du peka direkt på filen istället:

 

Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

 

'cnn.Provider = "Microsoft.Jet.OLEDB.3.51"

cnn.Provider = "Microsoft.Jet.OLEDB.4.00"

cnn.Open App.Path & "\dbkunder.mdb"

 

'Redo att arbeta med connectionobjektet eller recordsetobjektet:

 

set rs=cnn.execute("select * from kunder")

eller

rs.open "select * from kunder",cnn

 

osv, osv osv.

 

Ska du använda andra datakällor så blir det andra connectionsträngar.

Providersträngen som var bortremmad gäller för en version av access, medans den andra gäller för en nyare version.

På samma sätt kan du peka direkt mot en SQL-server utan att sätta upp odbc till den först.

 

 

mvh /

Stefan Karlsson

ITmaskinen.se