- Beranda
- Komunitas
- Tech
- Programmer Forum
Membuat Form Register Dengan VB6 dan MYSQL
TS
avinganteng
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
Ane Minta
Gak nerima 
soale ane bukan pengepul bata
*Buat Yang Belum Tahu Cara Koneksi VB6 Ke MYSQL Baca Dulu Ini http://samsonasik.wordpress.com/2008...an-mysql-odbc/
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 & "'
", , 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
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 & "'
", , adExecuteNoRecordsEnd 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
Gak nerima soale ane bukan pengepul bata*Buat Yang Belum Tahu Cara Koneksi VB6 Ke MYSQL Baca Dulu Ini http://samsonasik.wordpress.com/2008...an-mysql-odbc/
0
6.9K
4
Komentar yang asik ya
Urutan
Terbaru
Terlama
Komentar yang asik ya
Komunitas Pilihan