Question

VB连接ACCESS数据库运行时，在Set rs = conn.Execute(sql)处出错为什么？

Dim sql As String
Private Function zhixing(sql As String)
Dim conn As Connection
Dim rs As Recordset
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yeya.mdb;Persist Security Info=False" '打开数据源
Set rs = conn.Execute(sql) '建立记录集
Do While Not rs.EOF
List1.AddItem rs.Fields("问题")
rs.MoveNext
Loop

End Function

Answer 1

sql在哪里呢？可能的问题有：conn不对（app所在目录下没有yeya.mdb）或者SQL语句错误

追问

这是一段函数调用程序，SQL语句在下面sql = "select 问题 from error_check where 类别='" & Command1(0).Caption。对于CONN不对能说具体点吗？我是刚接触这个。非常感谢！

追答

"select 问题 from error_check where 类别='" & Command1(0).Caption
后面少了一个引号，应该是
"select 问题 from error_check where 类别='" & Command1(0).Caption & """

追问

加上了还是出问题啊？这会不会跟没有安装补丁有关？跟没有安装ISAM有关？

追答

错误号多少？err.number和err.description是啥？

Answer 2

我根本没关闭数据库连接，其他内容也是没有问题的呀。花了很长时间没能解决状态='0' Set rs = conn.Execute(sql) If Not rs.EOF Then For m =,bzBEaq

Answer 3

应该是sql的问题，你只定义了sql字符串，并没有写，所以conn连接执行语句Execute保存
希望对你有帮助