Membuat Database MySql dengan Visual Basic 6.0

LOGIKA PROGRAM

Pertama-tama kita harus menginstal terlebih dahulu xampp, kemudian aktifkan mysql melalui xampp dengan mengklik start pada bagian mysql. Jika sudah, akan muncul portnya, yang bertanda bahwa mysql sudah aktif.

Kemudian kita masuk ke command prompt lalu ketikkan di command prompt seperti ini:

Kemudian buatlah databasenya dengan mengetikkan “create data_karyawan” kemudian diakhir tambahkan tanda titik koma kemudian enter.

Kemudian ketikkan “use karyawan”, kalimat ini berfungsi untuk menggunakan atau memanggil database yang tadi telah dibuat.

Kemudian buatlah table dengan cara mengetikkan “create table namatable(nama1 tipedata, nama2 tipedata).

Kemudian kita isi table tersebut dengan cara mengetikkan “insert into namatable (nama1,nama2)values(‘nama1’,’nama2’).

Kemudian buka ODBC Connector. Lalu add pada ODBC Connector kemudian pilih “MySQL ODBC 5.3 ANSI Driver” lalu klik finish.

Tentukan nama data_source apa yang diinginkan, misalnya disini saya akan menggunakan nama “karyawan_firda”. Kemudian ketikkan pada user root lalu pilih database mana yang ingin kita gunakan. Jika sudah maka klik test. Setelah berhasil disambungkan k ODBC Connector, maka buka aplikasi Visual Basic 6.0. 

Kemudian pada Visual Basic bukalah components dengan cara ctrl + T, lalu pilih atau cekllis pada Microsoft adodata control dan Microsoft datagrid control. Klik apply lalu ok. Maka component yang kita tambahkan akan muncul dengan sendirinya di toolbox.

Kemudian drag and drop component tersebut ke dalam formnya dengan semenarik mungkin, lalu ditambahkan juga 8 Label, 8 TextBox, sera Command Button untuk menginput database dan menjalankan perintah yang diinginkan.

Kemudian ganti name pasa TextBox1 dengan mengetikkan “txt_nip” dan seterusnya sampai pada TexrBox yang terakhir “txt_nohp”.

Kemudian ketikkan kodingan pada Command Button simpan, Command Button edit, dan Command Buttton hapus.

Kemudian jalankan program dengan cara mengklik tombol f5 pada keyboard, maka program akan jalan dan menghasilkan output yang diinginkan.

LISTING PROGRAM

Dim koneksi As ADODB.Connection Dim query As String Dim tampungid As String

Sub conn()     Set koneksi = New ADODB.Connection     koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=tutormysql" End Sub

Private Sub Command1_Click()     query = "INSERT INTO karyawan VALUES ('" & txt_NIP.Text & "', '" & txt_Nama.Text & "', '" & txt_Alamat.Text & "', '" & txt_Jenis_Kelamin.Text & "', '" & txt_Status.Text & "', '" & txt_Tunjangan.Text & "', '" & txt_Gaji.Text & "', '" & txt_NoHP.Text & "')"     koneksi.Execute query         txt_NIP.Text = ""     txt_Nama.Text = ""     txt_Alamat.Text = ""     txt_Jenis_Kelamin.Text = ""     txt_Status.Text = ""     txt_Tunjangan.Text = ""     txt_Gaji.Text = ""     txt_NoHP.Text = ""         Adodc1.Refresh     Set DataGrid1.DataSource = Adodc1 End Sub

Private Sub Command2_Click() query = "UPDATE karyawan SET NIP = '" & txt_NIP.Text & "', Nama = '" & txt_Nama.Text & "', Alamat = '" & txt_Alamat.Text & "', Jenis_Kelamin = '" & txt_Jenis_Kelamin.Text & "', Status = '" & txt_Status.Text & "', Tunjangan = '" & txt_Tunjangan.Text & "', Gaji = '" & txt_Gaji.Text & "', NoHP = '" & txt_NoHP.Text & "' WHERE NIP = '" & tampungid & "'" koneksi.Execute query Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub

Private Sub Command3_Click()     query = "DELETE FROM karyawan WHERE NIP = '" & tampungid & "'"     koneksi.Execute query         Adodc1.Refresh     Set DataGrid1.DataSource = Adodc1         txt_NIP.Text = ""     txt_Nama.Text = ""     txt_Alamat.Text = ""     txt_Jenis_Kelamin.Text = ""     txt_Status.Text = ""     txt_Tunjangan.Text = ""     txt_Gaji.Text = ""     txt_NoHP.Text = "" End Sub

Private Sub DataGrid1_Click() tampungid = Adodc1.Recordset.Fields("NIP") txt_NIP.Text = Adodc1.Recordset.Fields("NIP") txt_Nama.Text = Adodc1.Recordset.Fields("Nama") txt_Alamat.Text = Adodc1.Recordset.Fields("Alamat") txt_Jenis_Kelamin.Text = Adodc1.Recordset.Fields("Jenis_Kelamin") txt_Status.Text = Adodc1.Recordset.Fields("Status") txt_Tunjangan.Text = Adodc1.Recordset.Fields("Tunjangan") txt_Gaji.Text = Adodc1.Recordset.Fields("Gaji") txt_NoHP.Text = Adodc1.Recordset.Fields("NoHP") End Sub

Private Sub Form_Load()     Call conn     Adodc1.ConnectionString = koneksi     Adodc1.RecordSource = "karyawan"     Adodc1.Refresh         Set DataGrid1.DataSource = Adodc1 End Sub

OUTPUT PROGRAM