السلام عليكم ونهاركم مبارك ان شاء الله
لانني ارى الجمود بعالمنا العربي وعدم التحرك نحو الجديد والبحث قررت ان انشر هذا الموضوع .
هل يزعجك تصميم قاعدة بيانات وانشاء الجداول والعلاقات فيما بينها ...؟
هل تزعجك الاستعلامات المعقدة بين الجداول واكواد الاتصال والحذف والتعديل ...؟
حسنا اذا انت بالمكان الصحيح .
الموضوع ليس بجديد وسبق ونشرت عنه .
انك امام ثقنية يقولون انها اسرع بملايين المرات من ثقنية Ado.Net
نحن لا نريد ان نصدق هذا .
لنقل انها اسرع ليس حتى بالالاف المرات وانما بمئات المرات .
مئات المرات استطيع ان ابصم عليها بختمي الخاص واعتمد هذا الطرح .
وفوق كل هذا هو السهولة في التعامل معها من حيث العرض والاتصال والاضافة .
نحن نتحدث عن ثقنية DB40 الكائنية .
هذا كل ماتحتاج للاتصال وانشاء قاعدة بياناتك .
وهذه كل ماتحتاج لانشاء جدولك
وهذا كل ماتحتاج لحفظ سجل جديد
بعيدا عن التنظير دعوني اردخلكم في مثال عملي صممته على السريع من اضافة وحذف وتعديل وعرض .
لاحظ عند تشغيل المشروع اول مرة اذا لم يكن هناك قاعدة بيانات يتم انشاءها فورا .
ايضا المكتية يمكنها العمل على شبكة كذلك .
حملوه وجربوه وسوف يكون لنا حديث بعدها
لاتنسو اضافة المكتبة Db4objects.Db4o.dll من الـ Reference
Db4o.rar (الحجم : 562.58 ك ب / التحميلات : 605)
لانني ارى الجمود بعالمنا العربي وعدم التحرك نحو الجديد والبحث قررت ان انشر هذا الموضوع .
هل يزعجك تصميم قاعدة بيانات وانشاء الجداول والعلاقات فيما بينها ...؟
هل تزعجك الاستعلامات المعقدة بين الجداول واكواد الاتصال والحذف والتعديل ...؟
حسنا اذا انت بالمكان الصحيح .
الموضوع ليس بجديد وسبق ونشرت عنه .
انك امام ثقنية يقولون انها اسرع بملايين المرات من ثقنية Ado.Net
نحن لا نريد ان نصدق هذا .
لنقل انها اسرع ليس حتى بالالاف المرات وانما بمئات المرات .
مئات المرات استطيع ان ابصم عليها بختمي الخاص واعتمد هذا الطرح .
وفوق كل هذا هو السهولة في التعامل معها من حيث العرض والاتصال والاضافة .
نحن نتحدث عن ثقنية DB40 الكائنية .
هذا كل ماتحتاج للاتصال وانشاء قاعدة بياناتك .
كود :
Friend db As IObjectContainer = Db4oFactory.OpenFile(FileIO.FileSystem.CurrentDirectory & "\DB")
وهذه كل ماتحتاج لانشاء جدولك
كود :
Public Class Emp
Dim _mname As String
Public Property mname As String
Get
Return _mname
End Get
Set(value As String)
_mname = value
End Set
End Property
Dim _mdate As Date
Public Property mdate As Date
Get
Return _mdate
End Get
Set(value As Date)
_mdate = value
End Set
End Property
Dim _pic As Byte()
Public Property pic As Byte()
Get
Return _pic
End Get
Set(value As Byte())
_pic = value
End Set
End Property
End Class
وهذا كل ماتحتاج لحفظ سجل جديد
كود :
Dim k As New Emp()
k.mname = TextBox1.Text.Trim
k.mdate = DateTimePicker1.Value
Dim converter As New ImageConverter
k.pic = converter.ConvertTo(PictureBox1.Image, GetType(Byte()))
db.Store(k)
بعيدا عن التنظير دعوني اردخلكم في مثال عملي صممته على السريع من اضافة وحذف وتعديل وعرض .
لاحظ عند تشغيل المشروع اول مرة اذا لم يكن هناك قاعدة بيانات يتم انشاءها فورا .
ايضا المكتية يمكنها العمل على شبكة كذلك .
حملوه وجربوه وسوف يكون لنا حديث بعدها
لاتنسو اضافة المكتبة Db4objects.Db4o.dll من الـ Reference
Db4o.rar (الحجم : 562.58 ك ب / التحميلات : 605)