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.
