So aktualisieren Sie den Wert eines Datenbankeintrags in VB

So ändern Sie die in der Datenbank aufgezeichneten Werte mit VB

Zu den Methoden des oben genannten Taoistenkollegen:

sSQL=＂Tabellensatzfeld aktualisieren=20＂

sollte geändert werden in:

sSQL=＂Tabellensatz Feld1=20,...,Feld2=20 aktualisieren, wobei ID=3＂

Aber wenn in Ihrer Datenbank kein Datensatz 3 vorhanden ist, tritt ein Fehler auf.

Es gibt eine andere Möglichkeit, Recordset zu verwenden:

cn als neue adodb.connection dimmen

RS als neues adodb.recordset dimmen

rs.open „wählen Sie * aus der Datenbank aus, wobei die ID=3 ist“, adOpenDynamic, adLockOptimistic, -1

wenn nicht rs.eof dann

rs („Feld 1, das Sie ändern möchten“) = „Spezifischer Wert 1“

...

rs（＂Feld n＂, das Sie ändern möchten）=＂Spezifischer Wert n＂

rs.update

Ende, wenn

rs.close

Normalerweise mache ich das beim Entwerfen, obwohl es im Grunde fehlerfrei ist. Außerdem ist es am besten, beim Entwerfen der Datenbank eine ID hinzuzufügen, um die Eindeutigkeit der Daten sicherzustellen.

VB Access-Datenbankänderung

Private Sub Command1_Click() 'Buch ausleihen'

Dim jc As Boolean

jc = Falsch

Adodc1.Recordset.MoveFirst

Für i = 1 To Adodc1.Recordset.RecordCount

Wenn Text1.Text = Adodc1.Recordset.Fields(1).Value und Adodc1.Recordset.Fields(4).Value = True Then

Adodc1.Recordset.Fields(4).Value = Nicht Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = Wahr

Ende wenn

Adodc1.Recordset.MoveNext

Als nächstes

If jc Then MsgBox ＂Ausleihe erfolgreich＂ Else MsgBox ＂Das Buch wurde ausgeliehen oder das Buch existiert nicht＂

End Sub

Private Sub Command2_Click() 'Buch zurückgeben'

Dim hs As Boolean

hs = Falsch

Adodc1.Recordset.MoveFirst

Für i = 1 To Adodc1.Recordset.RecordCount

Wenn Text1.Text = Adodc1.Recordset.Fields(1).Value und Adodc1.Recordset.Fields(4).Value = False Then

Adodc1.Recordset.Fields(4).Value = Nicht Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = Wahr

Ende wenn

Adodc1.Recordset.MoveNext

Als nächstes

Wenn jc, dann MsgBox ＂Rückgabe erfolgreich＂ Else MsgBox ＂Das Buch befindet sich bereits in der Bibliothek oder das Buch existiert nicht＂

End Sub

Private Sub Form_Load()

Text1.Text = ＂＂

Adodc1.Visible = False

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂mybook.mdb;Persist Security Info =false＂

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = „select * from book“

Adodc1.Refresh

End Sub

Das obige ist der detaillierte Inhalt vonSo aktualisieren Sie den Wert eines Datenbankeintrags in VB. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!