Menampilkan Database Access Menggunakan VB 6.0 (Menggunakan ADODC)


Hallo, maf baru nongol lagi ni hehehehe. Kemaren-kmaren abis sibuk ama acara kampus n kesibukan pribadi ni. Dan akhirnya sekarang (Minggu, 9 Mei 2010) saya baru bisa posting artikel lagi ni. Artikel kali ini judulnya Menampilkan Database Access Mengunakan VB 6.0. Untuk membuatnya, ikuti langkah – langkah dibawah ini :

Pertama, yang harus disediakan tentunya Database Access-nya, terserah databasenya mo tentang apa aja, bebas.cz ni baru latihan kan hehehehehe. Yang kedua, tentunya VB 6.0.

  • Buka Microsoft Visual Basic 6.0, Klo uda kebuka pilih VB Enterprise Edition Control Kaya begini nih . . . . .
    VB
  • Nah klo udah, tempelin (pasang) ADODC ama DATAGRID ke Form. Kaya begini nih . . . . .
  • Selanjutnya adalah proses merekayasa properties pada ADODC. Apa aja yang harus diubah?
    * Ganti Caption dari ADODC, bebas terserah lah . . .
    * Ganti ConnectionString, klik pada bagian kanan, maka akan muncul kotak dialog seperti berikut ini nih . . .

    * Klik Tombol Build….., abis itu akan muncul kotak dialog, nah disana pilih lah Microsoft Jet 4.0 OLE DB Provider trus klik next . . . .

    * Tahapan selanjutnya adalah memilih file databasenya, trus klik tombol Test Connection trus klik OK etttttssss jangan lupa juga klik Apply dan OKpada kotak dialog Properties Pages.
    * Lanjjuuttttt, Nah sekarang tinggal kita pilih tabel mana yang akan di tampilkan. Caranya masuk ke RecordSource. Pada bagian Command Type, Pilih lah 2-adCmdTable lalu pada bagian Table or Stored Procedure Name pilihlah tabel database yang telah dibuat sebelumnya. dan seperti biasa jangan lupa
    klik Apply dan OK
  • Step berikutnya adalah rekayasa properties dari DATAGRID, caranya mudah kok, tinggal ubah DataSource dari DATAGRID dan pilih ADODC1, oke klo udah klik tombol Run pada VB 6.0, dan hasilnya . . . .

    eeennggginngggennggggg . . . . .ini adalah hasilnya

Oke, itu artikel saya hari ini, klo ada salah or error tolong diperiksa lagi ya…n jangan lupa comment ya hehehehe . . .Makasih ya . . .:D

Advertisements

Membuat Direktori List dengan Visual Basic


Direktori List by Laurensius

Dim NamaFile As String

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdopen_Click()
Shell Text1.Text, vbNormalFocus
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If (Right(File1.Path, 1) = "\") Then
NamaFile = File1.Path + File1.FileName
Else
NamaFile = File1.Path + "\" + File1.FileName
End If
Text1.Text = NamaFile
End Sub