Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Das Dritte gleiche!
Autor: unbekannt
Datum: 18.01.03 19:05
Private Sub cmdupdate_Click() Dim db As Database Dim jn As String Dim dbfile As String Dim tabelle As Recordset If ja.Value = True Then jn = "Ja" Else jn = "Nein" End If file = App.Path + "\test.mdb" Set db = DBEngine.OpenDatabase(file, False, False) Set tabelle = db.OpenRecordset("User") tabelle.AddNew tabelle("User") = Text1.Text tabelle("Abgestimmt") = jn tabelle.Update tabelle.Close db.Close Set tabelle = Nothing Set db = Nothing End Sub 0

Datenbank- die dritte	271	Samson	18.01.03 18:49
Re: Datenbank- die dritte	184	unbekannt	18.01.03 18:52
Re: Datenbank- die dritte	187	Samson	18.01.03 19:00
Das Dritte gleiche!	189	unbekannt	18.01.03 19:05
Re: Das Dritte gleiche!	192	Samson	18.01.03 19:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen