Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Koneksi Visual Basic 6 (VB6) dengan database MySQL Mon 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 ! 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 [You must be registered and logged in to see this link.] |
|
Change Your Avatar --------------> gugun.kang
Rank : Level two
Jumlah posting : 2 Point : 2 Reputasi : 0 Join date : 2012-09-29
| Subject: Re: Koneksi Visual Basic 6 (VB6) dengan database MySQL Sat 29 Sep 2012, 23:43 | |
| 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 |
|