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

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang 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
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

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

1. Anda Harus Download ODBC MySQL Connect Download Disini.
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 !

5. Klik project di menu atas kemudian add komponen pilih komponen seperti gambar dibawah !

6. Buat Tampilan Form seperti gambar di bawah ini !

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

10. Mau download source Codenya Download disini
Back to top Go down
http://software-download1001.blogspot.com/


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


gugun.kang

Level two
Rank : Level two


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

PostSubject: Re: Koneksi Visual Basic 6 (VB6) dengan database MySQL   Sat 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 
Page 1 of 1

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

Private forum on Forumotion | © phpBB | Free forum support | Contact | Report an abuse | Free forum