Question

vb.net远程连接mysql数据库的问题

我用OdbcDataAdapter连接了数据库，并且成功读到了mysql的一个数据源中的表了，我想用一个textbox1来检索，并且在textbox2中显示出来怎么做？比如那个表为：name | year李力 | 23王二 | 20 我想在textbox1中输入 “李力” 则“23”将会被读取到textbox2中，要怎么写？

Answer 1

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么操作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2） '把字段year显示给textbox2 else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end if ADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

Answer 2

Dim cn As New ADODB.Connection '创建链接对象
Dim rs As New ADODB.Recordset '创建指针集
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lbj\Desktop\test.mdb" '连接字符串
End SubPrivate Sub Form_Unload(Cancel As Integer)
cn.Close '关闭数据库对象
End SubPrivate Sub Text1_Change()
c = "select year from info where name='" & Text1.Text & "'" '查询语句
rs.Open c, cn, 3, 3 '查询
Text2.Text = rs.Fields(0) '赋值过去
rs.Close '关闭对象
End Sub
实时查询 只有输入到相应的名字才会显示年龄