vb6 - From 子句中的语法错误 - VB6

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

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

或者，只需删除cmd.CommandType = adCmdTable所有行并保留select * syntax.

Answer 2

您需要_在此行末尾添加下划线字符

只需替换为：

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;")