|
Nadam se da ovo dovoljno govori:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New Connection
Set rs = New Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\fotodokADO\fotodok97.mdb"
rs.Open "SELECT * FROM tabela1", conn, adOpenStatic, adLockOptimistic
Set Form1.DataGrid1.DataSource = rs
Sa ovakvim kodom u dataGrid kontroli se pojavljuju podaci.
Medjutim sa ovakvim kodom se ne pojavljuju podaci u DataGrid-u.
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New Connection
Set rs = New Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\fotodokADO\fotodok97.mdb"
rs.Open "SELECT * FROM tabela1", conn, adOpenStatic, adLockOptimistic
Set Form1.DataGrid1.DataSource = rs
Razlika je jedino u Microsoft JET-u.
Ako ovo radim preko kontrole ADODC na formi, pa ADODC Properities prozoru za ConnectionString navedem "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\fotodokADO\fotodok97.mdb", onda takodje radi bez problema, tj. podaci se vide u DataGrid-u.
Resenje problema???
|
