MS JET 3.51+DataGRid=OK, MS JET 4.0+DataGrid=Problem

[IvanGrozni]

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???

 

[Nick]

Možda je ovo
http://support.microsoft.com/kb/224192

 

[Crash Owerride]

e - i mene zanima ovo, ajd ako si resio probl, samo malo explain pls.

 

[IvanGrozni]

Možda je ovo
http://support.microsoft.com/kb/224192

Hvala na pomoci problem je resen.
A resenje glasi:

'za konekciju DataGrida sa MSJET4.0 neophoda je ovakav kod:
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\fotodok97.mdb"
rs.ActiveConnection = conn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Properties("IRowsetIdentity") = True
rs.Open "SELECT * from tabela1"
Set frmMain.DataGrid1.DataSource = rs

ovo su svojstva za rs (recordset) koja treba ovako podesiti, i to ovim redom.