7,765
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
OLD_VB_FAN 2001-06-09
- 打赏
- 举报
dfdsfdsf
vbkiller 2001-05-22
- 打赏
- 举报
strSql = "SELECT * INTO [Paradox 5.x; DATABASE=" & DatabaseName & "\" & OutTable & "].[" & Tablename & "] FROM [" & Tablename & "]"
coolstar 2001-05-12
- 打赏
- 举报
Opening directly using a Database object:
In this case, the database is the directory where the tables reside. If all tables have the same password, you can open them from the same Database object. If the tables have different passwords, you will need to open a different Database object for each unique password.
Set db = DBEngine(0).OpenDatabase("C:\MYDATA", 0, 0, "Paradox 4.x;PWD=ABC;")
Set rs = db.OpenRecordset("Table1#DB")
Referencing a Paradox table directly in SQL statements
Microsoft Jet allows use of an IN clause or the [Database].[Table] syntax to reference a table outside the current database. The [Database].[Table] syntax is preferred.
Set db = OpenDatabase(App.Path & "\NWIND.MDB")
Set rs = db.OpenRecordset("SELECT * FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]")
'
' Or
'
Set rs = db.OpenRecordset("SELECT * FROM [Table1#DB] IN '' [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC]")
'
' Or
'
Set rs = db.OpenRecordset("SELECT * FROM [Table1#DB] IN 'C:\MYDATA' [Paradox 3.x;PWD=ABC]")
You can also use action queries with the same direct SQL technique:
' Make a new table Access "LocalTable" from data in Paradox table.
Set db = OpenDatabase(App.Path & "\NWIND.MDB")
db.Execute "SELECT * INTO LocalTable FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]"
' Append data into an Access table "LocalTable" from Paradox table.
db.Execute "INSERT INTO LocalTable SELECT * FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]"
' Append data into a Paradox table from an Access table "LocalTable".
db.Execute "INSERT INTO [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB] SELECT * FROM LocalTable"
' Delete records from a Paradox table.
db.Execute "DELETE FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB] WHERE Field1 = 55"
In this case, the database is the directory where the tables reside. If all tables have the same password, you can open them from the same Database object. If the tables have different passwords, you will need to open a different Database object for each unique password.
Set db = DBEngine(0).OpenDatabase("C:\MYDATA", 0, 0, "Paradox 4.x;PWD=ABC;")
Set rs = db.OpenRecordset("Table1#DB")
Referencing a Paradox table directly in SQL statements
Microsoft Jet allows use of an IN clause or the [Database].[Table] syntax to reference a table outside the current database. The [Database].[Table] syntax is preferred.
Set db = OpenDatabase(App.Path & "\NWIND.MDB")
Set rs = db.OpenRecordset("SELECT * FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]")
'
' Or
'
Set rs = db.OpenRecordset("SELECT * FROM [Table1#DB] IN '' [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC]")
'
' Or
'
Set rs = db.OpenRecordset("SELECT * FROM [Table1#DB] IN 'C:\MYDATA' [Paradox 3.x;PWD=ABC]")
You can also use action queries with the same direct SQL technique:
' Make a new table Access "LocalTable" from data in Paradox table.
Set db = OpenDatabase(App.Path & "\NWIND.MDB")
db.Execute "SELECT * INTO LocalTable FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]"
' Append data into an Access table "LocalTable" from Paradox table.
db.Execute "INSERT INTO LocalTable SELECT * FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB]"
' Append data into a Paradox table from an Access table "LocalTable".
db.Execute "INSERT INTO [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB] SELECT * FROM LocalTable"
' Delete records from a Paradox table.
db.Execute "DELETE FROM [Paradox 3.x;DATABASE=C:\MYDATA;PWD=ABC].[Table1#DB] WHERE Field1 = 55"
OLD_VB_FAN 2001-05-12
- 打赏
- 举报
呵呵，代码这么长，先给10分再说
