Rabu, 05 Maret 2014

Cara membuat tabel di VisData

1. Pada menu klik Add-Ins - Visual Data Manager

 

2. Dijendela VisData klik File - New - Microsoft Access - Version 7.0 MDB


3. Simpan database. Pada File name tuliskan nama file yang akan kita simpan sebagai identitas. Save as type merupakan extensi file yang akan kita simpan berbentuk .mdb


4. Setelah itu klik kanan pada Database Window dan pilih New Table.


 5. Pada Table Name ketikan nama tabel yang akan menjadi identitas tabel.
Klik Add Field.
Pada Jendela Add Field ktikan Name, Type, dan Size. OK.
Jika sudah selesai menambahkan field, klik Close.


6. Kita tambahkan index pada tabel yang akan kita buat.
Klik Add Index
Pilih Field mana akan kita jadikan index. (biasanya yang dijadikan index ialah identitas tunggal seperti NIK)
Klik OK.
Klik Build the Table


7.  Kemudian kita akan menambahkan record pada tabel.
Klik Kanan pada nama tabel yang ada di Database Window - Open.


8. Masukan record dengan cara
Klik tombol Add


9. Setelah selesai menambahkan record klik Close untuk keluar.

Koneksi database dengan VB 6 menggunakan kode di adodc

Disini saya akan memberikan contoh bagaiman membuat koneksi antara database dengan visual basic.
Pertama kita buka aplikasi visual basic 6 kita.

Setelah itu tambahkan komponen ADODC dan DATAGRID. Caranya :
1. Klik kanan pada tool box atau tekan Ctrl+T.
2. kemudian pada controls, centang pilihan "Microsoft ADO Data Control 6.0 (OLEDB)" dan "Microsoft DataGrid Control 6.0 (OLEDB)".
3. tekan OK.

Setelah menambahkan kedua komponen tadi selanjutnya kita akan membuat database menggunakan Visual Data Manager atau sering disebut VisData. Caranya :
1. Klik menu Add-Ins pilih Visual Data Manager...
2. Klik File - New - Microsoft Access - Version 7.0 MDB
3. Simpan dengan nama latihan.mdb
4. Buatlah tabel dengan cara klik kanan New Table. cara membuat tabel di visdata
ini tabel yang telah saya buat.


Selanjutnya buatlah form seperti berikut:
1. Tambahkan DataGrid
2. Tambahkan Adodc

Ketikan kode berikut :

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\latihan.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select*from Buku"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Jalankan program maka hasilnya akan seperti ini :


Senin, 03 Maret 2014

invalid certificate saat mau masuk facebook di mozilla

Saya pernah mengalami kejadian ini, mungkin dari kalian juga pernah mengalami hal seperti ini saat ingin membuka media sosial facebook di mozila firefox kalian namun tiba - tiba muncul pesan seperti gambar ini :













mungkin bagi orang yang awam hal ini akan terasa menjengkelkan. tapi tidak perlu kwatir karena pesan masalah itu sepertinya sudah satu paket dengan cara mengatasinya, jadi kita hanya ikuti langkah demi langkahnya seperti ini :

1. Klik link Or you can add an exception
2. Klik tombol Add Exception
3. Klik tombol Get Certificate
4. Klik tombol Confirm Security Exception

dengan mengikuti langkah diatas maka kita dapat kembali membuka facebook atau web lain yang mengalami masalah serupa.

mungkin satu lagi tips, jika kalian bisa masuk ke facebook namun tampilan nya hanya berupa teks saja, itu bisa jadi disebabkan karena waktu di komputer kalian mengalami masalah yang perlu kalian lakukan hanya memperbaiki waktu tersebut. and enjoy your time..