Koneksi VB 6.0 dengan Database
Yang harus disiapkan dalam adalah :
1. Visual Basic
6.0
2. Microsoft
SQL Server 2000
Untuk membuat tampilan database pada form visual basic 6.0 ikuti langka –
langkah sebagai berikut :
1.
Siapkan sql server dan database
yang anda buat.
2.
Tambahkan bebrapa object pada
form visual basic spt gambar dibawah ini :
Ket :
1 = form yang akan diisi object untuk input data.
2 = properties
:: untuk seting pengatuuran objek.
3.
Tambahkan komponen “Microsoft
ado data control ” dengan cara klik kanan komponen centang Microsoft Ado data control 6.0 >> OK . gb dibbawah ini :
terdapat komponen adodc
Tambahkan pula data grid
untuk menampilkan table dari database
Akan muncul
komponen Data Grid
Untuk menambah object pada form di visual
basic klik pada object yng ingin ditambahkan kemudian klik di form >>>
maka object yang diiperlukan akan terbentuk di form Vb 6.0
Buat tampilan sbb berikut :
|
A : name = adodc1
Setting adodc1
Klik kanan pada adodc1 keluar property
pages >>use connction string >>Build
Muncul data link property pilih Microsoft
OLE provider for SQL server >> next
akaitin muncul :
1.
Select or enter a server name =
. ( tiitik ) menunjukkan server local ato kalo gak berhasil ketik (local) : tulis semua “kurung buka + local +kurung tutup” tanpa spasi .
2.
Enter information to log on the
server = use windows NT integrated security
3.
Pilih database yng ingin
dikoneksikan
4.
Test connection
5.
OK
6.
Masih di property pages d
adodc1
Pada
record source : pilih command type 2 – ad cmdTable
Table : pilih table yang akan di manipulasi.
B: Commannd
Tombol Untuk manipulasi data dan navigasi
C: Text = setting pada properties data
source = adodc1 dan data field sesuai dengan table Siswa Lihat Gambar :
1.
Setting dengan adodc1
|
D: Datagrid control setting properties data
source = adodc1
Datasource = adodc1
|
Ketting koding dibawah ini dengan cara klik
Command Butten :
Akan otomatis keluar kodingnya :
E: Label :Tempat member keteranga seting
properties Captenya missal = Nama
1. klikk pada command button tambah
Private
Sub cmd_tambah_Click()
Me.Adodc1.Recordset.AddNew
End
Sub
2. klikk pada command button hapus
Private
Sub cmd_hapus_Click()
Me.Adodc1.Recordset.Delete
End
Sub
3. Klik pada command Button Edit
Private
Sub cmd_hapus_Click()
Me.Adodc1.Recordset.update
End
Sub
4. Klik pada command Button Save
Private
Sub cmd_save_Click()
Me.Adodc1.Recordset.Save
End
Sub
5. Klik pada command Button refresh
Private
Sub cmd_refresh_Click()
Me.Adodc1.Refresh
End
Sub
6. berikut tombol navigasi
Private
Sub cmd_frst_Click()
Me.Adodc1.Recordset.MoveFirst
End
Sub
Private
Sub cmd_last_Click()
Me.Adodc1.Recordset.MoveLast
End
Sub
Private
Sub cmd_nxt_Click()
Me.Adodc1.Recordset.MoveNext
If
Me.Adodc1.Recordset.EOF Then
Me.Adodc1.Recordset.MoveFirst
End
If
End
Sub
Private
Sub cmd_prv_Click()
Me.Adodc1.Recordset.MovePrevious
If
Me.Adodc1.Recordset.BOF Then
Me.Adodc1.Recordset.MoveLast
End If
End
Sub
7. klik pada Command cari
Private
Sub cmd_find_Click()
On
Error GoTo msg
Me.Adodc1.Recordset.Filter
= "no_induk = " & Me.txt_cari.Text ket :
=> ' txt_cari adalah object untu menginputkan data yang di cari
Exit
Sub
msg:
MsgBox
" tolong diisi yan benar", vbExclamation
End
Sub
SELAMAT
MENCOBA SEMOGA SUKSES
Tidak ada komentar:
Posting Komentar