Hente fra database, skrive til 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

Indsætning:

'** Indsætning **
    Connection
    strSQL = "INSERT INTO tabel (kolonne1,kolonne2,kolonne3) VALUES ('Rune Nielsen','Medions','www.medions.dk')"
objConn.Execute (strSQL)

men kig denne debat igennem, der har jeg besvaret næsten det hele du har brug for:

http://www.eksperten.dk/spm/267306

//>Rune

Hmm hvordan connecter jeg? Skal jeg lave filen til en exe for at jeg kan hente databasen?

Du tilføjer referencen og skriver flg. kode:

    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

//>Rune

Der er mange måder at gøre det på. De fleste kontroller kan "bindes" til en database, således at fx. en textbox bruges til at vise data fra en database.

Den bedste måde er dog - synes jeg - at gøre som medions beskriver, brug en connectionstring (flere alternativer mulige), og hent det data du vil med et passende SQL-udtryk over i et recordset.

Der er nok det mest stillede spørgsmål, så kik evt. på http://www.eksperten.dk/kat/5?searchtype=txt&words=database&method=and&sort=score&catid=5 for mere inspiration