Udskriv og slet poster fra db

'** 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

Private Sub Form_Load()
'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM Tilbud"
    Set rs = Conn.Execute(strSQL)

    MsgBox (rs("ton"))

    Conn.Close
End Sub

//>Rune

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

//>Rune

Her har du det hele:

'** 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)

    rs("navn")

    Conn.Close

'** Indsætning **
    Connection
    sql = "Insert Into Bruger(Tabel1, Tabel2, Tabel3, Tabel4,Tabel5, Tabel6, Tabel7, dato) Values('"
    sql = sql & Text1.Text & "','"
    sql = sql & Text2.Text & "','"
    sql = sql & Text3.Text & "','"
    sql = sql & Text4.Text & "','"
    sql = sql & Text5.Text & "','"
    sql = sql & Text6.Text & "','"
    sql = sql & Text7.Text & "','"
    sql = sql & Text8.Text "')"

conn.execute(sql)
    Conn.Close

'** Updatering **
      Connection
      strSQL = "UPDATE tabel SET efternavn = '" & Text1.Text & "' WHERE navn = '" & Label1.Caption & "'"
      Conn.Execute (strSQL)
      Conn.Close

syntax:
Update tabelnavn Set kolonne1 = 'værdi1' , kolonne2 = 'værdi2' Where betingelse

'** Sletning **
    Connection
    strSQL = "DELETE * FROM efternavn WHERE  navn = '" & Label1.Caption & "'"

syntex:
    Delete from tabelnavn where betingelse

//>Rune

Rune > Jeg tror du misforstod mit spørgsmål. Jeg vil gerne have udskrevet alle posterne (ex. i en listbox)... Måske med en for--next:
for each post in recordset
  list1.additem rs("felt")
next

Kan man det?
Det skal lgie siges, at jeg benytter en MySQL-database, hvis det gør nogen forskel...

Well, så gør du bare sådan her:

'** 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={mySQL}; Server=ServerNavn; Option=16834; Database=DatabaseNavn;" 
  End Function

Private Sub Form_Load()
'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM Tilbud"
    Set rs = Conn.Execute(strSQL)
 
  While Not rs.EOF
    ListBox1.Add rs("feltnavn")
  rs.MoveNext()
  Wend

    Conn.Close
End Sub

//>Rune

SUPAnice Rune, you are teh win til alt!!!

MVH Christian

:)
Th 4 Poinz

//>Rune