Mas, saya ngga ngerti script anda. Contoh sederhananya seperti ini.
Dim rs as New ADODB.Recordset Rs.open “select * from namatable”,cn,2,2 Set Grid.DataSource = rs Kalau di PC saya dijamin data muncul di datagrid. From: [email protected] [mailto:[email protected]] On Behalf Of Darwan Aja Sent: 23 Desember 2008 13:15 To: [email protected] 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. Checked by AVG - www.avg.com Version: 8.5.375 / Virus Database: 270.13.12/2234 - Release Date: 07/12/09 17:56:00
