Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

komischer fehler!!!
Autor: eclere
Datum: 06.05.02 23:43
hallo, ich hab da grad echt ein problem. ich würde ganz gerne in meine datenbank einträge hinzufügen. ich denk der datenbankzugriff stimmt auch. irgendwas anderes passt nicht. nur ich bekomme einfach nicht heraus was. ich habs schon schrittweise mit f8 probiert, und da klappt es immer. nur wenn ich es dann normal laufen lassen will nicht. ich poste mal etwas code: 'On Error GoTo fehler Dim edit As Boolean Dim NeueKat As Boolean 'textboxen usw. auf einträge überprüfen If frmDbBrowser.txtKategorie.Text = "" Then MsgBox "Kein Titel eingetragen!", vbInformation, "Eingabefehler" Exit Sub End If If frmDbBrowser.cmbKategorien.Text = "Alle" Then MsgBox "Keine Kategorie gewählt!", vbInformation, "Eingabefehler" Exit Sub End If If frmDbBrowser.txtSource.Text = "" Then frmDbBrowser.txtSource.Text = "Kein Eintrag" End If If frmDbBrowser.txtErklärung.Text = "" Then frmDbBrowser.txtErklärung.Text = "Kein Eintrag" End If 'prüfen ob kategorie vorhanden ist Datei = App.Path & "Data.mdb" Set db = New ADODB.Connection strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Datei db.Open strdb SQL = "SELECT * FROM Kategorien WHERE KategorieKat LIKE '" & frmDbBrowser.cmbKategorien.Text & "'" Set rst = New ADODB.Recordset rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.Open SQL, db ' neue kategorie anlegen If rst.RecordCount = 0 Then rst.AddNew NeueKat = True rst!SpracheKat = frmDbBrowser.cmbSprache.Text rst!KategorieKat = frmDbBrowser.cmbKategorien.Text rst.Update frmMain.Util.VerzeichnisAnlegen (App.Path & "SourceCodes\" & sprachcode & "\" & frmDbBrowser.cmbKategorien.Text) ' keine kategorie anlegen MsgBox "neue kat" Else NeueKat = False MsgBox "kat vorhanden" End If rst.Close Set db = New ADODB.Connection strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & Datei & ";" db.Open strdb With frmDbBrowser SQL = "SELECT * FROM Source WHERE Titel LIKE '" & .txtKategorie.Text & "'" rst.Open SQL, db If rst.RecordCount = 0 Then MsgBox "neuer eintrag" edit = False rst.AddNew rst!Getestet = .chkGetestet.Value rst!SpracheSource = .cmbSprache.Text rst!KategorieSource = .cmbKategorien.Text rst!titel = .txtKategorie.Text rst!Source = .txtSource.Text rst!Erklärung = .txtErklärung.TextRTF rst!Pfad = .lblPfad.Caption rst!Datum = Format(Now, "d.mmmm yyyy - Zeit: h:nn:ss") Else edit = True MsgBox "editieren" rst!Getestet = .chkGetestet.Value rst!SpracheSource = .cmbSprache.Text rst!KategorieSource = .cmbKategorien.Text rst!titel = .txtKategorie.Text rst!Source = .txtSource.Text rst!Erklärung = .txtErklärung.Text rst!Pfad = .lblPfad.Caption End If rst.Update rst.Close nich wundern wegen der masgboxen, die hab ich rein um irgendwie rauszubekommen was grad so passiert. aber es kommt keine einige. gruss eclere

komischer fehler!!!

69

eclere

06.05.02 23:43

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