請教各位先進:
我寫了一個SQL,但出現如標題的錯誤訊息,語法如下:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim cnstr As String
cnstr = "provider = microsoft.jet.oledb.4.0;data source
=c:\*.mdb"
cn.Open cnstr
Set cmd.ActiveConnection = cn
Dim SQL As String
SQL = "select * from [" & cbo資料表.Text & "] where 製造商 = [" & cbo製造商.Text & "] order by 箱號"
cmd.CommandText = SQL
Set rs = cmd.Execute
到了 Set rs = cm.Execute 則出現錯誤訊息,而rs顯示 rs=nothing ,不知是SQL內容哪裏錯了,敬請各位先進不吝指正,
謝謝!
Steven
我寫了一個SQL,但出現如標題的錯誤訊息,語法如下:
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim cnstr As String
cnstr = "provider = microsoft.jet.oledb.4.0;data source
=c:\*.mdb"
cn.Open cnstr
Set cmd.ActiveConnection = cn
Dim SQL As String
SQL = "select * from [" & cbo資料表.Text & "] where 製造商 = [" & cbo製造商.Text & "] order by 箱號"
cmd.CommandText = SQL
Set rs = cmd.Execute
到了 Set rs = cm.Execute 則出現錯誤訊息,而rs顯示 rs=nothing ,不知是SQL內容哪裏錯了,敬請各位先進不吝指正,
謝謝!
Steven
文章標籤
全站熱搜
