Cara Membuat Database MySQL Otomatis melalui Visual Basic 6.0
Cara Membuat Database MySQL Otomatis melalui Visual Basic 6.0 -
Lagi lagi postingan kali ini juga berdasarkan pengalaman sedang menyusun sebuah program TA. Kemudahan dalam membuat sebuah database yang berbasisi interface memang sudah banyak diketahui. Dan kesempatan kali ini saya coba posting cara membuat database MySQL otomatis melalui visual Basic 6.0. Atau mungkin lebih tepatnya adalah bagaimana cara mengimport database mysql melalui visual basic 6.0.
Pola kerja mengimport database Mysql ini melalui beberapa kali proses,yaitu :
membuat coding di visual basic untuk membuat file ".bat" yang berisi perintah perintah tertentu
mengeksekusi file ".bat" yang akan membuka command prompt dan mengimport database ".sql" ke phpmyadmin.
Berikut Listing code yang bisa rekan rekan terapkan dalam membuat database mysql melalui visual basic :
buat sebuah module dan isikan :
Sub database()
On Error Resume Next
Set pesen2 = CreateObject("scripting.filesystemobject")
Set isi2 = pesen2.Createtextfile("c:\buatdatabase.bat")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("c:")
isi2.writeline ("cd apache2triad")
isi2.writeline ("cd mysql")
isi2.writeline ("cd bin")
isi2.writeline ("mysql -u root -p mysql <" + """" & App.Path & """" + "\localhost.sql")
isi2.writeline ("password")
isi2.writeline ("password")
isi2.Close
Set dk = CreateObject("wscript.shell")
dk.run "c:/buatdatabase.bat"
End Sub
On Error Resume Next
Set pesen2 = CreateObject("scripting.filesystemobject")
Set isi2 = pesen2.Createtextfile("c:\buatdatabase.bat")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("cd..")
isi2.writeline ("c:")
isi2.writeline ("cd apache2triad")
isi2.writeline ("cd mysql")
isi2.writeline ("cd bin")
isi2.writeline ("mysql -u root -p mysql <" + """" & App.Path & """" + "\localhost.sql")
isi2.writeline ("password")
isi2.writeline ("password")
isi2.Close
Set dk = CreateObject("wscript.shell")
dk.run "c:/buatdatabase.bat"
End Sub
lalu buat sebuah form dengan satu command button :
Panggil sub buatdatabase dalam tombol "buat database", ketika di eksekusi tombol tersebut,maka secara otomatis membuat sebuah file di localdisk C: yang bernama "buatdatabse.bat" yang berisi listing untuk memanggil command prompt. Ketika command prompt muncul maka cukup ketikkan password localhost rekan rekan..
Tips : Pastikan buka aplikasi visual basic dengan "run as administrator" karena aplikasi ini masuk ke system windows..
sekian cara membuat database Mysql otomatis melalui visual basic. semoga membantu.
