Minggu, 08 Juli 2012

Koneksi VB 6.0 dengan Database

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 :
2. Otomatis keluar field Db
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:

Related Posts Plugin for WordPress, Blogger...