Blumeheinz
Grünschnabel
Ich möchte in VB ein Buch Verwaltungsprogramm schreiben, das auf eine Access Datenbank zugreift, in der alle Bücher stehen. Man soll auch neue hinzufügen können. Wie geht das?
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Dim DB As Connection
Dim RS As Recordset
Private Sub Form_Load()
Set DB = New Connection
Set RS = New Recordset
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "C:\DeineDatenbank.mdb"
RS.Open "SELECT * FROM DeineBücherTabelle, DB, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
RS.Close
DB.Close
End Sub
RS.AddNew "Bücher", "Buch1"
RS.Update