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
