haavital.blogg.se

' Listen for the user to press Cancel button ProgressBar1.Value = Math.Min(ProgressBar1.Maximum, iRow) " (" & sHeader & " ) VALUES (" & sRow & " )" SValues = " " End If Else Dim sSql1 As String = " INSERT INTO " & PadSqlColumnName(sTableName) & _ SValues += " (" & sRow & " )" If iRowCount >= 1000 Then Dim sSql1 As String = " INSERT INTO " & PadSqlColumnName(sTableName) & _ Next If chkSQL2008.Checked Then If sValues " " Then sValues += ", " SRow = " " For i = 0 To oSchemaRows.Count - 1 If sRow " " Then

Next Dim sValues As String = " " While dr.Read() The application uses JET OLEDB connection string property " Jet OLEDB:Database Password" for the password.Ĭopy Code Private Sub CopyTableJet( ByVal sTableName As String, dr As OleDbDataReader, _ĭim oSchemaRows As Data.DataRowCollection = dr.GetSchemaTable.Rowsĭim sRow As String Dim i As Integer Dim iRow As Integer = 0 Dim iRowCount As Integer = 0 ' Get Header Dim sHeader As String = " " For i = 0 To oSchemaRows.Count - 1 Dim sColumn As String = oSchemaRows(i)( " ColumnName") Pradox DB files can be password protected. This is why it is compiled in 32 bit mode. It uses Microsoft Jet OLEDB provider to read data in 32 bit mode. The application uses Petr Briza library to do records counts for each table. It will also try to copy files locally in case they are located on a network drive. The application will create tables in the SQL server database and copy the data. It is fairly simple: you select the folder where Paradox database files reside, select the SQL Server database you want to copy the tables, select the tables you want to copy and click " Copy tables". NET reader" library developed by Petr Briza. This application uses the " Paradox database native. I hope someone else will also find this code useful. I developed this application to help me migrate Paradox database to SQL Server.