Re: [Programmer-VB] Nanya Recordset dan DataGrid1

Mon, 17 Apr 2006 18:05:17 -0700


Mas Purwedi terima kasih atas teori dan penjelasannya.
 
Biasanya kalau seorang Guru memberikan teori kepada muridnya harus disertai prakteknya dong !
Biar muridnya bisa lebih paham teori sang Guru.
Dengan melihat code yang pernah saya buat, harusnya codenya seperti apa !
Supaya bisa menjadi pembanding antara  code saya yang salah dan code Mas Pur.
 
Seperti pernyataan Mas Pur seperti dibawah ini:
 
object connection yg dibuat di form load itu sama sekali ga berguna karena dia hanya membuka koneksi ke database dan setelah itu ga melakukan apapun, proses pengambilan data dilakukan oleh Adodc1. jd disini ada 2 koneksi yg terbuka, satu dari object connection satu lagi dari Adodc1, hasilnya malah aplikasi akan lambat karena harus melakukan verifikasi ada tidaknya db dan membuka koneksi ke database yg sama 2x.
 
Apakah yang Mas Pur maksud seperti dibawah ini?
 
 
Private Sub Form_Load()
    Set Connection = New ADODB.Connection
    Connection.open "data"
End Sub
 
Kalau tidak berguna, harusnya bagaimana !
 
 
Terima kasih.
 
 
 
----- Original Message -----
Sent: Monday, April 17, 2006 3:27 PM
Subject: Re: [Programmer-VB] Nanya Recordset dan DataGrid1

mas frengki, di ADO/DAO semua data yg kita query ke database PASTI akan disimpan di object recordset.
 
dg membuat object connection dan recordset dari kode, kita ga perlu lagi menambahkan component ADODC seperti yg mas frengki gunakan, karena fungsi dari component ADODC hanya u. mempermudah proses pengambilan data dari database tanpa harus menuliskan kode apapun.

kalau pake ADODC, pasti mas frengki melakukan hal2 berikut ini:
- menambahkan component Adodc1 ke form
- set property connection nya ke odbc atau ke file access atau ke dbserver
- pilih sourcenya table atau sp atau query, atau lewat kode kayak yg mas frengki pake tadi: adodc1.recordsource = "select blalalalaa"
- set grid datasource ke Adodc1
 
ok, sebenarnya yg dilakukan oleh ADODC component ini adalah
- buat dan buka koneksi ke database
- simpan hasilnya ke object recordset yg diberi nama: Adodc1.Recordset
 
nah kalau perintah Set DataGrid1.DataSource = Adodc1 bisa dipakai itu kemungkinan besar karena default property dari component ADODC ini adalah object Adodc1.Recordset
 
jadi, kalau kita melakukan akses dan pengolahan database dg script ADO, kita HANYA harus menambahkan reference ke MS ActiveX Data Object dan ga perlu lagi menambahkan component ADODC ke form aplikasi kita.
 
dalam kode mas frengki tadi, object connection yg dibuat di form load itu sama sekali ga berguna karena dia hanya membuka koneksi ke database dan setelah itu ga melakukan apapun, proses pengambilan data dilakukan oleh Adodc1. jd disini ada 2 koneksi yg terbuka, satu dari object connection satu lagi dari Adodc1, hasilnya malah aplikasi akan lambat karena harus melakukan verifikasi ada tidaknya db dan membuka koneksi ke database yg sama 2x.
 
sekarang alasan knp kita memilih ga pake ADODC komponen? karena adodc komponen itu ga fleksibel, kita ga bisa trap event2 seperti before update, after delete dll.
 
buat mas dayat, di vb6 ada dua macam cara memberikan nilai ke property, pertama kalau propertynya berupa variabel biasa (string, long dll), kita cukup pake tanda =, yg kedua kalau propertynya berupa object, selain = kita juga harus menggunakan keyword set spt:
 
Set DataGrid1.DataSource = Recordset
 
mudah2an ga salah :)
 
best regards
[wwn]
 
On 4/15/06, Frengki Bunga <[EMAIL PROTECTED]> wrote:
Bagi jagoan vb CMIIW ya...
 
Kalau kamu pake code "SELECT * FROM TblBarang"
 
Harusnya tidak perlu pakai Recordset
 
Kalau saya tidak salah bukannya seperti dibawah ini ?
 
Dim Connection As New ADODB.Connection   
 
Private Sub cmdTampilData_Click()
    Call TampilData
End Sub
 
Private Sub Form_Load()
    Set Connection = New ADODB.Connection
    Connection.open "data"
End Sub
 
Public Sub TampilData()
    Dim xxx As String
 
    xxx = "select * from tblbarang"
    Adodc1.RecordSource = xxx
    Set DataGrid1.DataSource = Adodc1
 
    DataGrid1.Refresh
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Connection.Close
    Set Connection = Nothing
End Sub
 
 
 
 
 
----- Original Message -----
From: dayat
Sent: Friday, April 14, 2006 5:13 PM
Subject: [Programmer-VB] Nanya Recordset dan DataGrid1

 
aku buat koding berikut ini
 
Sub TampilData()
Dim Connection As New ADODB.Connection
Dim Recordset as Recordset
 
Connection.Open "DATA" ' diambil dari ODBC
Set Recordset=Connection.Execute("SELECT * FROM TblBarang")
DataGrid1.DataSource=Recordset
end sub
 
gi bisa jalan. tolong teman2

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS



Kirim email ke