Posting kali ini saya coba membuat Login Username dan Password pada VB 6.0 dengan database SQL Server 2000, mungkin tema yang saya buat ini sedikit membantu buat temen2, atau kalo ada masukkan silahkan share ya….

Langkah pertama pada Button Login (XPText1) silahkan tulis Syntax berikut :

Sub bersih()

XPText1.Text = “”

XPText2.Text = “”‘

End Sub
Sub awal()

XPText1.SetFocus

XPButton1.Enabled = False

End Sub

Private Sub xpbutton1_click()

If XPText1.Text = “” Or XPText2.Text = “” Then

pesan$ = MsgBox(“Maaf, Password dan User Name Anda Kurang Valid!!”, vbInformation + vbOKOnly, “System Message by Sito”)        bersih

awal

Else

Set rs = con.Execute(“select * from Registrasi where Nama = ‘” & XPText1.Text & “‘ and Pass=’” & XPText2.Text & “‘”)

If Not rs.EOF Then        With x: .Visible = True: .Enabled = True: End With

Unload Me

Else

pesan$ = MsgBox(“Maaf, Password dan User Name Anda Salah!!”, vbInformation + vbOKOnly, “System Message by Sito”)

If pesan$ = vbOKOnly Then

bersih

awal

Else

bersih

awal

End If: End If: End If

End Sub

Langkah ke-dua Buat table Registrasi Password pada database SQL-nya ya:

Create table Registrasi (

Nama varchar (50) primary key,

Pass varchar (20) null,

Konfirmasi Varchar (50) null,

Pertanyaan Varchar (50) null,

Jawab Varchar (50) null)

Note : Untuk Tabel Registrasi anda design dahulu pada form VB guna memudahkan pengisian data Username dan Password. Nah untuk form Login anda tinggal memanggil data pada form Registrasi saja misalkan “Select * from Registrasi” mudah khan…

Form Registrasi kurang lebih saya desain seperti dibawah ini:

Selamat mencoba.

Syntax untuk Menyimpan Data Pada VB 6.0

Pada pertemuan kali ini, penulis mencoba untuk membahas tentang syntax untuk menyimpan data ke dalam Database. Database yang penulis pergunakan yaitu Database SQL Server 2000, untuk lebih detailnya perhatikan gambar berikut :

1. Rancang form untuk mengeksekusi data yang akan anda input.

2. Jika data berhasil disimpan maka data akan terlihat pada DataGrid seperti gambar dibawah :

Nah…. Mudah kan, selamat mencoba…!!

Koneksi VB 6 ke Database SQL Server 2000

Artikel ini mengenai koneksi Visual Basic 6 dengan database SQL Server 2000, caranya sangat mudah kok ikuti langkah2 berikut ini:

1. Pertama anda terapkan ADODC1 dulu didalam salah satu form seperti gambar dibawah.

2. Langkah selanjutnya yaitu pada kolom Adodc1,  anda klik kanan lalu pilih menu Properies seperti gambar dibawah  :

3. Langkah berikutnya anda klik tombol “Build” untuk mencari nama database-nya

4. Langkah berikutnya pilih nama database anda pada combo Box

disini penulis mengambil contoh database Apotek yang telah penulis buat sebelumnya. Lalu klik “Ok” -> kemudian klik “Tes Connection”

Jika anda mengikuti langkah2 diatas dengan benar maka hasilnya koneksi berhasil seperti gambar dibawah:

Mudah bukan… semoga bermanfaat.

Catatan:

“Untuk koneksi sebuah aplikasi dengan banyak Form, disarankan menggunakan Module supaya syntax tidak terlalu panjang”

Membuat Login Menu Pada VB 6.0

Membuat tampilan untuk form Login Menu sangat membantu untuk mengakses Form rancangan tampilan pada sub-sub menu sebuah aplikasi. Disini penulis mencoba untuk mengambil contoh dari aplikasi penjualan obat pada suatu apotek. Untuk itu penulis mencoba untuk mendesign menu serta bagaimana syntax-nya, coba perhatikan dibawah ini:

1. Langkah pertama anda desain form tampilan dahulu

2. Langkah berikutnya tuliskan syntax sebagai berikut :

Nah gampang kan…. Selamat Mencoba

Belum ada komentar.