在信息技术快速发展的今天，数据迁移成为了一个常见的需求。本文将介绍如何使用.NET技术将Paradox数据库迁移到SQL Server。这个过程涉及到使用特定的库来读取Paradox数据库文件，并将数据复制到SQL Server数据库中。
本应用使用了由Petr Briza开发的“Paradox数据库原生.NET读取器”库。操作过程相当简单：用户只需选择存放Paradox数据库文件的文件夹，选择想要复制表的SQL Server数据库，然后选择需要复制的表并点击“复制表”按钮。应用将创建SQL Server数据库中的表并复制数据。如果文件位于网络驱动器上，它还会尝试将文件本地复制。
应用利用Petr Briza库来计算每个表的记录数。它使用Microsoft Jet OLEDB提供者以32位模式读取数据。由于该提供者在64位模式下无法工作，因此应用被编译为32位模式。
Paradox数据库文件可以设置密码保护。应用使用JET OLEDB连接字符串属性“Jet OLEDB:Database Password”来处理密码。
以下是VB.NET中实现的一些关键函数：
此函数用于获取连接到Paradox数据库的连接字符串。
Function GetParadoxConnectionString(ByVal sFolderPath As String, ByVal sPassword As String) As String
If sFolderPath = "" Then Return ""
If sPassword <> "" Then
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFolderPath & ";Extended Properties=Paradox 5.x;Jet OLEDB:Database Password=" & sPassword & ";"
Else
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFolderPath & ";Extended Properties=Paradox 5.x;"
End If
End Function
CopyTableJet函数负责实际的数据复制工作。如果选择“SQL Server2008+”，它将每次插入1000条记录。
Private Sub CopyTableJet(ByVal sTableName As String, dr As OleDbDataReader, ByRef cnDst As OleDbConnection)
' 省略部分代码...
End Sub
Private Function GetCreateTableSqlFromParadox(ByVal sTableName As String, dr As OleDbDataReader) As String
' 省略部分代码...
End Function