Khusus buat yang pengen migrasi dari data clipper/xbase ke lingkungan dot
net.
Berikut contohnya:
1. buat form baru, tambahkan komponen:
a. texbox, misal dikasih nama txtData, untuk memasukkan lokasi/folder tempat
file DBF
b. combobox, kasih nama cbxTable, untuk menampilkan tabel-tabel DBF yang ada
di folder yang telah ditunjuk
c. datagridview, kasih nama dgvConvert, untuk menampilkan isi dari tabel
yang ditunjuk
d. 2 button, kasih nama btnCon dan btnOpen, btnCon untuk membuka koneksi
data dan btnOpen untuk membuka tabel
e. label, kasih nama lblData, untuk menampilkan keterangan banyaknya record
pada tabel
2. pada declaration ketikkan perintah berikut:
Imports System.Data.OleDb
3. dibawah public class kettikan perintah berikut:
Private cnDataConvert As New OleDbConnection
Private sDatabase As String
Private adConvert As OleDbDataAdapter
Private dsConvert As DataSet
Private dtConvert As DataTable
Private sSQL As String
Private sFlag As String = "0"
4. buat prosedur DataConnect dengan keterangan seperti di bawah ini:
Private Sub DataConnect()
Dim dtConvert As DataTable
Dim i As Integer
Dim obj As Object
sDatabase = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
txtData.Text & _
";User Id=admin;Password=;"
If sFlag <> "0" Then
cnDataConvert.Close()
sFlag = "0"
End If
cnDataConvert.ConnectionString = sDatabase
Try
cnDataConvert.Open()
sFlag = "1"
dtConvert = cnDataConvert.GetOleDbSchemaTable(
System.Data.OleDb.OleDbSchemaGuid.Tables, obj)
cbxTable.Items.Clear()
For i = 0 To dtConvert.Rows.Count - 1
If dtConvert.Rows(i)!TABLE_TYPE.ToString = "TABLE" Then
cbxTable.Items.Add(dtConvert.Rows
(i)!TABLE_NAME.ToString())
End If
Next
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Data Load Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End Try
End Sub
5. klik btnCon dan btnOpen, ketik perintah ini:
Private Sub btnCon_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCon.Click
DataConnect()
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnOpen.Click
sSQL = "SELECT * FROM " & cbxTable.Text
adConvert = New OleDb.OleDbDataAdapter
btnOpen.Enabled = False
lblData.Text = "0"
Try
adConvert.SelectCommand = New OleDbCommand(sSQL, cnDataConvert)
dsConvert = New DataSet
dtConvert = New DataTable
adConvert.Fill(dsConvert, cbxTable.Text)
adConvert.Fill(dtConvert)
dgvConvert.DataSource = dsConvert
dgvConvert.DataMember = cbxTable.Text
lblData.Text = dsConvert.Tables(cbxTable.Text).Rows.Count
Catch ex As Exception
MessageBox.Show(ex.Message, sError, MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
btnOpen.Enabled = True
End Sub
Ingin tau hasilnya? coba dulu dong, kalo gak dicoba kapan bisanya.... =P
Ini merupakan "sebagian" dari codingku buat migrasi dari database DBF ke
MySQL menggunakan VB.NET.
Terima kasih buat teman2 yang telah membantu dalam belajar VB.NET sampe ke
MySQL.
Kalo ada syntax2 yg menurut para ahli .NET di sini masih salah dan perlu
revisi mohon posting sekalian di sini atau japri ke emailku:
[EMAIL PROTECTED] (jerry704 at gmail do com), maklumlah masih belajar &
tergolong pemula di .NET (belajar + langsung implementasi) jadi masih banyak
kurangnya neh.
Peace,
9631100037
[Non-text portions of this message have been removed]
