الملفات الضخمة وقواعد البيانات

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

حديثي اليوم عن قواعد البيانات لكن من نوع فريد لااقول لك كيف تربط بين دوت نت واي قاعدة بيانات فالموضوع بسيييييط اكثر منما تتصور فقط اركب هذه الخيار من قائمة data اختار add new data base وسر قليلا وبعد ثوان تجد نفسك في برنامج كامل مربوط بقاعدة البيانات وقد قام المترجم بوضع جميع الادوات الخاصة بالتنقل بين السجلات وغيرها تلقائيا .؟

السؤال هوا لو اردنا لكل شخص مثلا كتاب تخرج وصورة وقدر معيين من الكتب الرسمية والكثيرا من مايخصة اي الاف البايتات؟ كشكل هذا البرنامج

الصورة موجودة بالمرفقات

انظر هنا لكل شخص احتاجنا حوالي عشر كتب رسمية وصورة وملف شخصي يحوي كتبه الاخرى كيف نحل هذه الازمة بسهولة نكون ملف مرفق مع كل شخص يتكون عن الاضافة بنفس اسمه هكذا

Dim path As String = Application.StartupPath & "\books\" &tname.text  
        If My.Computer.FileSystem.DirectoryExists(path) = False Then
            My.Computer.FileSystem.CreateDirectory(path)
        End If

لاحظ كونا ملف بنفس اسم الشخص مرفق داخل البرنامج اي يصبح البرنامج في النهاية قاعدة بيانات ضخمة دون الضغط على قاعدة البيانات وتحميلها ملفات قد لاتستطيع تحمله فنحن نخزن ملفاتنا الان في الوندوز الان في كل زر من خيارات الخاصة بالملفات نضع مسار الملف ومن عملنا هذا داخل اجاراء sub للتسهيل

لاحظ اضافة كتاب التخرج

Dim d1 As New System.IO.FileInfo(pahtInWindows)
My.Computer.FileSystem.MoveFile(pahtInWindows, path & "\succesBook" & d1.Extension)
والصور تحفظ هكذا
Dim di As New System.IO.FileInfo(path_image)
PictureBox2.Image.Save(path & "\picture" & di.Extension)

البقية نظيفهم بنفس الطريقة بقي كيف نجعل تظهر لكل شحص سجلاته .

في زر الخاص بتغير السجلات نضع هذا الكود

Dim di As New System.IO.DirectoryInfo(Application.StartupPath & "\books\" &  tname.Text )
Try
Dim f1 As FileInfo() = di.GetFiles("succesBook.*", SearchOption.TopDirectoryOnly)
If f1(0).Exists = True Then
succesBookButton7.Enabled = True
End If
Catch ex As Exception

End Try

لاحظ مع كل شخص يدخل بسجله يبحث داخل ملفه عن ملف succesBook ويجعل زره يتفعل حتى منه نشغل الملف لاحض وضعنا نجمة معناه أي امتداد بنفس الاسم ياخذه

ونكتب داخل زر صورة من الكتاب التخرج وكذا لك العمل بالنسبة للبقية

Try
Dim di As New System.IO.DirectoryInfo(Application.StartupPath & "\books\" & Trim(tname.Text))
fii = di.GetFiles("succesBook.*", SearchOption.TopDirectoryOnly)
Process.Start(fii) 
Catch ex As Exception

End Try

وهذا هوا المشروع المرفق الذي يخص هذا الموضوع يحوي لكل شخص حوالى احد عشر كتاب رسمي وصورة وتستطيع الدخول الى سجله الشخصي واضافة كتب

http://www.4shared.com/file/XHRXqDYl/___1.html

واي اخ يحتاج لتوضيح على فقرات اخرى من الرنامج فانا جاهر