Salam..
Klo loe dh buat koneksi db-nya berarti loe tinggal koneksikan recordsetnya
Klo gw sich begini...
Dim rspeserta as new adodb.recordset
Private Sub Form_Load()
set rspeserta = new adodb.recordset
rspeserta.open " Select * From Peserta",cn, adOpenDynamic,
adLockOptimistic
set grid.datasource= rspeserta.datasource
grid.refresh
End Sub
Semoga membantu...
----- Original Message -----
From: rukawa villian
To: Programmer-VB@yahoogroups.com
Sent: Wednesday, July 15, 2009 11:54 AM
Subject: RE: [Programmer-VB] menampilkan database kedalam datagrid
Initinya cuma di
Set rsPeserta = New Recordset
rsPeserta.Open "select * from peserta", cn, adOpenDynamic,
adLockOptimistic
Set grid.DataSource = rsPeserta
Tapi coba tambahin AdCmdText
Di à rsPeserta.Open "select * from peserta", cn, adOpenDynamic,
adLockOptimistic, adCmdText
Klo emang masih FAILED juga (GAGAL) pake aja ADODC
ADODC.ConnectionString = CN.ConnectionString
ADODC.RecordSource = "select * from peserta"
ADODC.Refresh
Set Grid,DataSource = ADODC
Gud lak
------------------------------------------------------------------------------
From: Programmer-VB@yahoogroups.com [mailto:programmer...@yahoogroups.com] On
Behalf Of Darwan Aja
Sent: Tuesday, 23 December 2008 12:15 PM
To: programmer-VB@yahoogroups.com
Subject: [Programmer-VB] menampilkan database kedalam datagrid
Kepada seluruh programmer di tanah air coba bantu saya untuk menampilkan
database ke dalam datagrid, ini script yg udah saya buat di form_load() tapi
database gak nampil juga ke data grid.Jadi ane minta tolong scriptnya
direvisi
On Error Resume Next
HasilBatal = False
Set cn = New ADODB.Connection
koneksi
Set rsPeserta = New Recordset
rsPeserta.Open "select * from peserta", cn, adOpenDynamic,
adLockOptimistic
Dim oText As TextBox
For Each oText In Me.txtinput
Set oText.DataSource = rsPeserta
Next
Set grid.DataSource = rsPeserta
mbDataChanged = False
grid.Enabled = True
'If rsPeserta.RecordCount = 0 Then
' MsgBox "Data masih kosong!", vbCritical, "Warning"
'End If
Exit Sub
'pesan:
' MsgBox Err.Number & "_" & Err.Description
' End
------------------------------------------------------------------------------
Warnai pesan status dengan Emoticon.
Sekarang bisa dengan Yahoo! Messenger baru.
