Bagaimana untuk mengemas kini nilai rekod pangkalan data dalam VB

Cara mengubah suai nilai yang direkodkan dalam pangkalan data dengan VB

Antara kaedah dari rakan Tao di atas:

sSQL=＂kemas kini medan set jadual=20＂

hendaklah ditukar kepada:

sSQL=＂kemas kini set jadual field1=20,...,field2=20 di mana id=3＂

Tetapi jika tiada rekod 3 dalam pangkalan data anda, ralat akan berlaku.

Ada cara lain untuk menggunakan set rekod:

malapkan cn sebagai adodb.connection baru

malapkan rs sebagai adodb.recordset baharu

rs.open "select * from database where id=3",adOpenDynamic, adLockOptimistic, -1

jika bukan rs.eof maka

rs ("Bidang 1 yang anda mahu ubah suai") = "Nilai khusus 1"

...

rs（＂Medan n＂ anda mahu ubah suai）=＂Nilai khusus n＂

rs.update

tamat jika

rs.close

Saya biasanya melakukan ini semasa mereka bentuk Walaupun ia lebih menyusahkan, ia pada asasnya bebas ralat Selain itu, adalah lebih baik untuk menambah ID semasa mereka bentuk pangkalan data, untuk memastikan keunikan data.

VB Access pengubahsuaian pangkalan data

Sub Perintah Peribadi1_Klik() 'Pinjam buku'

Malapkan jc Sebagai Boolean

jc = Salah

Adodc1.Recordset.MoveFirst

Untuk i = 1 Kepada Adodc1.Recordset.RecordCount

Jika Text1.Teks = Adodc1.Recordset.Fields(1).Value Dan Adodc1.Recordset.Fields(4).Value = True Then

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

Adodc1.Recordset.Update

jc = Benar

Tamat Jika

Adodc1.Recordset.MoveNext

Seterusnya i

Jika jc Maka MsgBox ＂Peminjaman berjaya＂ Lain MsgBox ＂Buku telah dipinjam atau buku itu tidak wujud＂

Tamat Sub

Sub Perintah2_Klik() 'Pemulangan buku'

Malapkan hs Sebagai Boolean

hs = Salah

Adodc1.Recordset.MoveFirst

Untuk i = 1 Kepada Adodc1.Recordset.RecordCount

Jika Text1.Teks = Adodc1.Recordset.Fields(1).Value Dan Adodc1.Recordset.Fields(4).Value = False Then

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

Adodc1.Recordset.Update

jc = Benar

Tamat Jika

Adodc1.Recordset.MoveNext

Seterusnya i

Jika jc Kemudian MsgBox ＂Berjaya kembali＂ Lain MsgBox ＂Buku sudah ada di perpustakaan atau buku itu tidak wujud＂

Tamat Sub

Sub Borang Persendirian_Muat()

Teks1.Teks = ＂＂

Adodc1.Kelihatan = Palsu

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

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "pilih * daripada buku"

Adodc1.Refresh

Tamat Sub

Atas ialah kandungan terperinci Bagaimana untuk mengemas kini nilai rekod pangkalan data dalam VB. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!