acces database

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set rs = Conn.Execute (strSQL)

  While Not rs.EOF
    List1.AddItem rs("navn")
  rs.MoveNext()
  Wend

    Conn.Close

//>Rune

Hej canker

Der er en del spg. her på eksperten som omhandler database forbindelse mm.
http://www.eksperten.dk/kat/5/?searchtype=txt&words=database&method=and&sort=score&catid=5

Her er 2 du måske kan bruge:
http://www.eksperten.dk/spm/226445
http://www.eksperten.dk/spm/376508

Thx 4 Poinz

//>Rune