Oprette forbindelse til Access

Det er refferencen Microsoft ADO Connection 3.xx

Det har jeg ikke noget der hedder.

Kigger lige.....

Sorry byttede lidt rundt på noget.....

Den hedder Microsoft DAO 3.xx Object Library

Du kan også tilføje et dataenviroment til dit projekt

Er det ikke lidt overkill og tilføje et dataenviroment når han bruger SQL ?
Så tager dén vel en hel masse andet med når han compiler sit projekt ?

Prøv om du kan bruge dette, det skulle være lige til:

Private Sub CommandButton1_Click()
tlfnr = InputBox("indtast tlfnr")
        Dim objConn As ADODB.Connection
        Dim objRS As ADODB.Recordset
        Dim strConnString As String
        Dim strSQL As String
   
        Set objConn = New ADODB.Connection
        Set objRS = New ADODB.Recordset
       
        strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\dokumenter\kartoteker.MDb"
        objConn.Open strConnString
       
        strSQL = "SELECT Kundenr,Navn1, Adresse, postby FROM kundekartotek WHERE tlfnr = " & tlfnr
        objRS.CursorType = adOpenStatic
        objRS.Open strSQL, objConn
       
      ListBox1.ColumnCount = 4
     
  If Not objRS.EOF Then
  I = 0
  Do While Not objRS.EOF
   
    With objRS
        ListBox1.AddItem objRS("Kundenr")
        ListBox1.List(I, 1) = objRS("Navn1")
        ListBox1.List(I, 2) = objRS("Adresse")
        ListBox1.List(I, 3) = objRS("postby")
        I = I + 1
        .MoveNext
      End With
    Loop
   
    objRS.Close
    objConn.Close

    Else
        MsgBox "tlfnr. findes ikke"
        End
    End If
End Sub

//>Rune

tubber -> det var lige præcis det (Microsoft DAO 3.xx Object Library). Der skulle dog også tilføjes Microsoft ActiveX Data Objects.

Lægger du lige et svar?

Det kommer her :)

ActiveX tingen har dog ikke noget med databaseconnection at gøre, der har du noget andet der kræver det, eller også er det en ActiveX du har gang i :)

Ja, det lyder mærkeligt, men det er først, når jeg har valgt ActiveX-tingen, at den kender "dim as new connection". Jeg ved ikke hvordan det kan være, men nu virker det i hvert fald.

Mvh.