首页 >电脑教程 >电脑知识 >使用VB循环查询数据库字符串并将其添加到下拉列表框的方法

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

WBOY
WBOY转载
2024-01-25 12:06:21815浏览

使用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

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中文网其他相关文章!

声明:
本文转载于:docexcel.net。如有侵权,请联系admin@php.cn删除