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