Hello,
Please help:
I am trying to convert HyperFileSqlDatabase to mdb database using this code:
****************************************
Code:
Imports System.Data.OleDb
Imports System.Data.Odbc
Imports System.Text
Imports System.Data.SqlClient
Imports System.Data
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New ADOX.Table
If System.IO.File.Exists("d:\1.mdb") = True Then
System.IO.File.Delete("d:\1.mdb")
End If
If System.IO.File.Exists("d:\1.ldb") = True Then
System.IO.File.Delete("d:\1.ldb")
End If
If System.IO.File.Exists("d:\1.txt") = True Then
System.IO.File.Delete("d:\1.txt")
Dim ConnectionStr1 As String = "Provider=PCSoft.HFSQL;Initial Catalog="D:\"
Dim ConnectionStr2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "d:\1.mdb"
Try
Dim Connection1 As OleDbConnection = New OleDbConnection(ConnectionStr1)
Dim Connection2 As OleDbConnection = New OleDbConnection(ConnectionStr2)
Connection1.Open()
Connection2.Open()
Dim OleDbCmd1 As OleDbCommand = New OleDbCommand("SELECT * from Employees", Connection1)
Dim OleDbRd1 As OleDbDataReader = OleDbCmd1.ExecuteReader
Dim ByteImage() As Byte
Dim Name, Info1, Info2, Info3, Info4,Image As String
Dim ID As Integer