请教Shape Append 子句遇到的问题

[syszj]

有如下一段程序;
dim Sqlstr as String
Dim cn As New ADODB.Connection
Dim WithEvents db As ADODB.Recordset
Set cn = currentproject.Connection
Set db = New ADODB.Recordset
cn.CursorLocation = adUseClient
Sqlstr= "SHAPE {SELECT * FROM Customers } AS ParentCMD" & _
" APPEND ({SELECT * FROM Orders } AS ChildCMD" & _
" RELATE customerID TO customerID) AS ChildCMD"
db.open Sqlstr,cn, adOpenDynamic, adLockPessimistic
………………………..
当运行到db.open Sqlstr,cn, adOpenDynamic, adLockPessimistic
时,出现”语法错误或违反存取规则”的错误信息.请教各位VB高手,造成这种错误的原因是什么,如何去解决?

[zhp80]

首先 Dim cn As New ADODB.Connection 不应该用 new
其次 你的 currentproject.Connection 的ConnectionString对吗？
应该是 "Provider=MSDataShape.1;Persist Secu...." 而不是"Provider=SQLOLEDB.1;Passw..."

[syszj]

cn的connectionstring是沒問題的, 程序中其它地方也有用到. 問題還是出在Sqlstr= "SHAPE {SELECT * FROM Customers } AS ParentCMD" & _
" APPEND ({SELECT * FROM Orders } AS ChildCMD" & _
" RELATE customerID TO customerID) AS ChildCMD"
上,語法我是找不出有什麼問題, 違反存取規則我就不懂了, 是不是數據表的結构有問題?

[zhp80]

程序中其它地方也有用到，做的是Shape查询吗？
我的建议是，还是要检查一下连接串的数据提供者Provider，一定要是Provider=MSDataShape.1