Kalau bisa diminimalisir penggunaan ADODC
From: Programmer-VB@yahoogroups.com [mailto:programmer...@yahoogroups.com] On Behalf Of rukawa villian Sent: 15 Juli 2009 12:55 To: Programmer-VB@yahoogroups.com 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 <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
