Question

vb如何连接access数据库，查询一个结果显示在text1.text上

我要连接access数据库 。假设在c:\1.mdb上，我要查询一个值，然后把这个值输出到text1.text上去，代码该怎么写，我完全是初学者，请大家说详细点，要引用什么部件请写出来 。

Answer 1

单击“工程”→“引用”，勾选“Microsoft ActiveX Data Object 2.6”
假设输入sql语句的文本框名称为text1,结果文本框的名称为text2

查询按钮的单击事件里写：

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/1.mdb"
cnn.ConnectionString = connstring
cnn.Open

Set rst = New ADODB.Recordset
SQL = text1.Text
rst.Open SQL, cnn, 1, 1
text2.Text=rst(0)
rst.close
set rst=nothing

Answer 2

Set Text1.DataSource = Adodc1
Text1.DataField = "字段"