hrj1981
پنج شنبه 04 بهمن 1386, 14:31 عصر
دوستان مشکل این کد کجاست؟
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dat\tolid.mdb;Jet OLEDB:Database Password=32357211;Persist Security Info=False"
.RecordSource = "select * from ch where cont= '" & "0" & "'and year= " & c1.Text
.Refresh
.Caption = .Recordset.RecordCount
End With
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dat\tolid.mdb;Jet OLEDB:Database Password=32357211;Persist Security Info=False"
.RecordSource = "select * from ch where cont= '" & "0" & "'and year= " & c1.Text
.Refresh
.Caption = .Recordset.RecordCount
End With