تعمل قاعدة بيانات
بعدد الاصناف وتسميها (انا سافرضها اربعة حقول)
for i = 1 to 300
text2.text=rs.feild i
next i
dim rs as new adodb.recordset
rs.open
for i = 1 to rs.import.recordcount
rs.import.show
rs.movenext
next i
rs.update
for i = 1 to rs.export.recordcount
rs.export=text1.text
rs.movenext
next i
if monthname(month(date)=31or 30 the
for i = 1 to 300
if rs.feild i <>nil then count =count+1
next i
print count
..........................................
هذا الي اقدر عليه
.........................................
bye