[احمداحمداحمد6]

تنشئ قاعدة بينات تتكون من ثلاث اعمدة
تضيف الاداة data1 الى النموذج
تربط قاعدة البيانات ب مربعات النص التي ستضيفها بعد حين
الكائن button1 هو للحفظ
ويحوي الكود التالي؛-
text1.text=data1.field1
text2.text=data1.feild2
الكائن button2 للبحث :-
for i = 1 ton data1.recordset.count
if text1.text=data1.feild(i) then print "found"
if text2.text=data1.feild(i) then found 2"
next i
.
.
.