使用VB循环查询数据库字符串并将其添加到下拉列表框的方法

vb如何循环查询一个数据库中的字符串并将其添加到下拉列表框中

无论是用

Data1.Recordset.FindFirst 方法

还是用

Data1.Recordset.FindNext 方法

来进行查找记录，都要使用

Data1.Recordset.NoMatch

来判断是否找到匹配的记录，如果

Data1.Recordset.NoMatch 返回 True，就表示没有找到，如果返回 False 就表示找到了。

而不能直接（最好不要直接）象你这样使用：

Data1.Recordset.FindNext ＂字段2 Like＂ & ＂'*＂ & Text8.Text & ＂*'＂

Combo1.AddItem Data1.Recordset.Fields(1)

而是要这样：

Data1.Recordset.FindNext ＂字段2 Like＂ & ＂'*＂ & Text8.Text & ＂*'＂

if Data1.Recordset.NoMatch Then

'这里编写终止继续查找的相应代码

else

Combo1.AddItem Data1.Recordset.Fields(1)

.........

End If

我上面说的最好不要直接象你这样使用，意思在有的地方还是可以直接使用的，那就是你确定查找的记录一定存在？

简单的vb字符串处理

'添加一个TextBox（名为Text1, MultiLine属性设True，用来输入）、一个CommandButton（名为Command1，用来启动分析）、一个ListBox（名为List1，用来证明数组分析未出错）。

'添加如下代码。

Option Explicit

Private Sub Command1_Click()

Dim Num() As Long, i As Long, j As Long

List1.Clear

If StrToNum(Text1.Text, Num) Then

ReDim t(0 To UBound(Num, 2)) As String

For i = 0 To UBound(Num, 1)

For j = 0 To UBound(Num, 2)

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

Next

List1.AddItem Join(t)

Next

Else

MsgBox ＂Wrong Input!＂

End If

End Sub

Private Function StrToNum(S As String, N() As Long) As Boolean

怪兽AI数字人

数字人短视频创作，数字人直播，实时驱动数字人

44

查看详情

Dim A() As String, B() As String, C As Long, D As String, E As Boolean, F As Long

Dim i As Long, j As Long

If Len(S) = 0 Then Exit Function

A = Split(S, vbCrLf)

For i = 0 To UBound(A)

Erase B

C = 0

E = False

For j = 1 To Len(A(i))

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

Select Case Asc(D)

Case 48 To 57

If Not E Then

ReDim Preserve B(0 To C)

C = C + 1

E = True

End If

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

Case 32

E = False

Case Else

Exit Function

End Select

Next

If C = 0 Then Exit Function

If i = 0 Then

ReDim N(0 To UBound(A), 0 To C - 1)

F = C

Else

If F C Then Exit Function

End If

For j = 0 To C - 1

N(i, j) = Val(B(j))

Next

Next

StrToNum = True

End Function

以上就是使用VB循环查询数据库字符串并将其添加到下拉列表框的方法的详细内容，更多请关注php中文网其它相关文章！