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
<http://sg.rd.yahoo.com/id/messenger/maxwell/*http:/id.messenger.yahoo.com/>
bisa dengan Yahoo! Messenger baru.
