Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung
Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung
Forum Informatika
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeLatest imagesPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 Koneksi Visual Basic 6 (VB6) dengan database MySQL

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->

admin
admin

Admin
Rank : Admin


My Pets : Koneksi Visual Basic 6 (VB6) dengan database MySQL Emoticon-animal-028
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia

Koneksi Visual Basic 6 (VB6) dengan database MySQL Empty
PostSubject: Koneksi Visual Basic 6 (VB6) dengan database MySQL   Koneksi Visual Basic 6 (VB6) dengan database MySQL I_icon_minitimeMon 18 Apr 2011, 22:38

1. Anda Harus Download ODBC MySQL Connect [You must be registered and logged in to see this link.].
2. Buat Database MySQL nya terlebih dahulu ( Contohnya dengan menggunakan MySQL XAMPP )
3. Setelah selesai buat databasenyakemudian buka VB6 nya (Windows Form ) beri nama frmMain.
4. Klik Project di menu atas kemudian add references pilih refences yang seperti gambar dibawah !
Koneksi Visual Basic 6 (VB6) dengan database MySQL 114
5. Klik project di menu atas kemudian add komponen pilih komponen seperti gambar dibawah !
Koneksi Visual Basic 6 (VB6) dengan database MySQL 213
6. Buat Tampilan Form seperti gambar di bawah ini !
Koneksi Visual Basic 6 (VB6) dengan database MySQL 411
7. Setelah itu masukan sebuah module dengan nama mysqlConn klik project -> add Module
Code:

    Option Explicit
Public conn As New ADODB.Connection 'Connection to be used to mysql database

Public Function OpenConn(srvIP As String, dbNAme As String, dbUser As String, dbPass As String, dbPORT As Long)
    On Error GoTo errH
   
    If conn.State <> 0 Then conn.Close 'Check if currently connected if yes, disconnect.
   
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & srvIP & ";DATABASE=" & dbNAme & ";" _
                                & "UID=" & dbUser & ";PWD=" & dbPass & "; PORT=" & dbPORT & "; OPTION=3"
    conn.Open  'open the connection
    Exit Function
errH:
    MsgBox Err.Description, vbCritical, "ERROR!"
       
End Function


Public Function getTables(listname As ListBox) 'Retrieve tables from database then add to list
Dim rs1 As New ADODB.Recordset

       
        Set rs1 = conn.OpenSchema(adSchemaTables)
        listname.Clear
        Do While Not rs1.EOF
                       
            Debug.Print rs1.Fields("TABLE_NAME")
            listname.AddItem (rs1.Fields("TABLE_NAME"))
            rs1.MoveNext
           
        Loop
   
End Function


Public Function getFields(rs As ADODB.Recordset, lstBox As ListBox) 'Retrieve fields then add to list
Dim numFlds As Integer
Dim i As Integer
    numFlds = rs.Fields.Count - 1
    lstBox.Clear
    For i = 0 To numFlds
        Debug.Print rs.Fields(i).Name
        lstBox.AddItem rs.Fields(i).Name
    Next i
   
End Function

8. Pada Form masukan coding berikut tetapi sebelumnya kalau ada code hapus semua dulu baru di paste
Code:

Option Explicit
Dim rs As New ADODB.Recordset

Private Sub cmdConnect_Click()
    OpenConn txtIP, txtDBName, txtDBU, txtDBPass, txtDBPort
   
    If conn.State <> 0 Then
        getTables Listtble
    End If
End Sub

Private Sub cmdExecute_Click()
On Error GoTo errH
    If rs.State <> 0 Then rs.Close
   
    rs.CursorLocation = adUseClient
    rs.Open txtQuery.Text, conn, adOpenKeyset, adLockOptimistic
    getFields rs, lstFields
    If rs.RecordCount > 0 Then
        Set dg.DataSource = rs
        dg.Refresh
        sb.Panels(1).Text = rs.RecordCount & " records found"
    End If
   
    Exit Sub
errH:
MsgBox Err.Description, vbCritical, "Error!"
   
End Sub

 

9. setelah itu jalankan programnya hasilnya akan seperti ini
Koneksi Visual Basic 6 (VB6) dengan database MySQL 511
10. Mau download source Codenya [You must be registered and logged in to see this link.]
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->

gugun.kang
gugun.kang

Level two
Rank : Level two


Jumlah posting : 2
Point : 2
Reputasi : 0
Join date : 2012-09-29

Koneksi Visual Basic 6 (VB6) dengan database MySQL Empty
PostSubject: Re: Koneksi Visual Basic 6 (VB6) dengan database MySQL   Koneksi Visual Basic 6 (VB6) dengan database MySQL I_icon_minitimeSat 29 Sep 2012, 23:43

Very Happy mas admin , saya biasa pake WAMP Server
kalau datanya membengkak > terus di export

ketika mau di import kok hanya sanggup up to 8 MB y ? Apa bisa diperbesar maximal size pada Fitur import di wamp server nya

terima kasih alien
Back to top Go down
 

Koneksi Visual Basic 6 (VB6) dengan database MySQL

View previous topic View next topic Back to top 

 Similar topics

-
» KONEKSI DATABASE dengan visual basic
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 3
» Membuat Icon Tray dengan visual basic 6 (Menyembunyikan aplikasi dengan vb6)
» Aplikasi Penjualan Pulsa dengan Visual Basic 6
» Aplikasi Penjualan Pulsa dengan Visual Basic 6 Part 4
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Create a forum on Forumotion | ©phpBB | Free forum support | Report an abuse | Forumotion.com