方法Open作用于Recordset對象失敗

Henry D. Sy

今天第一次出現(xiàn)了這種情況,查了半天也不知道什么原因
放上了論壇,大家指導(dǎo)一下.
運行環(huán)境
win10
office2016
打開記錄集時用SQL語句,只能用星號代替字段名或者直接用表名
如果用字段名就出錯.

如下過程出現(xiàn):方法Open作用于Recordset對象失敗

1. Private Sub Command0_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim sSQL As String
   
4. 
   
5.     sSQL = "SELECT ORD.STYLE, ORD.PO, ORD.COLOR, ORD.SIZE, ORD.QUANTITY FROM ORD" '錯誤
   
6.    
   
7.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
8.    
   
9.     MsgBox rs.RecordCount
   
10. 
    
11.     rs.Close
    
12.     Set rs = Nothing
    
13. End Sub

復(fù)制代碼

而下面過程卻運行正常,

1. Private Sub Command1_Click()
   
2. 
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim sSQL As String
   
5. 
   
6.    
   
7.     sSQL = "SELECT * FROM ORD"
   
8.    
   
9. 
   
10.     rs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly   '運行正常
    
11. '    rs.Open "ORD", CurrentProject.Connection, adOpenKeyset, adLockReadOnly  '運行正常
    
12.    
    
13.     MsgBox rs.RecordCount
    
14. 
    
15.     rs.Close
    
16.     Set rs = Nothing
    
17. End Sub

復(fù)制代碼

tmtony

其實。。。。
就是 保留字的問題
改成這樣就可以了
sSQL = "SELECT ORD.STYLE, ORD.PO, ORD.[COLOR], ORD.[SIZE], ORD.[QUANTITY] FROM ORD"

話說 Henry 版主好久不見了，玩什么去了：）

Henry D. Sy

tmtony 發(fā)表于 2016-9-13 21:22
其實。。。。
就是 保留字的問題
改成這樣就可以了

非常感謝!
好久沒碰Access,快忘了.
哪有功夫玩,呀
這幾年一直上海,北京.
現(xiàn)在在家了

roych

保留字的問題確實很容易被忽略，例如：Name，Order什么的……我一般都是改為UserName，OrderNo等等的。

Henry D. Sy

roych 發(fā)表于 2016-9-14 12:22
保留字的問題確實很容易被忽略，例如：Name，Order什么的……我一般都是改為UserName，OrderNo等等的。

是的,
長時間沒碰access都忘了
而數(shù)據(jù)又是來自外部鏈接.更沒有注意字段名稱.
被保留字SIZE搞得頭暈!!

tmtony

歡迎 回到Office中國家