Question

在获取上述错误消息时遇到问题。有人可以帮忙吗？

Dim cn As New ADODB.Connection 
Dim cmd As New ADODB.Command 
Dim RS As New ADODB.Recordset 
Dim RS2 As New ADODB.Recordset

Set cn = New ADODB.Connection
Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & TheServer &   
          FileTypeOld & ";" & "Jet OLEDB:Database Password=12345678;")

If cn.State = 0 Then cn.Open
Set cmd.ActiveConnection = cn
cmd.CommandText = "SELECT * FROM mov"
cmd.CommandType = adCmdTable
Set RS = cmd.Execute

Answer 1

你需要添加这个字符_，这是该行末尾的下划线

只需替换为：

Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & TheServer & _
FileTypeOld & ";" & "Jet OLEDB:Database Password=12345678;")

或者您可以将两行合并为一行而不使用下划线，就像这样

Call cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & TheServer & ileTypeOld & ";" & "Jet OLEDB:Database Password=12345678;")

Answer 2

问题是您使用的是带有命令类型adCmdTable的SQL语句。使用该命令类型时，ADO将在内部生成选择查询，在这种情况下，您只需指定表的名称。

或者，只需将cmd.CommandType = adCmdTable行全部删除，然后保留select * syntax即可。

From子句中的语法错误 - VB6

2 个答案: