Hejsan,

undrar varför jag får detta felmeddelandet:

Run-time error '91': Object Variable or With block variable not set

När jag kör denna kod:

Global Connect As ADODB.Connection
Global RecSet As ADODB.Recordset

Public Sub InitADO()
Set Connect = New ADODB.Connection
Set RecSet = New ADODB.Recordset

ConnectString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ = H:\Kurser\Programmering C\Databasapp\databas.mdb"

Connect.Open ConnectString
MsgBox "Du är ansluten till Databasen"
End Sub

Public Sub Fill_Combo_Names()
Set RecSet = Connect.Execute("SELECT person_namn FROM personer")
Do While Not RecSet.EOF
Form1.Combo1.AddItem RecSet("person_namn")
RecSet.MoveNext
Loop
End Sub

Mvh
Emanuel

Hej,

du har glömt set framför:

ConnectString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ = H:\Kurser\Programmering C\Databasapp\databas.mdb"


/Emma

Va, man behöver väl inte Set när man ska sätta textvärden? Nej det måste vara nåt annat, såvida det är VB vi pratar om.

/Jörgen

Är du säker på att du kör InitADO före Fill_Combo_Names

/Jörgen

Att använda globala variabler gör det svårt att felsöka. Det är därför jag är emot det.

Jag chansar att det beror på att Fill_Combo_Names kör före InitADO. Därför är Connect inte satt när executmetoden anropas på Connect.

Ett enkelt sätt att säkerställa att InitADO har körts är att lägga till raden 'If Connect Is Nothing Then InitADO' i början av Fill_Combo_Names suben, Naturligtvis utan '-tecknen. Sen finns det ju flexiblare lösningar utan att använda globala variabler.


Public Sub Fill_Combo_Names()
If Connect Is Nothing Then InitADO
Set RecSet = Connect.Execute("SELECT person_namn FROM personer")
Do While Not RecSet.EOF
Form1.Combo1.AddItem RecSet("person_namn")
RecSet.MoveNext
Loop
End Sub

//
Janne

Förlåt jag som var lite snabb när jag läste igenom. Såg bara att det var samma
variabelnamn inledningsvis, missade helt String-delen. Ber om ursäkt. =)

/Emma