Rumah >tutorial komputer >pengetahuan komputer >Cara menggunakan VB untuk menggelung melalui rentetan pangkalan data dan menambahnya pada kotak senarai juntai bawah
Sama ada anda menggunakannya
Data1.Recordset.Cara Pertama
Masih menggunakan
Data1.Recordset.Cari Seterusnya
Untuk mencari rekod, gunakan
Data1.Recordset.NoMatch
Untuk menentukan sama ada rekod yang sepadan ditemui, jika
Data1.Recordset.NoMatch mengembalikan True, yang bermaksud ia tidak dijumpai Jika ia mengembalikan False, ia bermakna ia ditemui.
Tetapi ia tidak boleh digunakan secara langsung (sebaik-baiknya tidak secara langsung) seperti yang anda lakukan:
Data1.Recordset.FindNext "Bidang 2 Suka" & "'*" & Teks8.Teks & "*'"
Kombo1.Tambah Data Item1.Rekod.Medan(1)
Sebaliknya, lakukan ini:
Data1.Recordset.FindNext "Bidang 2 Suka" & "'*" & Teks8.Teks & "*'"
jika Data1.Rekod.Tiada Padanan Kemudian
'Tulis kod yang sepadan di sini untuk menamatkan carian
lain
Kombo1.Tambah Data Item1.Rekod.Medan(1)
…………
Tamat Jika
Apa yang saya katakan di atas adalah lebih baik tidak menggunakannya secara langsung seperti anda Maksudnya ia masih boleh digunakan secara langsung di beberapa tempat, adakah anda pasti rekod yang anda cari mesti ada.
'Tambah TextBox (bernama Text1, atribut MultiLine ditetapkan kepada True, digunakan untuk input), CommandButton (bernama Command1, digunakan untuk memulakan analisis) dan ListBox (bernama List1, digunakan untuk membuktikan bahawa analisis tatasusunan adalah betul).
'Tambahkan kod berikut.
Pilihan Eksplisit
Sub Perintah Peribadi1_Klik()
Dim Num() Selagi, i Selagi, j Selagi
Senarai1.Kosongkan
Jika StrToNum(Teks1.Teks, Num) Kemudian
Malapkan semula t(0 Kepada UBound(Bilangan, 2)) Sebagai Rentetan
Untuk i = 0 Kepada UBound(Bil, 1)
Untuk j = 0 Kepada UBound(Bil, 2)
t(j) = CStr(Bil(i, j))
Seterusnya
Senarai1.TambahItem Sertai(t)
Seterusnya
Lain
MsgBox "Salah Input!"
Tamat Jika
Tamat Sub
Fungsi Peribadi StrToNum(S Sebagai Rentetan, N() Selagi Boolean
Malapkan A() Sebagai Rentetan, B() Sebagai Rentetan, C Sepanjang, D Sebagai Rentetan, E Sebagai Boolean, F Sepanjang
Malapkan i Selagi, j Selagi
Jika Len(S) = 0 Maka Keluar dari Fungsi
A = Pisah(S, vbCrLf)
Untuk i = 0 Kepada UBound(A)
Padam B
C = 0
E = Salah
Untuk j = 1 Kepada Len(A(i))
D = Pertengahan(A(i), j, 1)
Pilih Case Asc(D)
Kes 48 Hingga 57
Jika Bukan E Maka
ReDim Awet B(0 Hingga C)
C = C + 1
E = Benar
Tamat Jika
B(C - 1) = B(C - 1) & D
Kes 32
E = Salah
Kes Lain
Fungsi Keluar
Pilih Tamat
Seterusnya
Jika C = 0 Maka Keluar dari Fungsi
Jika i = 0 Maka
Malapkan semula N(0 Kepada UBound(A), 0 Kepada C - 1)
F = C
Lain
Jika F C Kemudian Keluar Fungsi
Tamat Jika
Untuk j = 0 Hingga C - 1
N(i, j) = Val(B(j))
Seterusnya
Seterusnya
StrToNum = Benar
Fungsi Tamat
Atas ialah kandungan terperinci Cara menggunakan VB untuk menggelung melalui rentetan pangkalan data dan menambahnya pada kotak senarai juntai bawah. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!