2012-11-20 83 views
1

獲取上述錯誤消息時出現問題。 任何人都可以協助嗎?From子句中的語法錯誤 - VB6

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 

回答

1

問題是你使用的是SQL sta用指令鍵入adCmdTable。使用該命令類型時,ADO將在內部生成選擇查詢,在這種情況下,您只需指定表的名稱即可。

或者,只是刪除cmd.CommandType = adCmdTable線一起,保持select * syntax

+0

太好了 - 非常感謝。我刪除了Cmd.CommandType這一行。非常感謝你。 – user1838163

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

謝謝。我在代碼中有下劃線。這裏沒有顯示。 – user1838163