UC知道VB连接数据库时产生的错误，有详细代码和错误提示，请教各位
来源：百度知道 编辑：UC知道 时间：2024/05/15 12:40:35
代码如下：
Private Sub Form_Load()
Dim yapath As String
Dim con As New ADODB.Connection
mypath = App.Path
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
con.Provider = "Microsoft.Jet.OLEDB.4.0"
Adodc1.ConnectionString = "data source=" & mypath & "student.mdb"
Adodc1.RecordSource = "select * from StuInfo"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
错误提示如图：
就是使用adodc控件和datagrid控件连接数据库并显示数据，书上抄的代码，问题出在哪里呢，请教
Private Sub Form_Load()
Dim yapath As String
Dim con As New ADODB.Connection
mypath = App.Path
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
con.Provider = "Microsoft.Jet.OLEDB.4.0"
Adodc1.ConnectionString = "data source=" & mypath & "student.mdb"
Adodc1.RecordSource = "select * from StuInfo"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
错误提示如图：
就是使用adodc控件和datagrid控件连接数据库并显示数据，书上抄的代码，问题出在哪里呢，请教
Private Sub Form_Load()
Dim yapath As String
'Dim con As New ADODB.Connection '定义这个变量无作用
mypath = App.Path
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
'con.Provider = "Microsoft.Jet.OLEDB.4.0"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & mypath & "student.mdb"
Adodc1.RecordSource = "select * from StuInfo"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub