Komputer kampus

Anda sedang di : HomePemrograman › Koneksi Database MySQL Dengan Visual Basic 6.0

Artikel Berdasarkan Tag   hacking     cms lokomedia     google     template     email     materi kuliah     ubuntu     backtrack 5     windows xp     windows 7     database     visual basic     foxpro     opensuse     netbeans     STMIK Indonesia     domain     hosting     SEO     adsense     HTML     CSS     Javascript     PHP     lainnya     bisnis online     tips dan trik     internet     tutorial     hiren boot cd     virtualbox     flashdisk     facebook     website     cracking    

Koneksi Database MySQL Dengan Visual Basic 6.0

Diposting oleh : Hazmi Fadhilah
Minggu, 10 Maret 2013 - 18:39:29 WIB - Kategori: Pemrograman - Dibaca: 25440 kali

Setelah sekian lama vakum dari dunia blog karena banyaknya aktifitas yang saya lakukan  (padahal cuma main game online) akhirnya bisa update artikel lagi di awal tahun 2013 ini (bulan 3 masih awal kan?) :D .., okay sambil merapikan blog yang mulai usang karna lama gak di urus, pada kesempatan kali ini saya akan berbagi tutor tentang cara koneksi database MySQL dengan Visual Basic 6.0. Sebelum kita mulai, pertama kalian harus install dulu driver MySQL ODBC untuk menghubungkan database kedalam program nantinya. download disni

Nah jika drivernya sudah terinstall sekarang kita mulai tutornya, pertama buat dulu database MySQLnya dengan Xampp di PHPMyadmin dengan nama latihansqldb.

Nama table = latihansqldb

Field = 3

Nama

Tipe Data

Keterangan

Nrp

Varchar(10)

Primary Key

Nama

Varchar(30)

 

jurusan

ENUM(‘Sistem Informasi’,’Teknik Informatika’,’Komputer Akuntansi’,’Manajemen Informatika’)

Default : Sistem Informasi

 

Atau anda bisa langsung import table databasenya dari folder File Database yang sudah saya sediakan di file source code nya.

Setelah membuat database selesai, desain form seperti dibawah ini :

Komponen yang digunakan dalam form ini dan konfigurasinya adalah :

Komponen

Property

Nilai

Form

Name

LATSQL

Caption

Latihan Database MySQL

Text1

Name

Txtnrp

Text2

Name

Txtnama

Text3

Name

Txtjurusan

MsFlexfrid

Name

Gridmhs

 

Jika sudah selesai desain formnya,, sekarang kita buat modul untuk setting koneksi ke database MySQL yg telah kita buat sebelumnya, untuk membuka modul caranya pilih menu Project > Add Modul > Open. Setelah muncul jendela koding modul, ketikkan koding dibawah ini :

Option Explicit
Public KonekDb As New ADODB.Connection
Public Rs_mhs As New ADODB.Recordset

Public SQLubah, SQLsimpan, SQLhapus As String
Sub BukaDatabase()
    Dim strSS, strPort, strDB, strUID, strPWD As String   
            strSS = "localhost"
            strPort = "3306"
            strDB = "latihansqldb"
            strUID = "root"
            strPWD = ""
    Set KonekDb = New ADODB.Connection
    KonekDb.CursorLocation = adUseClient  
KonekDb.ConnectionString = "" _
        & "DRIVER={MYSQL ODBC 3.51 Driver};" _
        & "SERVER=" & strSS & ";" _
        & "DATABASE=" & strDB & ";" _
        & "UID=" & strUID & ";" _
        & "PWD=" & strPWD & ";" _
        & "OPTION="            
    On Error Resume Next
    If KonekDb.State = adStateOpen Then
        KonekDb.Close
        Set KonekDb = New ADODB.Connection
        KonekDb.Open
    Else
        KonekDb.Open
    End If
    If Err.Number <> 0 Then
        MsgBox "GAGAL KONEKSI SERVER", vbOKOnly, "Kesalahan"
    End If
End Sub

Setelah membuat modul koneksi, sekarang masuk kedalam form yang kita buat tadi dan ketikkan koding berikut di form load, tombol simpan, edit, hapus, keluar dan flexgrid.

Private Sub Form_Load()
Call BukaDatabase
Call TampilGridData
cmbjurusan.Clear
cmbjurusan.AddItem "Sistem Informasi"
cmbjurusan.AddItem "Teknik Informatika"
cmbjurusan.AddItem "Komputer Akuntansi"
cmbjurusan.AddItem "Manajemen Informatika"
End Sub
Sub kosong()
txtnrp.Text = ""
txtnama.Text = ""
cmbjurusan.Text = ""
End Sub

Sub Aktifgridmhs()
    With gridmhs
        .Cols = 3
        
        .RowHeightMin = 300
        .Col = 0
        .Row = 0
        .Text = "NRP"
        .CellFontBold = True
        .ColWidth(0) = 1700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 1
        .Row = 0
        .Text = "NAMA"
        .CellFontBold = True
        .ColWidth(1) = 2500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 2
        .Row = 0
        .Text = "JURUSAN"
        .CellFontBold = True
        .ColWidth(2) = 2650
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
    End With
End Sub

Sub TampilGridData()
    Dim Baris As Integer
    gridmhs.Clear
    Call Aktifgridmhs
    gridmhs.Rows = 2
    Baris = 0  
    Set Rs_mhs = New ADODB.Recordset
    Rs_mhs.Open "SELECT * FROM mhs", KonekDb, adOpenDynamic, adLockOptimistic
        With Rs_mhs
        .MoveFirst
        Do While Not .EOF
            On Error Resume Next
            Baris = Baris + 1
            gridmhs.Rows = Baris + 1
            gridmhs.TextMatrix(Baris, 0) = !nrp
            gridmhs.TextMatrix(Baris, 1) = !nama
            gridmhs.TextMatrix(Baris, 2) = !jurusan
        .MoveNext
        Loop
        End With
   End Sub

Private Sub cmdsimpan_Click()
Set Rs_mhs = New ADODB.Recordset
            Rs_mhs.Open "SELECT * FROM mhs WHERE nrp='" & txtnrp.Text & "'", _
            KonekDb, adOpenDynamic, adLockBatchOptimistic
If Rs_mhs.BOF Then
                SQLsimpan = ""
                SQLsimpan = "INSERT INTO mhs (nrp,nama,jurusan)" _
                    & " VALUES('" & txtnrp.Text & "','" & txtnama.Text & "','" _
                    & cmbjurusan.Text & "')"
                KonekDb.Execute SQLsimpan, , adCmdText
                Call Form_Load
                MsgBox "DATA BARU TELAH TERSIMPAN", vbOKOnly + vbInformation, "INFO"
            Else
                MsgBox "NRP SUDAH ADA", vbOKOnly + vbInformation, "INFO"
            End If
Rs_mhs.Requery
Call kosong
Call TampilGridData
End Sub

Private Sub cmdedit_Click()
            SQLubah = "UPDATE mhs " _
                & " set nama='" & txtnama.Text & "', " _
                & " jurusan='" & cmbjurusan.Text & "' " _
                & " WHERE nrp='" & txtnrp.Text & "'"
            KonekDb.Execute SQLubah, , adCmdText
            Call kosong
            Call Form_Load
            MsgBox "DATA mhs TELAH DIUBAH", vbOKOnly + vbInformation, "Konfirmasi"
Rs_mhs.Requery
Call TampilGridData     
End Sub

Private Sub cmdhapus_Click()
hapus = MsgBox("yakin ingin menghapus data ini?", vbQuestion + vbYesNo, "Hapus")
If hapus = vbYes Then
        SQL = "DELETE FROM mhs WHERE nrp='" & txtnrp.Text & "'"
        KonekDb.Execute SQL, , adCmdText      
        Rs_mhs.Requery
        Call kosong
        Call TampilGridData
    Else
    Call kosong
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub	
Private Sub gridmhs_DblClick()
    GridBaris = gridmhs.Row
    Set Rs_mhs = New ADODB.Recordset
    Rs_mhs.Open " SELECT * FROM mhs WHERE nrp='" & gridmhs.TextMatrix(GridBaris, 0) & "' " _
            , KonekDb, adOpenDynamic, adLockOptimistic
    If Rs_mhs.BOF Then
        MsgBox "TABEL MASIH KOSONG", vbOKOnly + vbInformation, "Perhatian"
        Exit Sub
        Call kosong
    Else
        Rs_mhs.MoveFirst
        Do While Not Rs_mhs.EOF
            On Error Resume Next
            txtnrp.Text = Rs_mhs!nrp
            txtnama.Text = Rs_mhs!nama
            cmbjurusan.Text = Rs_mhs!jurusan
        Rs_mhs.MoveNext
        Loop
    End If
End Sub

Jika semua koding sudah diketikkan coba jalankan form yang telah diisi dengan koding diatas, jika berhasil, maka akan tampil seperti gambar dibawah ini :

Okay, sampai disini dulu tutor vb nya, semoga bermanfaat buat teman2 yang ingin belajar VB 6.0. ^^

Sampai jumpa lagi di pembahasan selanjutnya :D

DOWNLOAD SOURCE CODE DISINI

DOWNLOAD DRIVER MYSQL ODBC


Artikel ini juga saya post di blog saya : http://fadilcrows.blogspot.com/




    Via FeedBurner
Program Keterangan NRP Sederhana Menggunakan Visual Basic 6.0
Pada artikel kali ini saya akan membuat program sederhana untuk menampilkan keterangan dari NRP ..
Membuat Database Dengan Visual Data Manager pada Visual Basic 6.0
Alhamdulillah akhirnya bisa posting n berbagi ilmu lagi setelah sibuk dengan pembuatan pra ..
Cara Koneksi Database Access pada Visual Basic Menggunakan ADODC
Setelah membahas tentang tata cara dan teknik pembuatan database, sekarang saya akan membahas ..
Pencarian Dengan Metode Find, Move dan SQL Pada ADO Menggunakan Visual Basic 6.0
Akhirnya bisa posting artikel lagi setelah beberapa lama tertunda karena menyelesaikan pembuatan ..

Komentar Via Facebook :

24 Komentar via komputer kampus :

1

rini
11 Maret 2013 - 01:09:06 WIB

wah ternyata sulit juga ya belajar pemrograman hmmmm :)

2

Fadil
11 Maret 2013 - 07:35:15 WIB

kalo dah tau dasarnya, gak terlalu sulit kok mba :)

3

Nakusan Bali
14 Maret 2013 - 22:48:04 WIB

izin bookmark sob. mau saya pelajari.
saya nggak begitu ngerti soal databes mysql.

4

Fadil
15 Maret 2013 - 19:28:56 WIB

okay siipp gan ^_^

5

hanip
22 Maret 2013 - 23:56:59 WIB

.. daftarnya tu gi mana sih gan ??? buat akun dlu bru rgister ?? huhu

6

Fadil
24 Maret 2013 - 13:31:38 WIB

untuk daftar gak perlu daftar,,tp matikan dulu IDM nya gan,, :)

7

novi
06 April 2013 - 08:21:01 WIB

sudah saya coba mirip banget sama punya kakak
tapi masih muncul eror di modulnya ada muncul " compile eror... user-defined type not defined.. gimana ini kak? apakah harus aktifin mysql odbc dulu atau gmana ya ? thanks

8

novi
06 April 2013 - 08:24:39 WIB

maaf saya tadi coment artikel kakak yg judulnya KONEKSI DATABASE MYSQL DENGAN VB.6
tlg di jawab pertanyaan saya tadi kak hehe
thanks

9

Fadil
06 April 2013 - 17:23:40 WIB

install dulu driver ODBC nya mba :)
disitu sudah saya upload driver odbcnya,,tinggal download aja.

10

lumu
20 April 2013 - 23:17:30 WIB

kok gak bisa ya di module error padahal odbcnya uda di install

11

Fadil
21 April 2013 - 00:46:02 WIB

errornya di modul bagian mana nya gan?

12

Robi
10 Juni 2013 - 15:29:15 WIB

itu Nama table = latihansqldb ?? apa nama tablenya mhs ?? mohon pencerahannya

13

Aditya Astari
20 Juni 2013 - 09:53:37 WIB

Link sudah terpasang gan
:)
cek: asta95.blogspot.com

14

Juli
02 Juli 2013 - 01:32:02 WIB

ka kalau bikin cetak kwitansi dengan crystal report bagaimana sih..
saya bikin ko tampilan crystal reportnya semua recort yang keluar bukan yang pertransaksi
mohon dibantu ka ^_^

15

Juli
02 Juli 2013 - 05:16:04 WIB

debug either bof or eof is true or the current record has been deleted requested operation requires a current record

pada coding
Sub tampilgrid1()
Dim Baris As Integer
grid1.Clear
Call Aktifgrid1
grid1.Rows = 2
Baris = 0
Set rinput_klien = New ADODB.Recordset
rinput_klien.Open "SELECT * FROM input_klien", dbado, adOpenDynamic, adLockOptimistic
With rinput_klien
.MoveFirst

Do While Not .EOF
On Error Resume Next
Baris = Baris + 1
grid1.Rows = Baris + 1
grid1.TextMatrix(Baris, 0) = !no_akta
grid1.TextMatrix(Baris, 1) = !tanggal
grid1.TextMatrix(Baris, 2) = !jenis_akta
grid1.TextMatrix(Baris, 3) = !nama1
grid1.TextMatrix(Baris, 4) = !ktp_1
grid1.TextMatrix(Baris, 5) = !alamat1
grid1.TextMatrix(Baris, 6) = !tlpn1
grid1.TextMatrix(Baris, 7) = !nama2
grid1.TextMatrix(Baris, 8) = !ktp2
grid1.TextMatrix(Baris, 9) = !alamat2
grid1.TextMatrix(Baris, 10) = !tlpn2
grid1.TextMatrix(Baris, 11) = !n

16

fauzi
31 Juli 2013 - 10:35:12 WIB

terima kasih om udah mau share...
beginilah indahnya berbagi :)

17

zobo
26 Agustus 2013 - 19:21:49 WIB

mantabbbb
makasih gan tutornya
sangat bermanfaat

18

Afrizal
06 September 2013 - 09:24:31 WIB

Trims ya...
Saya mau mengabungkan dua tabel, program di VB, database di mySQL. Query sudah betul dan jalan di phpmyAdmin. Tapi query tidak jalan di VB. Jadi data tidak ketemu. Misal ada dua tabel TMitem dan TSaleDetil yang akan digabungkan.

strSQL = "...."
strSQL dijalankan di phpmyAdmin....ada data
tapi di VB6 tidak keluar....
Kira kira apa penyebabnya?

19

salim
14 Oktober 2013 - 22:34:27 WIB

ka ko pas saya start form nya bertuliskan gagal koneksi server maksud dan cara ngatasinnya gimana
aku udah install driver dan import sql nya di xampp

20

dwie
29 Oktober 2013 - 18:04:33 WIB

coba cek di blok ini :

http://dwieztro.blogdetik.com/?p=15




21

obat asam urat
19 Desember 2013 - 15:03:53 WIB

boleh juga nih di coba..

22

Budiman
24 Agustus 2014 - 09:56:54 WIB

Koneksi ke Mysql seperti ini sangat bermanfaat, saya coba konek XAMPP ternyata berhasil.

Terima kasih

23

zaskia
15 September 2014 - 05:07:46 WIB

nice post sob..
article yang menarik,saya tunggu article berikutnya yach.hehe..
maju terus dan sukses selalu...salam kenal yach...
kunjungi blog saya ya sob,banyak tuh article2 yang seru buat dibaca..
agen poker online terpercaya...poker uang asli..
http://chaniaj.blogspot.com/ dan situs kesayangan kami http://oliviaclub.com
serta sites.google kebanggaan kami https://sites.google.com/site/pokeronlineterpopuler/

di oliviaclub.com poker online uang asli terbaik di indonesia dengan teknologi teraman dan tercanggih.
main dan ajak teman anda bergabung dan dapatkan 20% referral fee dari house commision untuk turnover teman ajakan anda...
kunjungi link unggulan kami:
-http://mentaripoker.com
-http://royalflus h.com
-http://rimbapoker.com
blognya temen http://poker-online-indonesia-2014.blogspot.com/

24

adinda
16 September 2014 - 08:42:30 WIB

ka, gue lagi belajar buat aplikasi nih uji coba hasil tanah
mau tanya dong sytanx buat ini ni apa ya ..
<2% = 1.1000
2-4% = 0.9900
>4% =0.8800

dibantu ya ka penting nih makasih


Form Komentar Via Komputer kampus :

Nama *
Email *
Web/blog
Komentar *
  Karakter yang masih tersedia.
Captcha *

Untuk menghindari kontak spam dan memastikan bahwa anda adalah seorang manusia, maka jawablah pertanyaan keamanan berupa foto sahabat disamping. Mohon maaf atas ketidak nyamanan ini

 

M Najamudin Ridha Kuliah di STMIK Indonesia Banjarmasin jurusan TI, mengenal internet di tahun 2009 yang saat itu cuma sekedar iseng-iseng bikin blog biasa, walaupun sebelumnya tidak suka membaca dan apalagi menulis (artikel) akhirnya mulai menyukai kedua hal tersebut.

Kategori Artikel


RSS Feed


Langganan RSS
komputerkampus.com


Cari Artikel



Statistik Web


Pengunjung hari ini : 131
Total pengunjung : 278121
Hits hari ini : 540
Total Hits : 2294814
Pengunjung Online : 8

Poling


Apa OS yang anda gunakan ?
windows (xp, vista, 7, 8 dll)
linux (all distro linux)
Mac OS
OS Lain

    Lihat Hasil Poling

Link Sahabat


http://bukulokomedia.com
http://fadilcrows.blogspot.com
http://najamudin1.blogspot.com
http://nahdisnape.blogspot.com

Link Lainnya