方法Open作用于Recordset對(duì)象失敗

Henry D. Sy

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

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

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" '錯(cuò)誤
   
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ù)制代碼

而下面過(guò)程卻運(yùn)行正常,

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   '運(yùn)行正常
    
11. '    rs.Open "ORD", CurrentProject.Connection, adOpenKeyset, adLockReadOnly  '運(yùn)行正常
    
12.    
    
13.     MsgBox rs.RecordCount
    
14. 
    
15.     rs.Close
    
16.     Set rs = Nothing
    
17. End Sub

復(fù)制代碼

tmtony

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

話說(shuō) Henry 版主好久不見(jiàn)了，玩什么去了：）

Henry D. Sy

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

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

roych

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

Henry D. Sy

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

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

tmtony

歡迎 回到Office中國(guó)家