OPENDATASOURCEについて

[JO]

下記のソースは同サーバーのDB2なかのテーブルをDB１にコピーするという機能を期待していますが、db.Execute
strSQLの部分で、エラーになってしまいます。
Private Sub Command6_Click()
Dim strConnect As String
Dim strSQL As String
Dim db As New ADODB.Connection
strConnect = "Provider=SQLOLEDB;" & _
"UID=sa;" & _
"PWD=MY_PASSWORD;" & _
"Data Source=A_SERVER;" & _
"DATABASE=MY_DB1"
db.Open strConnect
db.BeginTrans
strSQL = "SELECT * into MY_TABLE " & _
"FROM OPENDATASOURCE('SQLOLEDB'," & _
"'UID=sa;PWD=MY_PASSWORD;Data
Source=A_SERVER').[MY_DB2].dbo.MY_TABLE)"
db.Execute strSQL
db.CommitTrans
db.Close
Set db = Nothing
End Sub
ソースのどこが間違っているか？ご存知の方、ご教授ください。
ちなみに、A_SERVERからB_SERBERにコピーするなら、問題なく、実行ができます。
OS：XP　SP３
SQLServer　2000　SP５
VB６　SP５

[zamachin]

> 下記のソースは同サーバーのDB2なかのテーブルをDB１にコピーするという機能を期待していますが、db.Execute

> strSQL = "SELECT * into MY_TABLE " & _
> "FROM OPENDATASOURCE('SQLOLEDB'," & _
> "'UID=sa;PWD=MY_PASSWORD;Data
> Source=A_SERVER').[MY_DB2].dbo.MY_TABLE)"

同一サーバー上で、上記、strConnect接続で、両DBが、参照出来るなら、以下のSQLで、 宜しいかと思います。 strSQL = "SELECT * into MY_TABLE " & _ "FROM [MY_DB2].dbo.MY_TABLE" zamachin

[JO]

解決しました。
ご協力をいただき、ありがとうございました。

"zamachin" からの元のメッセージ: