VB を使用してデータベース文字列をループし、ドロップダウン リスト ボックスに追加する方法

vb はどのようにループしてデータベース内の文字列をクエリし、それをドロップダウン リスト ボックスに追加しますか?

使用するかどうか

Data1.Recordset.FindFirst メソッド

引き続き

Data1.Recordset.FindNext メソッド

レコードを検索するには、

Data1.Recordset.NoMatch

一致するレコードが見つかったかどうかを確認するには、

Data1.Recordset.NoMatch は True を返します (見つからないことを意味します)。False を返した場合は見つかったことを意味します。

ただし、あなたが使用するように直接ではありません (できれば直接ではありません):

Data1.Recordset.FindNext "フィールド 2 のような" & "'*" & Text8.Text & "*'＂"

Combo1.AddItem Data1.Recordset.Fields(1)

Data1.Recordset.FindNext "フィールド 2 のような" & "'*" & Text8.Text & "*'＂"

if Data1.Recordset.NoMatch then

'検索を終了するには、対応するコードをここに記述します

Combo1.AddItem Data1.Recordset.Fields(1)

......

終了の場合

私が上で言ったことは、あなたのようにそれを直接使用しないことが最善です。それは、それが依然としていくつかの場所で直接使用できることを意味します。つまり、あなたが探しているレコードは存在するはずだと確信していますか?

単純な VB 文字列処理

'TextBox (名前は Text1、MultiLine 属性は True に設定され、入力に使用されます)、CommandButton (名前は Command1、分析の開始に使用されます)、および ListBox (名前は List1、配列分析が有効であることを証明するために使用されます) を追加します。正しい） 。

'次のコードを追加します。

明示的なオプション

プライベートサブコマンド1_Click()

Dim Num() と同じ長さ、i と同じ長さ、j と同じ長さ

リスト1.クリア

If StrToNum(Text1.Text, Num) then

ReDim t(0 To UBound(Num, 2)) 文字列として

For i = 0 to UBound(Num, 1)

j = 0からUBound(Num, 2)の場合

t(j) = CStr(Num(i, j))

List1.AddItem Join(t)

MsgBox「入力が間違っています!」

終了の場合

エンドサブ

プライベート関数 StrToNum(S As String, N() As Long) As Boolean

Dim A() を文字列、B() を文字列、C を Long、D を文字列、E をブール値、F を Long

i と同じ長さ、j と同じ長さで調光

Len(S) = 0 の場合、関数を終了します

A = 分割(S, vbCrLf)

For i = 0 to UBound(A)

Bを消去

C = 0

E = 偽

j = 1 の場合 Len(A(i))

D = Mid(A(i), j, 1)

大文字小文字を選択 Asc(D)

ケース 48 ～ 57

そうでない場合は

ReDim プリザーブ B(0 から C)

C = C 1

E = 真

終了の場合

B(C - 1) = B(C - 1) & D

ケース32

E = 偽

それ以外の場合

終了関数

終了選択

C = 0 の場合、関数を終了します

If i = 0 then

ReDim N(0 から UBound(A)、0 から C - 1)

F = C

If F

＃＃＃次＃＃＃ ＃＃＃次＃＃＃

以上がVB を使用してデータベース文字列をループし、ドロップダウン リスト ボックスに追加する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。