coba tambahain rsPeserta.CursorLocation= diatas perinta SElectnya salam
--- On Wed, 7/15/09, rukawa villian <rukawa_vill...@yahoo.co.id> wrote: From: rukawa villian <rukawa_vill...@yahoo.co.id> Subject: RE: [Programmer-VB] menampilkan database kedalam datagrid To: Programmer-VB@yahoogroups.com Date: Wednesday, July 15, 2009, 12:54 AM 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.RecordCou nt = 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.
