Question

vb提示找不到可安装的ISAM

代码如下
Private Sub jcbutton1_Click()
Dim conn As Connection 'conn为连接
Dim sql As String
Dim rs As Recordset 'rs 为记录集
If Trim(txtid.Text) = "" Then
MsgBox "输入不能为空", , "提示"
Exit Sub
End If
Set conn = CreateObject("adodb.connection")
conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Date Source=F:\BaiduYunDownload\VB\学生信息管理\student.mdb;"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * from 学生个人信息 where 学号 like'%" & Trim(txtid.Text) & "%'"
Adodc1.Refresh
End Sub

求大神帮忙





Answer 1

conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Date Source=F:\BaiduYunDownload\VB\学生信息管理\student.mdb;"
这一句中，Data 错写成Date，修改为Data应该就可以了