Selasa, 31 Desember 2013

Add,Edit,Delete,Search di VB 6 ke Mysql (localhost)

Kali ini tutorial VB 6 nya mengkoneksikan Vb ke MySQL pakai server local host / phpmyadmin ,yg bisa di dapatkan dari software Appserv atau XAMPP , saya disini memakai appserv-win32-2.5.10 sebagai localhostnya dan mysql-connector-odbc-3.51.30-win32.msi (butuh di install kedua software ini, untuk mengkoneksikan mysqlnya).

.Yang gk punya appserv dan mysql connector odbc nya minta aja ma aku, comment aja di kotak komentar, nnti di bales download linknya. Ok langsung saja.

1. Buat database di localhostnya dgn nama latihan, lalu buat table dgn nama biodata jumlah field 5 , fieldnya seperti berikut:








Kalau sudah Save databasenya.
2. Buat dsn nya, seperti ini: (sebelum melakukan ini kamu pastikan sudah menginstal mysql connector ODBC nya)
• Buka Control panel (aku windows 7) » System and Security » Administrative Tools » click Data Source (ODBC) dan tampil tampilan berikut:
Click tombol ADD » pilih MySQL ODBC 3.51 Driver lalu
Finish.
muncul tampilan baru, isi seperti berikut: 
Isi sesuai data disamping , oh ya ketika kamu menginstall Appserv pasti diminta setting Password dan user. disini user saya adalah root dan password saya 12345. isikan data sesuai Detail Appserv kamu saat menginstall.
coba click Test, jika berhasil click Ok.
Sip coba liat dsnlatihan sudah terbuat Ok.











Sekarang buat aplikasi Vbnya,
Buka Vb seperti biasa,
.Lalu tambahkan component Datagrid , Adodc , dan Common dialog dgn cara Tekan tombol Ctrl + T lalu akan tampil tampilan berikut:
Checklist  • Microsoft Common Dialog Control 6.0
                 • Microsoft ADO Data Control  6.0 (OLEDB)
                 • Microsoft Datagrid Control 6.0 (OLEDB) lalu Apply dan Ok,

Lalu design formnya seperti berikut:














-------------------------------------------------------------------------------------------
Propertiesnya seperti berikut:
 oh ya lupa, common dialog1 nya . Visiblenya jadi False.
Okeh sudah siap ??... aku anggap ja lh dh siap :).

 Setting Adodc nya dahulu Click kanan Adodc1nya Pilih ADODC Properties » Use Data Source Name » Pilih dsnlatihan , sip, Pilih tab RecordSource Command type= 2-adcmdTable  , Table or Stored Procedure Name = biodata. click Apply dan Ok.














 Selanjutnya kita menambahkan script.

1. Click tombol Add , masukin script ini:
Private Sub cmdAdd_Click()
If txtNama = "" Or txtAlamat = "" Or txtTelephone = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!nama = txtNama
Adodc1.Recordset!alamat = txtAlamat
Adodc1.Recordset!telp = txtTelephone
Adodc1.Recordset!foto = CommonDialog1.FileName
MsgBox "Data insert completed"
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data cannot inserted", vbExclamation
txtNama.SetFocus
End If
End If
End Sub

2. Tombol Update
Private Sub cmdUpdate_Click()
If txtNama = "" Or txtAlamat = "" Or txtTelephone = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset!nama = txtNama
Adodc1.Recordset!alamat = txtAlamat
Adodc1.Recordset!telp = txtTelephone
Adodc1.Recordset!foto = CommonDialog1.FileName
MsgBox "Data update completed", vbInformation
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data connaot completed update", vbCritical
txtNama.SetFocus
End If
End If
End Sub

3. Tombol Delete
Private Sub cmdDelete_Click()
If txtNama = "" Then
MsgBox "Data not completed"
Else
Adodc1.Recordset.Delete
txtNama = ""
txtAlamat = ""
txtTelephone = ""
txtAlamatFoto = ""
Image1.Picture = Nothing
MsgBox "Data deleted completed"
txtNama.SetFocus
If Err.Number <> 0 Then
MsgBox "Data cannot deleted", vbExclamation
txtNama.SetFocus
End If
End If
End Sub

4. Tombol Clear
Private Sub cmdClear_Click()
txtNama = ""
txtAlamat = ""
txtTelephone = "'"
txtAlamatFoto = ""
Image1.Picture = Nothing
End Sub

5. Tombol Close
Private Sub cmdClose_Click()
psn = MsgBox("Are you sure want exit", vbYesNo, "Exit")
If psn = vbYes Then
End
Else
End If
End Sub

6. Tombol Search
Private Sub cmdSearch_Click()
Adodc1.Recordset.Filter = "id_biodata = '" & txtSearch.Text & "'"
If txtSearch = "" Then
MsgBox "Please enter ID", vbExclamation
Else
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "Data found", vbInformation
txtNama = Adodc1.Recordset.Fields(1)
txtAlamat = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
txtAlamatFoto = Adodc1.Recordset.Fields(4)
Image1.Picture = LoadPicture(txtAlamatFoto)
Else
MsgBox "Data not found", vbCritical
txtNama = ""
txtAlamat = ""
txtTelephone = "'"
txtAlamatFoto = ""
Image1.Picture = Nothing
txtSearch.SetFocus
Adodc1.Refresh
End If
End If
End Sub

7. Tombol Browse
Private Sub cmdBrowse_Click()
CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

8. Click Datagird masukan script ini:
Private Sub DataGrid1_Click()
On Error Resume Next
txtNama = Adodc1.Recordset.Fields(1)
txtAlamat = Adodc1.Recordset.Fields(2)
txtTelephone = Adodc1.Recordset.Fields(3)
Text4 = Adodc1.Recordset.Fields(4)
Image1 = LoadPicture(Text4)
End Sub


Nice. dh siapun coba jalankan aplikasinya gimana ..? bagus / error error. berbagilah hasil mu dikotak komentar ..
Jika anda bingung ?!??!? .. dan mw full projectnya.. comment aja nanti aku replykan link download projectnya.
Good Luck :).  

6 komentar:

arief setiawan mengatakan...

mas design nya pakai module ngak ?

Unknown mengatakan...

kirim dong full projectnya

vhieza mengatakan...

kk tolonginnn akuuu
minta script buat aplikasi perpustakaan ngisi tombol peminjaman pengembalian admin dan siswa :(

Anonim mengatakan...

minta link proyeknya bro

kekey adhani mengatakan...

bsa mnta projectnya? krim k rizkykekey@gmail.com
terimakasih sebelumnya

Anonim mengatakan...

Add,Edit,Delete,Search Di Vb 6 Ke Mysql (Localhost) >>>>> Download Now

>>>>> Download Full

Add,Edit,Delete,Search Di Vb 6 Ke Mysql (Localhost) >>>>> Download LINK

>>>>> Download Now

Add,Edit,Delete,Search Di Vb 6 Ke Mysql (Localhost) >>>>> Download Full

>>>>> Download LINK

Posting Komentar

◄ Posting Baru Posting Lama ►
 

Blog Rank

View

Copyright © 2013-2014. Full Stack Coding Programming - All Rights Reserved Design by Blog Bamz