Catatanfey kali ini adalah menggabungkan dua dari catatan saya sebelumnya yakni Membuat koneksi dari Visual Basic 2008 ke Mysql dan Visual Basic 2008 Membaca File txt
berikut langkah-langkahnya:
1. buat sebuat project baru dengan nama koneskivbmysqldgntxt
2. Masukkan 1 buah label dan 2 button kedalam Form1
3. Buat sebuah module baru dengan cara klik kanan pada nama project di solution explorer, kemudian pilih add lalu pilih module.
4. berinama module tersebut dengan nama koneksi
5. Dalam module koneksi masukkan script
Imports System.Data.Odbc
Module koneksi
Dim fileReader As String = My.Computer.FileSystem.ReadAllText("config.txt")
Dim hasil() As String = Split(fileReader, Chr(13) & Chr(10))
Public conn As New OdbcConnection("Driver={MySQL ODBC 3.51
Driver};Server=" & hasil(0) & ";Database=" & hasil(1) &
";User=" & hasil(2) & ";Password=" & hasil(3) &
";Option=3;")
Sub bukakoneksi()
If conn.State = ConnectionState.Closed Then
Try
conn.Open()
Catch mex As OdbcException
MsgBox(mex.Message)
End Try
End If
End Sub
Sub tutupkoneksi()
conn.Close()
End Sub
End Module
6. Simpan terlebih dahulu project yg kita buat ini.
7. berinama koneskivbmysqldgntxt, kemudian ingat tempat kita menyimpan project ini.
8. Masuk ke tempat kita menyimpan project melalui windows explorer. Kemudian buat sebuah file txt dengan cara klik kanan pada jendela yg kosong, pilih new kemudian pilih Txt Document
9. Berinama file txt tersebut dengan nama config.txt
10. Masukkan data kedalam file config.txt dengan formasi nama server pada baris pertama, nama user pada baris ke dua, password server pada baris ke tiga dan nama database pada baris ke empat yang kemudian config inilah yang akan di baca pada saat program melakukan koneksi ke database. Simpan dan tutup kembali file config.txt.
11. Jalankan program
12. untuk source kode silahkan download di sini. caranya :
Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.
No comments:
Post a Comment