Cara menggunakan VB untuk menggelung melalui rentetan pangkalan data dan menambahnya pada kotak senarai juntai bawah

Cara mengulang melalui vb untuk menanyakan rentetan dalam pangkalan data dan menambahkannya pada kotak senarai lungsur

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.

Pemprosesan rentetan vb yang mudah

'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!