coding kamu sdah benar gak perlu dirubah lagi cukup tambahkan cn.CursorLocation= adUseClient setelah coding ini Set cn = New ADODB.Connection jadi nya ---coding.-- Set cn = New ADODB.Connection cn.CursorLocation= adUseClient ----coding--- Selamat mencoba
--- Pada Jum, 31/7/09, Frangky <franklin...@gmail.com> menulis: Dari: Frangky <franklin...@gmail.com> Judul: RE: [Programmer-VB] menampilkan database kedalam datagrid Kepada: Programmer-VB@yahoogroups.com Tanggal: Jumat, 31 Juli, 2009, 2:38 AM Kalau bisa diminimalisir penggunaan ADODC From: Programmer-VB@ yahoogroups. com [mailto:Programmer- v...@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.ConnectionStr ing = CN.ConnectionString ADODC.RecordSource = "select * from peserta" ADODC.Refresh Set Grid,DataSource = ADODC Gud lak From: Programmer-VB@ yahoogroups. com [mailto:Programmer- v...@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. Checked by AVG - www.avg.com Version: 8.5.375 / Virus Database: 270.13.12/2234 - Release Date: 07/12/09 17:56:00 Lebih aman saat online. Upgrade ke Internet Explorer 8 baru dan lebih cepat yang dioptimalkan untuk Yahoo! agar Anda merasa lebih aman. Gratis. Dapatkan IE8 di sini! http://downloads.yahoo.com/id/internetexplorer/
