Schoenen guten Abend. Wieder mal hab ich ein Problem und hoff es kann mir wer helfen..
Ich moecht verschiedene Daten aus Textfeldern in eine MySql - Tab. eintragen.
Die Felder in der Sql-Tab. haben als Typ varchar.
Ich verwende folgenden Code:
Ab und zu geht das Eintragen gut und es erscheint die Bestaetigungs-
nachricht, aber ab und zu scheint ihm irgendeine Eingabe nicht zu passen,
und es kommt dann ein Error "Die Operation erzeugte in mehreren Schritten
Fehler - ueperpruefen sie die eingetragenen Werte" oder so aehnlich..
Bis vor Kurzem konnte ich immer einwandfrei eintragen, als ploetzlich immer
wieder die Fehlermeldung kam.
Weiss wer wo der Fehler liegt.. Ich bedank mich schon mal fuer
eure zahlreichen Antworten! Ilona
Ich moecht verschiedene Daten aus Textfeldern in eine MySql - Tab. eintragen.
Die Felder in der Sql-Tab. haben als Typ varchar.
Ich verwende folgenden Code:
Code:
Private Function Insert()
rsmon.AddNew
rsmon("mon_regnr") = txtregnum.Text
rsmon("mon_tit") = txttit.Text
rsmon("mon_ubi") = txtubi.Text
rsmon("mon_cla") = txtcla.Text
rsmon("mon_ase") = txtass.Text
rsmon("mon_notd") = txtnotd.Text
rsmon("mon_aut") = txtaut.Text
rsmon("mon_edit") = txtedit.Text
rsmon("mon_tut") = txttut.Text
rsmon("mon_anopr") = txtanopr.Text
rsmon("mon_des") = txtdes.Text
rsmon("mon_lugpb") = txtlugpb.Text
rsmon("mon_pag") = txtpag.Text
rsmon("mon_res") = txtres.Text
rsmon("mon_doc") = txtdoc.Text
rsmon.Update
End Function
Private Sub cmdInsert_Click()
MousePointer = 13
rsm.MoveFirst
On Error GoTo Errhandler
rsm.Find ("mon_regnr = '" & txtregnum.Text & "'")
If rsm.EOF Then
If txtregnum.Text = "" Then
MsgBox "No entrò un numero de registro!", 1 + 64, "Mensaje del Sistema"
MousePointer = 0
Else
Call Insert
MsgBox "Entrar los datos estaba exitosa!", vbInformation, "Mensaje del Sistema"
rsmon.Update
MousePointer = 0
End If
Else
MsgBox "Ya existe una revista con este numero de registro!", 1 + 64, "Mensaje del Sistema"
MousePointer = 0
End If
Exit Sub
Errhandler:
MsgBox "Ha ocurrido un error!", 1 + 64, "Mensaje del Sistema"
MousePointer = 0
End Sub
Ab und zu geht das Eintragen gut und es erscheint die Bestaetigungs-
nachricht, aber ab und zu scheint ihm irgendeine Eingabe nicht zu passen,
und es kommt dann ein Error "Die Operation erzeugte in mehreren Schritten
Fehler - ueperpruefen sie die eingetragenen Werte" oder so aehnlich..
Bis vor Kurzem konnte ich immer einwandfrei eintragen, als ploetzlich immer
wieder die Fehlermeldung kam.
Weiss wer wo der Fehler liegt.. Ich bedank mich schon mal fuer
eure zahlreichen Antworten! Ilona