CyriQMedlem sedan maj 20025 inlägg kod:
-----
Dim Connect As New ADODB.Connection
Dim Recset As New ADODB.Recordset
file = App.Path + "\data\colt.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file
SQL = "SELECT * FROM losen"
Recset.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until Recset.EOF
adress = Recset("losen")
Recset.MoveNext
Loop
Recset.Close
Connect.Close
---
får felkoden: compile error
user-defined type not defined
ado är förbockad i references och ado i components e det också.
ok den gör inget speciellt men har inte hunnit längre...
JonMedlem sedan juli 20011 304 inlägg Hmm... är det all kod som finns eller finns det nåt mer du kan visa?
Blir det bara fel när du försöker kompilera eller även när du kör?
CyriQMedlem sedan maj 20025 inlägg det är allt för tillfälligt, har inte haft tid till mer. Det blir fel även om jag kör det.... fattar inte vad som e fel......
UlfTMedlem sedan maj 20018 027 inlägg För att kolla att du har alla referenserna rätt för ADODB, kan du pröva om ADODB kommer upp i den meny som dyker upp efter ord som "As" och "New" i variabeldeklarationerna. Funkar det så ligger ditt fel någon annanstans.
CyriQMedlem sedan maj 20025 inlägg får felet runtime error 91:
Object variable or With block variable not set...
@ndersMedlem sedan juni 200032 969 inlägg Hur ser din kod ut nu då?
CyriQMedlem sedan maj 20025 inlägg samma som innan fast :
Dim Connect As ADODB.Connection
Dim Recset As ADODB.Recordset
funkade bättre då.. kom lite längre...
UlfTMedlem sedan maj 20018 027 inlägg Ok, då har du deklarerat vilka slags objekt som "Connect" och "RecSet" ska peka på. Men du måste skapa objekten för att kunna använda dem. Det kan du göra på följande vis:
Set Connect = New ADODB.Connection
Set Recset = New ADODB.Recordset
Först då existerar objekten och kan användas.
