关于 vb 数据库问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:32:22
一个简答的程序
含 一个 adodc 一个datagrid
名称分别为 adodc1 和 datagrid1
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Provider = "Microsoft.jet.OLEDB.4.0"
cnn.ConnectionString = "数据库文件目录（此处省略）"
cnn.Open cnn.ConnectionString
rs.Open "select * from [room]", cnn, adOpenStatic, adLockOptimistic
Set Adodc1.Recordset = rs
Adodc1.Refresh
Set DataGrid1.DataSource = adodc1
为何 datagrid1 中不显示 数据库信息

代码没什么问题
但我不知道 你的 access 是什么版本
根据我的经验
一般是之前的数据库没有连上，到那一步 就会出错，
有时也会有其它原因。请仔细查一下
如 数据库链接字符串问题
97 的 用 jet.3.51
2000 的 用 jet.4.0

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'cnn.Provider = "Microsoft.jet.OLEDB.4.0"
cnn.ConnectionString = "Microsoft.jet.OLEDB.4.0;" & "数据库文件目录（此处省略）"
cnn.Open cnn.ConnectionString
rs.Open "select * from [room]", cnn, adOpenStatic, adLockOptimistic
Set Adodc1.Recordset = rs
Adodc1.Refresh
Set DataGrid1.DataSource = adodc1
DataGrid1.DataBind()

告诉你也不懂以后在告诉你把

Set DataGrid1.DataSource = adodc1.Recordset

Private Sub Command2_Click()
Adodc1.ConnectionString = "Provider=SQLNCLI.1;Persist Security Info=False;Initial Catalog=master;Data Source=frank"
Adodc1.UserName = "sa"
Adodc1.Password = "anxin"
Adodc1.RecordSource = "select * from spt_va