Nov 12th, 1999, 04:29 AM
here is my code:
Private Sub Form_Load()
Dim ws As Workspace
Dim db As Database
Dim strSQL As String
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\OldDB.mdb")
strSQL = "SELECT * INTO [NewTable] IN d:\vb5\NewDB.mdb " _
& "FROM [OldTable]"
db.Execute strSQL
ws.Close
db.Close
Set ws = Nothing
Set db = Nothing
End Sub
i am trying to copy the table data and structure from OldDB.mdb into a new table NewTable.
the error #3067 occurs at the SQL code.
"query input must contain at least one table or query"
what is happening here...?
any help greatly appreciated.
Private Sub Form_Load()
Dim ws As Workspace
Dim db As Database
Dim strSQL As String
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("c:\OldDB.mdb")
strSQL = "SELECT * INTO [NewTable] IN d:\vb5\NewDB.mdb " _
& "FROM [OldTable]"
db.Execute strSQL
ws.Close
db.Close
Set ws = Nothing
Set db = Nothing
End Sub
i am trying to copy the table data and structure from OldDB.mdb into a new table NewTable.
the error #3067 occurs at the SQL code.
"query input must contain at least one table or query"
what is happening here...?
any help greatly appreciated.