Hej.
Jag har inte använt VB så mycket och vill nu skapa en databas koppling. Jag har gjort det i ASP tidigare men lyckas inte i VB. Är det något speciellt jag ska tänka på i jämförelse med kopplingen i ASP?

Hej

Så här har jag gjort.
Min koppling ligger i en egen modul som jag kallar dbConnect.
'Deklarera två globala variabler så att vi kommer åt dem senare
Global con As ADODB.Connection
Global rst As ADODB.Recordset

' Min sub för att koppla till databasen
Public Sub InitADO()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

' Tar fram sökvägen till mappen som programmet är i.
dbPath = App.Path & "\db\whattodo.mdb" ' Ta fram sökvägen till databasen, samma som MapPath i ASP
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPath

On Local Error Resume Next
con.Open ConnectionString
If con.Errors.Count > 0 Then
MsgBox "anslutningen misslyckades!" & vbCrLf & _
con.Errors(0).Description
End If

End Sub
' Här stänger jag kopplingen.
Public Sub ClearADO()
Set rst = Nothing
Set con = Nothing
End Sub

För att anropa kopplingen så skriver du dbConnect.InitADO
För att stänga så skriver du dbConnect.ClearADO

Anna-Karin.

hmm..du måste också sätta en referens på ADO eller något i VB...

/bj

Jag har fått det att fungera
Tack alla