Membuat Form Register Dengan VB6 dan MYSQL

Beranda

...

Programmer Forum
Membuat Form Register Dengan VB6 dan MYSQL

avinganteng

12-10-2012 08:05

Membuat Form Register Dengan VB6 dan MYSQL

Langsung aja Ke Tutorialnya

Pertama-tama buat dulu database dengan nama data
lalu buat table bernama user_data
CREATE TABLE user_data(
useridINT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
name CHAR(20) NOT NULL,
username CHAR(20) NOT NULL,
pass CHAR(20) NOT NULL
);

1. Buka Visual Basic 6, Lalu Pilih Standart EXE
2. Lalu Buat
1 Command Button (cmdOK)
3 Label (Nama,Username,Password)
3 Text Box (name,username,pass)

Seperti ini

Lalu Masukan Script Seperti Ini

Quote:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdOK_Click()
If name.Text = "" Then
MsgBox ("Masukan Nama Anda")
Else
If username.Text = "" Then
MsgBox ("Masukan Username")
Else
If password.Text = "" Then
MsgBox ("Masukan Password")
Else
conn.Execute "INSERT INTO user_data(name, username, pass,) VALUES('" & Name.Text & "','" & username.Text & "','" & pass.Text & "' emoticon-Wink

", , adExecuteNoRecords
End If
End If
End If
MsgBox (" Register Anda Berhasil ")
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient 'SERVER-SIDE NOT RECCOMENDED
conn.ConnectionString = "DRIVER={MySQL ODBC 5.2w Driver};" _
& "SERVER=localhost;" _
& "DATABASE=data;" _
& "UID=root;" _
& "PWD=pass;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841 'SET ALL PARAMETERS
conn.Open 'THESE OPTION VALUES ARE BEST FOR VB

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM user_data", conn, adOpenStatic, adLockReadOnly
End Sub

Ane Minta