Kode til at forbinde til accessdatabase

Skal der flere point til?

\' Lav en reference til Microsoft ActiveX Data Objects 2.0
\' I Provider= ... skal du ændre til 3.6 for access97 - 4.0 er til access2000

Private Sub Command1_Click()
  Dim rs As New ADODB.Recordset
  rs.Open \"SELECT * FROM Tabel\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Databaser\\Test.mdb;Persist Security Info=False;\"
  Text1.Text = rs.Fields(1).Value
  rs.Close
  Set rs = Nothing
End Sub

Det ser rigtigt ud, men den brokker sig over at New ADODB.Recordset ikke er et defineret \'user-object\'.
Er det måske fordi jeg sidder med en skod-learning edition?

Du kan også gøre noget andet.

Tilføj referencen Microsoft DAO 3.6 Object Library.

Dim datDBsys As Database
Dim recSystem As Recordset
Dim strSQL As String


Set datDBsys = DBEngine.Workspaces(0).OpenDatabase(<sti til databasen>)
strSQL = \"SELECT * FROM <din tabel>\"
Set recSystem = datDBsys.OpenRecordset(strSQL)

That works!

Du kan teste at connection er ok

Dim datDBsys As Database
Dim recSystem As Recordset
Dim strSQL As String


Set datDBsys = DBEngine.Workspaces(0).OpenDatabase(<sti til databasen>)
strSQL = \"SELECT * FROM <din tabel>\"
Set recSystem = datDBsys.OpenRecordset(strSQL)

msgbox recSystem(\"et felt i din database\"

Du kan teste at connection er ok

Dim datDBsys As Database
Dim recSystem As Recordset
Dim strSQL As String


Set datDBsys = DBEngine.Workspaces(0).OpenDatabase(<sti til databasen>)
strSQL = \"SELECT * FROM <din tabel>\"
Set recSystem = datDBsys.OpenRecordset(strSQL)

msgbox recSystem(\"et felt i din database\")

Har du sat referencen til Microsoft ActiveX Data Objects 2.0 ?

Hej Drenge!
Det virkede sku\'!!!!!

Kaffe >> Jeg kunne ikke finde en Microsoft Activex .... Derfor fik jeg desværre ikke din til at virke

bccinlove >> Din virkede i første forsøg! Det var bare super!!!!

Jeg giver jer begge point, men flest til bccinlove, da du løste mit problem!

Så er alle glade igen igen!

Takker for pointene...