Source Code Pendaftaran Member Klub Bola (VB 6 dan MYSQL)

Hari ini :

Program Pendaftaran Member Club Bola  adalah salah satu program yang saya buat dengan mengunakan VB 6 dengan database MYSQL. Ya, menggunakan tipe database yang biasanya digunakan untuk Web Programming.  Program ini termasuk jenis program yang sederhana, tetapi tetap komplek seperti program-program lainnya.

Terdiri atas 4 buah tabel antara lain :

TblAnggota, menampung data member yang sudah terdaftar

TblJabatan, menampung data jabatan yang ada di dalam Klub

TblLogin, menampung data siapa saja yang berhak untuk mengakses sistem.

TblPemain, menampung data para pemain barcelona

Untuk menghubungkan VB 6 dengan database MYSQL diperlukan reference Microsoft Activex Data Objects 2.5 Library dan tambahan koding berikut di bagian Modul koneksinya:

Public conn As ADODB.Connection

Public HubungDB As ADODB.Connection

Public sql As String

Public VarUsername As String

Public VarPassword As String

Public rsCari As ADODB.Recordset

Public rsCetak As ADODB.Recordset

Public rsBaca As ADODB.Recordset

Public rsSimpan As ADODB.Recordset

Public rsEdit As ADODB.Recordset

Public rsHapus As ADODB.Recordset

Public Sub Main()

Set conn = New ADODB.Connection

On Error GoTo Kesalahan

conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;Mode=ReadWrite;DATABASE=db_Daftar;UID=root;PWD=;PORT=3306;OPTION=3"

Utama.Show

Login.Show vbModal

Pendaftaran.Show

VarUsername = "admin"

Kesalahan:

If Err.Number = -2147467259 Then

    MsgBox "Komputer Server tidak aktif." & Chr(13) & _

    "Aktifkan komputer Server terlebih dahulu." & vbCrLf & _

    "Atau hubungi Administrator", vbExclamation, "Koneksi Error"

End If

End Sub

Pastikan untuk Project -> PrjPendaftaran Propertis -> Start Up Object yang dipilih adalah “Sub Main”

Halaman Utama + Login

DOWNLOAD DISINI