Question

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

Answer 1

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
实时查询 只有输入到相应的名字才会显示年龄