Re: [Programmer-VB] Nanya Recordset dan DataGrid1

Fri, 14 Apr 2006 18:22:38 -0700

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