VB 如何查找 数据库并显示在text2上？

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:01:56
根据输入的text1（就是从name里的一个值） 的值， 查找 数据库types中name 对应的abb的值， 显示到text2上。

数据库types结构ID（自动编号的），name，abb，remark

我是初学者。
不好意思 Access 2000 数据库 Adodc连接

Private Sub Adodc3_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

创建这个工程用了ado数据库调用
建议不要用adodc

注:要使用ado必须引用microsoft activex data objects 2.8 库

可以点工程,引用,找到这项,打上勾就OK了!

所有代码:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqltext As String
Dim dataname As String
Private Sub Command1_Click()
sqltext = "select * from types where name='" & Trim(Text1.Text) & "'"
rs.Open sqltext, cn, 1, 1
If rs.EOF = False Then
Text2.Text = rs("abb")
Else
Text2.Text = "无结果"
End If
rs.Close
End Sub

Private Sub Form_Load()

dataname = "f:\vod\data.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataname
End Sub

问题不是很详细,请说一下数据库的类型和你使用的连接方式好吗