VB连接ACCESS时，为什么老是出现无数据源？

Question

如题所述

Answer 1

你的连接设置有问题。

下面将详细介绍在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

Answer 2

db = "db.mdb"
On Error Resume Next
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
End If

sub CloseConn()
conn.close
set conn=nothing
end sub本回答被网友采纳