VB 6.0 Acces Connection

Hej jannick281090
Jeg bruger denne til at hente fra db Acces
til listebox



Private Sub Form_Load()
  Set Conn = CreateObject("ADODB.Connection")
  Set Rs = CreateObject("ADODB.RecordSet")

  Call DB_List
End Sub
Public Function DB_List()
Dim Rs  As Object
Dim Conn As Object

Dim DSN  As String
Dim strSQL  As String

  Set Conn = CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & "F:\db\Test.mdb"
  Conn.Open DSN

  strSQL = "SELECT * FROM Teccon"
  Set Rs = Conn.Execute(strSQL)

  Do
    List1.AddItem Rs("Dato")
    List1.AddItem Rs("Kunde")
    List1.AddItem Rs("Projektnr")
    List1.AddItem Rs("Ordrenr")
    List1.AddItem Rs("Beskrivelse")
    List1.AddItem Rs("Projekt_opretter")
    List1.AddItem ""
    List1.AddItem "----------------------------------------------------------------------------------------------------------------"
    List1.AddItem ""
    Rs.MoveNext
  Loop While Not Rs.EOF

  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing

End Function
Private Sub Form_Unload(Cancel As Integer)
  Set Rs = Nothing
  Set Conn = Nothing
End Sub


mvh

mvhansen

Her siger den ved "Conn =":

Private Sub Form_Load()
  Set Conn = CreateObject("ADODB.Connection")

Variable Not Defined

Ligemeget har fundet ud af det nu, smid et svar :)

Her har du et svar

mvh

mvhansen