Rumah > Artikel > tutorial komputer > Bagaimana untuk mengemas kini nilai rekod pangkalan data dalam 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.
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!