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
Pastikan untuk Project -> PrjPendaftaran Propertis -> Start Up Object yang dipilih adalah �Sub Main�
Halaman Utama + Login