Fel vid Databas öppning (.mdb)

[sww]

Tja!

Kör VB 6.0. Databasen är gjord i Access 2003.

 

Får följande felmeddelande: User-defined type not defined.

Felet är markerat vid 'New ADODB.Connection'

 

Koden:

[color="#0000ff"]Private[/color] [color="#0000ff"]Sub[/color] Command1_Click()
[color="#0000ff"]Dim[/color] Connect
[color="#0000ff"]Dim[/color] Rs As Object

[color="#0000ff"]Set[/color] Connect = [color="#0000ff"]New[/color] ADODB.Connection
        Connect.Provider = [GRÅ]"Microsoft.JET.OLEDB.4.0"[/GRÅ]
        Connect.ConnectionString = App.Path & [GRÅ]"/db.mdb"[/GRÅ]
        Connect.Open

[color="#0000ff"]Set[/color] Rs = [color="#0000ff"]New[/color] ADODB.Recordset
    Rs.CursorType = adOpenDynamic
    Rs.LockType = adLockOptimistic

    SQL = [GRÅ]"SELECT * FROM test"[/GRÅ]
    Rs.Open SQL, Connect

    Label1.Caption = Rs([GRÅ]"test"[/GRÅ])
[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

Antar att det är nåt vid Dim stället men jag kommer inte på vad det ska vara!? hjälp!!

 

[inlägget ändrat 2006-11-04 15:18:57 av sww]

[Anjuna Moon]

Har du lagt till en referens till ADO i ditt projekt då?

 

[sww]

Hmm,,,jag har läst mycket på forumet om referenser m.m. Jag gick in i Project>Reference och kryssade för allt som har med access, ado jet, ole etc, men problemet kvarstår. Eller var jag inte på rätt ställe?

 

[Anjuna Moon]

Det du ska kryssa för under References är "Microsoft ActiveX Data Objects 2.8 Library".

Om du har versioner lägre än denna rekommenderar jag att du uppdaterar via nedanstående länk:

http://www.microsoft.com/downloads/details.aspx?DisplayLang=en&FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c

 

[sww]

Tack så mycket. Det löste allt!