你的连接设置有问题。

下面将详细介绍在VB中如何使用ADO来进行数据库应用程序开发。

　　为了方便讨论，在C:\My Documents下建立教学管理数据库jxgl.mdb，分别有xsb（学生表），jsb（教师表），kcb（课程表）等数据表，其中jsb包含字段有：gh（工号），xm（姓名），xb（性别），ximing（系名），gl（工龄），jbgz（基本工资）等。

1、通过ADO Data控件非编程来访问

(1) 在工具箱中添加ADO Data控件。操作为：“工程”→“部件” →“Microsoft ADO Data Control”。.

(2) 在窗体上放置一个ADO Data控件，名称默认为Adodc1。

(3) 设置Adodc1.ConnectionString属性值为“DSN=jxgldsn”。其中“jxgldsn”为指向jxgl.mdb数据库的数据源名称，可通过控制面版预先设定。

(4) 设置Adodc1.RecordSource项,选择命令类型为“2-adCmdTable”，并在表名项中选择“jsb”。

(5) 将ADO Data控件与Text文本框绑定。放置文本框控件于窗体，将其DataSource属性值设置Adodc1，DataField属性值设为表中一字段，如gh。运行程序，可用ADO Data控件的方向箭头来浏览。

除了应用上述引入一组数据绑定控件显示数据内容之外，还可以使用数据网格控件DataGrid来显示多个字段内容。步骤为：

l 先通过“工程” →“部件” →“Microsoft DataGrid Control”引入数据网格控件并在窗体中绘制一个DataGrid控件。

l 把DataGrid绑定到ADO数据控件上。设置DataSource属性值为：Adodc1。

l 把数据库字段加入到DataGrid控件上。鼠标右击DataGrid控件，选择检索字段，则当前数据表的字段全部导入到数据网格控件上。

2、用ADO对象库编程访问

（1）引用ADO对象库。操作为：“工程” →“引用” →“Microsoft ActiveX Data Objects 2.1 Library”。

（2）用代码打开数据源，建立记录集，将记录集中的记录内容打印出来。

Dim conn As Connection 'conn为连接

Dim rs As Recordset 'rs为记录集

Dim sql As String

Set conn = CreateObject("adodb.connection")

conn.Open "provider=msdasql;database=jxgl;data source=jxgldsn" '打开数据源

sql = "select * from jsb"

Set rs = conn.Execute(sql) '建立记录集

Do While Not rs.EOF

For i = 0 To rs.Fields.Count - 1

Print rs.Fields(i) '输出jsb表中各字段

Next i

rs.MoveNext

Print

Loop

本文地址： http://www.goggeous.com/20250102/1/1123632

文章来源：天狐定制

版权声明：除非特别标注，否则均为本站原创文章，转载时请以链接形式注明文章出处。