以下程式請協助...
strShape="shape {select * from table1} " _
& "append ({ select * from table2 } " _
& "relate a1 to b1) as command1"
Set Conn = New ADODB.Connection
Set Rst = New ADODB.Recordset
With Conn
.Provider = "MSDataShape"
.Open 此處該如何描述?
End With
With Rst
.CursorLocation = adUseClient
.Open strShape, Conn 此行是否正確
End With
strShape="shape {select * from table1} " _
& "append ({ select * from table2 } " _
& "relate a1 to b1) as command1"
Set Conn = New ADODB.Connection
Set Rst = New ADODB.Recordset
With Conn
.Provider = "MSDataShape"
.Open 此處該如何描述?
End With
With Rst
.CursorLocation = adUseClient
.Open strShape, Conn 此行是否正確
End With
文章標籤
全站熱搜
補充...在SQL 2000下
試著將原連線字串 Provider=.... 改為 Provider=MSDataShape;Data Provider=...