vb 连接Access数据库

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:42:14
我刚学VB ，看到数据这一章节了，我想这样做：在窗体上有一个combo，通过在combo中输入查询关键字，就会在数据库中查找，比如：我输入了一个A，那么将把所有以字母A开头的信息全找出来然后添加到combo中，同样，我输入AB，那么以AB开头的所有信息全找出来然后添加到combo中，如此往复，最后输入到全名，就找到了，此时combo中也只剩下找到的这一条信息了
在窗体是还有一个text1.text控件。
每输入一个字母就查找一次，并以高亮度显示找到的以我输入的字母开头的第一条信息，在text1中显示与此名称对应的相关信息

你想要做什么的呢？要这个的程序还是什么 你说的不是很清楚 不过我估计你还是要的这个的程序
下面这个就是从一个文本框中查找信息的代码 你可以参考一下
Dim s1 As String
If Command5.Caption = "查找" Then
s1 = RichTextBox1.Text
s2 = InputBox("输入要查找的内容：")
s = InStr(s1, s2)
If s <> 0 Then
RichTextBox1.SetFocus
RichTextBox1.SelStart = s - 1
RichTextBox1.SelLength = Len(s2)
Command5.Caption = "查找下一个"
Else
MsgBox "没有"
End If
Else
s1 = RichTextBox1.Text
s = InStr(s + 1, s1, s2)
If s <> 0 Then
RichTextBox1.SetFocus
RichTextBox1.SelStart = s - 1
RichTextBox1.SelLength = Len(s2)
Else
MsgBox "查完"
Command5.Caption = "查找"
End If
End If

重新；连接就可以了