如何用VB连接远程的mysql数据库

Dim cn As New ADODB.Connection '创建链接对象

Dim rs As New ADODB.Recordset '创建指针集

Private Sub Form_Load()

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data 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

实时查询 只有输入到相应的名字才会显示年龄

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显示给textbox2else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end ifADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

---