请教Shape Append 子句遇到的问题

syszj 2003-04-08 03:28:00
有如下一段程序;
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高手,造成这种错误的原因是什么,如何去解决?
...全文
15 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhp80 2003-04-09
程序中其它地方也有用到,做的是Shape查询吗?
我的建议是,还是要检查一下连接串的数据提供者Provider,一定要是Provider=MSDataShape.1
回复
syszj 2003-04-08
cn的connectionstring是沒問題的, 程序中其它地方也有用到. 問題還是出在Sqlstr= "SHAPE {SELECT * FROM Customers } AS ParentCMD" & _
" APPEND ({SELECT * FROM Orders } AS ChildCMD" & _
" RELATE customerID TO customerID) AS ChildCMD"
上,語法我是找不出有什麼問題, 違反存取規則我就不懂了, 是不是數據表的結构有問題?
回复
zhp80 2003-04-08
首先 Dim cn As New ADODB.Connection 不应该用 new
其次 你的 currentproject.Connection 的ConnectionString对吗?
应该是 "Provider=MSDataShape.1;Persist Secu...." 而不是"Provider=SQLOLEDB.1;Passw..."
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-08 03:28
社区公告
暂无公告