Database

email?

Hvis du opretter et modul og sætter dette ind:
    Public Conn As New Connection
    Public rs As Recordset
    Public strSQL As String
    Public CLdata(4, 999)
   
Function Connection()
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\codebib.mdb"
End Function

så kan du gøre som følgende:

Her har vi opdatering:
Connection()
strSQL = "UPDATE codes SET code = '" & unQuote(Text1.Text) & "' WHERE name = '" & Label1.Caption & "'"
        Conn.Execute (strSQL)

Her har vi Hentning:
Connection()
strSQL = "SELECT * FROM tabel"
Conn.Execute (strSQL)

Her har vi sletning:
Her har vi opdatering:
Connection()
strSQL = "DELETE * FROM tabel WHERE id=" 5
        Conn.Execute (strSQL)

Held og lykke med det...
//>Rune

Thx 4 Poinz!

//>Rune