aleas2
جمعه 13 تیر 1393, 22:20 عصر
دوستان مشکل این کد چی؟
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
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