Salam VB,
Letak di Modulku.bas
Public Ado_Cn As ADODB.Connection
Sub Main()
Set Ado_Cn = New ADODB.Connection
Ado_Cn.CursorLocation = adUseClient
Ado_Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDB_Name &
";Persist Security Info=False;Jet OLEDB:Database Password=" & Password
End SUb
Letak di Form1.frm
Private Sub Form1_Load()
Set rsPeserta= New ADODB.Recordset
rsPeserta.Open "Select * From Peserta", Ado_Cn, adOpenStatic,
adLockOptimistic
Set DataGrid1.DataSource = rsPeserta
End Sub
Semoga membantu...
-------------------------------------
Generasi Computer
-------------------------------------
Berbagi Ilmu Visual Basic Bagi Pemula
http://www.berbagi-ilmu-vb.ge165.com
Hp. 081-265-14562
________________________________
From:http://loloo.comli.com
To: [email protected]
Sent: Wednesday, July 15, 2009 1:00:15 PM
Subject: RE: [Programmer-VB] menampilkan database kedalam datagrid
coba tambahain rsPeserta.CursorLoc ation= diatas perinta SElectnya
salam
--- On Wed, 7/15/09, rukawa villian <rukawa_villian@ yahoo.co. id> wrote:
>From: rukawa villian <rukawa_villian@ 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.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.
>
>
