Hvordan opretter jeg en connection ved hjælp af DAO

Her er et lille ex. du kan kigge på, si' endelige til hvis du har brug for mere c",)

Dim rsTable As DAO.Recordset
Dim strSQL As String

strSQL = "Select * From [TabelName]"  '-> SQL String
Set rsTable = CurrentDb.OpenRecordset(strSQL) '-> Open Database Recordset based on SQL string

Jeg får ikke dette til at virke. Mangler der ikke en sti til den fysiske placering af databasen?

Her er koden jeg har brugt:
Private Sub CmdNyVareliste_Click()

Dim rsTable As DAO.Recordset
Dim strSQL As String

strSQL = "Select * From tblVare"  '-> SQL String
Set rsTable = CurrentDb.OpenRecordset(strSQL) '-> Open Database Recordset based on SQL string

End Function

Mit kode ex. forudsætter at den pågældende DB allerede er åben/aktiv. Det er derfor jeg bruger "CurrentDB", men hva skal du bruge koden til, altså hvordan skal du bruges?

P.s. Du skal lige ha' en "End Sub" i stedet for "End Function"

Har du for resten husket at lave en Reference til DAO objektet?

Hvis du ønsker at åbne en anden DB end den du befinder dig i, kan du evt. bruge følgende:

Set rsTable = DBEngine.Workspaces(0).OpenDatabase("DataBaseNavn.mdb")

Forresten hvilken version Access har du?

Jeg har Office XP.
Jeg ved ikke hvordan man laver en reference til DAO objektet, men jeg har været inde i 'Data Sources (ODBC)' og oprettet forbindelse der.

Det er inde i selve VB, der går du ind under Tools -> References der skal du så lige finde "Microsoft DAO 3.6 Object Library" og sætte et flueben i den

Kan du få skidtet til at virke? c",)

References fandt jeg her: Projekt -> References
Det virker ikke!
Fejlmeddelelse:
Run-time error '424':
Object required

Hej igen,

ked af at jeg ikke har fået svaret igen, tog lige en forlænget weekend i sommerhus c",)

Kan du se hvor fejlen opstår? og hvad foretager du dig, eller hvad vil du gerne foretage dig efter du har oprettet en DAO forbindelse?

Hvis du har mulighed for at sende DB'en til mig, kan jeg godt lige titte den igennem, og se om jeg ikke kan få skidtet til at virke c",)

Har du evt. prøvet med en ADO forbindelse? - se evt. ex. nedenfor som godt nok bruges til at åbne et Excel-recodset... Husk igen at lave en reference til "Microsoft ActiveX Data Objects..."

    Dim rsData As ADODB.Recordset
    Set rsData = New ADODB.Recordset
   
    strVAR = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Excel\ImportTemplate.xls;" & _
            "Extended Properties=Excel 8.0;"                    ' Connection String
    strSQL = "SELECT * FROM [Sheet1$A1:AO" & AnalysesNO + 1 & "]"  ' SQL String
   
    rsData.Open strSQL, strVAR, adOpenForwardOnly, adLockReadOnly, adCmdText ' Open Excel Recordset
   
    If rsData.EOF And rsData.BOF Then GoTo Exit_Import_Excel_Click
    rsData.MoveFirst                    ' Set Pointer at Start of Recordset

Hej. jeg prøver igen først senere i aften, så jeg vil formentligt melde tilbage om det virker en gang i morgen :-)

brug ado den er bedere....

dim RS as New ADODB.Recordset
dim CON as New ADODB.Conection
dim sql as string

CON.Conectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource= & app.path & "Database.mdb;"
con.opencon

sql = "Select * from Tabelnavn"
rs.open sql, con, adopendynamic

text1.text = RS("ColonneNavn")

Hejsa, har du fået det til at virke? c",)