Update von Daten in einer Datenbank!
lima-city → Forum → Programmiersprachen → Basic
basis
beispiel
bemerkung
date
daten
datensatz
dokument
eingabe
eingegebenen daten
einstellung
fehler
kleine schleife
kriterium
laufzeit
mdb
null
set
tabelle
update
variable
-
HI,
also ich hab folgenden code:
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
dbFile = "C:\Dokumente und Einstellungen\Jambs\Eigene Dateien\sachs\nv_schichtbuch.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("schichtdaten")
'Recordset auf Basis einer SQL-Abfrage erstellen und ?ffnen
Dim SQL As String
Dim rs As Recordset
'Anzeige des Ergebnisses in einer Listbox, wobei einzelne
'Datens?tze des Recordsets bearbeitet werden k?nnen.
SQL = "SELECT * FROM schichtdaten WHERE datum='" & Date & "' and auftragnummer1='" & txt_auftragnr1_1 & "' and teilenummer='" & txt_teilenr1 & "'"
Set rs = Db.OpenRecordset(SQL)
If rs.RecordCount > 0 Then
lbl_id.Caption = rs("id")
End If
Dim SQL_Update As String
Dim rs_Update As Recordset
Tabelle.Edit
Tabelle("mitarbeiter") = "" & txt_ma & ""
'Tabelle("auftragnummer1") = "" & txt_auftragnr1_1 & ""
Tabelle("auftragnummer2") = "" & txt_auftragnr1_2 & ""
Tabelle("auftragnummer3") = "" & txt_auftragnr1_3 & ""
Tabelle("teilenummer") = "" & txt_teilenr1 & ""
Tabelle("fertige_uebernommen") = "" & txt_fertige1 & ""
Tabelle("halbfertige_uebernommen") = "" & txt_halb_ubno1 & ""
Tabelle("halbfertige_uebergeben") = "" & txt_halb_ubge1 & ""
Tabelle("montierte") = "" & lbl_montierte1 & ""
Tabelle("abgelieferte") = "" & lbl_abgefertigte1 & ""
Tabelle("leistung") = "" & txt_leistung & ""
Tabelle("bemerkung") = "" & txt_bemerkung & ""
Tabelle.Update
Das Programm sollte nur den Datensatz updaten wo die auftragnummer, das datum, und die teilenummer mit der eingabe ?bereinstimmen!!!
das problem:
bei mir aktuallieriert er nur den ersten daten satz, also nicht den aktuellen sondern den aller ersten!
wenn ich zum beispiel 9 datens?tze hab und die eingegebenen daten stimmen mit dem 7 datensatz ?berein, sollte er den 7ten aktualliesieren mit den neuen daten, aber er autalliesiert nur den 1ten datensatz!
hoffe ihr k?nnt mir helfen! -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Warum f?hrst Du dein Update nicht ?ber einen SQL Befehl durch?
Was bringt es eine leere Zeichenkette mit einer TextBox zu verbinden??
"" & txt_ma & "" -
ich k?nnt mir denken das der mini trick einen Laufzeit Fehler verhinden kann denn wenn txt_ma = Null ist und man noch min ein "" bzw vbNullString sieht das ganze schon anders aus.
Null ist kein String und kann dazu nicht Konvertiert werden aber vbNullString ist ein String wie es schon die Variable sagt
Und zur L?sung zum Problem...
schreib doch vor dem schreiben eine kleine schleife die bis zu deinem gew?nschten datensatz l?uft
also sowas wie
dim weiter as boolean
do
weiter=true
tabelle.movenext
if tabelle![Kriterium]="Was du brauchst" then weiter=false
loop while weiter -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage