| |
> CurrentDb.Execute _
> "SELECT bbb.* INTO bbb IN 'C:\Test\C.MDB' " & _
> "FROM bbb IN 'C:\Test\B.MDB';"
転送先に既にテーブルが存在するときは、エラーになりますので、その場合も実行するには、
エラー処理でテーブルを削除する必要があります。
DROP TABLE では IN句が使えないようなので、OpenDatabase を使用しました。
Public Sub tensou1()
Dim sSQL As String
Dim db As DAO.Database
On Error GoTo E
Set db = OpenDatabase("C:\Test\C.MDB")
sSQL = "SELECT bbb.* INTO bbb " & _
"FROM bbb IN 'C:\Test\B.MDB';"
db.Execute sSQL
ExitSub:
Exit Sub
E:
Select Case Err
Case 3010
db.Execute "DROP TABLE bbb"
Resume
Case Else
MsgBox Err & ":" & Err.Description
Resume ExitSub
End Select
End Sub
OpenDatabase も使っちゃあかん、ということなら、DoCmd.RunSQL を使って、下記のような方法もあります。
Public Sub tensou3()
Dim sSQL As String
sSQL = "SELECT bbb.* INTO bbb IN 'C:\Test\C.MDB' " & _
"FROM T_Img IN 'C:\Test\B.MDB';"
DoCmd.SetWarnings False
DoCmd.RunSQL sSQL
DoCmd.SetWarnings True
End Sub
|
|
hatena
- 13/6/24(月) 21:57 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
