مشكل در اتصال DataReport به بانك

[aleas2]

دوستان مشکل این کد چی؟


str_cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"

cn.Open str_cn
rs.Open "select * from tabel1", cn, adOpenStatic, adLockOptimistic

DataReport1.DataMember = rs.DataMember
DataReport1.DataSource = rs.DataSource


DataReport1.Show

rs.Close
cn.Close

[m.4.r.m]

از این کد استفاده کن فقط قسمت های لازم رو بر اساس خواسته های خودت عوض کن

If Adodc1.Recordset.RecordCount > 0 Then
On Error Resume Next
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = Adodc1.ConnectionString
Cnn.Open
Adoview.Close
sqltxt = "SELECT * From Morakhasi WHERE Persenel_id=" & Persenel_id
Set Adoview = New ADODB.Recordset
Adoview.Open sqltxt, Cnn, adOpenStatic, adLockPessimistic
Set Report1.DataSource = Adoview
Report1.Show 1
Else
MsgBox "ÇØáÇÚÇÊí íÇÝÊ äÔÏ", vbExclamation, ""
End If