شرح طريقة انشاء ملف من نوع Binary

السلام عليكم ورحمة الله وبركاته

درسنا اليوم هو طريقة شرح برنامج لتخزين بياناته في ملف من نوع Binary ..
كما نعرف ان قواعد البيانات الكبيرة تحتاج الي قاعدة بيانات من نوع الاكسيس وذلك لاضافة وتحديث البيانات
ولكن بهذا الدرس سنتعرف كيف نحفظ البيانات المدخلة في ملف بامتداد dat , rtf , txt ..

كل مافي الامر اضافة مشروع جديد وادراج 3 text ثم واحد combbox اضافة الي 3 command
كما بالصورة التالية :

بعد الادراج يبقى لدينا الشيفرة الخاصة بالبرنامج
بالبداية لابد ان نصرح في General بمتغيرات تسجيل البيانات

كود:

Private Type Record 'تصريح بمتغير التسجيل الذي نريد ان نحفظه بالملف
Name As String 'متغير نصي للتكست الاول
ِAdress As String 'متغير نصي للتكست الثاني
Email As String 'متغير نصي للتكست الثالث
Work As String 'متغير نصي بالكمبو بكس
End Type

ثم بعد ذلك في حدث الكوماند ( حفظ البيانات ) نكتب الشيفرة التالية :

كود:

On Error Resume Next 'مصيدة الاخطاء
Dim Rec As Record ' التعريف بالمتغير المسجل في الملف
Open "Asfah.dat" For Binary As #1 'هنا انشاء الملف لحفظ البيانات
Rec.Name = Text1.Text
Rec.ِAdress = Text2.Text
Rec.Email = Text3.Text
Rec.Work = Combo1.Text
Put #1, , Rec
Close #1
'تعريف المتغيرات التي نحتاجها كبيانات لوضعها في الملف

لاحظ ان بامكانك تغير مسار المجلد وهنا وضعته في مجلد البرنامج
ايضا بامكان تغير الاسم والامتداد .. بهذه الشيفرة سيعمل البرنامج
على انشاء ملف من نوع Binary وحفظ البيانات بداخله ..

بعد ذلك ننتقل الي حدث حفظ البيانات ونكتب الشيفرة التالية :

كود:

On Error Resume Next
Dim A As Record 'تعريف بمتغير
Open "Asfah.dat" For Binary As #1 'فتح ملف البيانات المدخلة
Get #1, , A
Close #1
Text1.Text = A.Name
Text2.Text = A.ِAdress
Text3.Text = A.Email
Combo1.Text = A.Work
'استيراد البيانات المدخلة

بعد ذلك ننتقل الي حدث بيانات جديدة ونكتب هذه الشيفرة :

كود:

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
'مسح البيانات واضافة بيانات جديدة

بهذا وصلنا الي نهاية المطاف جرب البرنامج وسجل البيانات
ثم حفظ ثم استيراد ...
اتمنى لكم تطبيقا موفقا