如何将db表导入sql 2000

Posted 2023-04-11

1.使用Access程序新建数据库
2.使用Access程序导入“Paradox”数据库
3.再将导入的表导出到Excel

Private Sub ConvDb()

Const StrTableName As String = "Mrp"

Dim appAccess As Access.Application
Dim strDB As String, StrFN As String

' Initialize string to database path.
strDB = "D:\Newdb.mdb"
' Create new instance of Microsoft Access.
Set appAccess = CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.NewCurrentDatabase strDB

StrFN = "C:\wisdb\"

appAccess.DoCmd.TransferDatabase 0, "Paradox 7.x", StrFN, 0, "Drmp.db", StrTableName
StrFN = "C:\wisdb\Mrp.xls"
appAccess.DoCmd.TransferSpreadsheet 1, , StrTableName, StrFN
appAccess.Quit
Set appAccess = Nothing
Workbooks.Open StrFN, , , , , , , , , , , , True
Kill strDB

End Sub
想办法把PARADOX 中数据导出成sql2000能识别的文件格式即可。 参考技术A 使用sql2000的导入导出功能。本回答被提问者和网友采纳

导出 导入 db2表结构

导出：

db2look -d devdb90 -e -a -x -i db2inst1 -w xxxxxx -o ddlfile.sql

导入：

db2 -tvf ddlfile.sql

本文出自 “arvin_0213” 博客，请务必保留此出处http://arvin0213.blog.51cto.com/2455782/1929597