14-11-12, 06:55 AM
(آخر تعديل لهذه المشاركة : 15-11-12, 04:38 AM {2} بواسطة lynche1986.)
[COLOR="#4B0082"]السلام عليكم و رحمة الله و بركاته
مرحبا بكم في اولي مواضيعي في هذا المنتدي المتميز
جعله الله العون و السند لكل طالب علم
في هذا الموضوع سوف نتعلم سويا و من الالف الي الياء كلا من :
--------------------------------------
كيفية الاتصال بقاعدة بيانات اكسيس
اضافة بيان الي قاعدة البيانات
عرض البيانات من قاعدة البيانات
حذف بيان معين
تعديل علي بيان حالي
ارجو التثبيت لكي يكون مرجع يسهل علي الكثير
و سوف ابدأ شرح كل نقطة شرح مفصل و وافي انشاء الله
و نبدأ بكود الأتصال :
اولا : ان قاعدة البيانات هي مخزن كبير يتسع لكل ملفات برنامجكك
اعتبرها الارشيف
و كل ما كان الارشيف بتاعك منظم كل ما زاد الاستفادة منه
و سهولة ادخال و استخراج البيانات منه
لذلك انصح قبل انشاء اي قاعدة بيانات استخدام ورقة و قلم
لتحديد المطلوب و المراد بالظبط قبل تنفيذه لكي تري الصورة كاملة قبل البدء
اسف للاطاله و لكن الشرح التفصيلي افضل
شخصيا عند اضافة قاعد بيانات لبرنامجي افضل ربطها برمجيا
اي عن طريق الاكواد
و اختصارا للوقت احب انها تكون في مديول لكي استدعيها بسهولة في اي وقت
و كبدايه سوف انشأ مشروع جديد و اضيف مديول للمشروع و ليكن
Module1
و سوف اقوم بتعريف المتغيرات الثابته معي لكي لا اعيد كتابتها كل مرة
و بعد ذلك سوف اقوم بأضافة كود الأتصال
الان كل ما علي فعله هوا
عند الاتصال بقاعدة البيانات من اي فورم فرعي
فقط كتابة
dataconnection
و سوف يتم استدعاء كود الاتصال
اذا الكود الكامل للمديول
ملحوظة اذا كانت قاعدة البيانات غير محمية بكلمة سوف يكون الكود كالتالي
و الان تمت بحمد الله اول نقطة الي الباقي
----------------------------------------------------------
اضافة بيان لقاعدة البيانات
الان لنقوم بأضافة جدول جديد في قاعدة البيانات وليكن emp
و سوف يحتوي علي بيانات الموظفين مثل الاسم و العنوان و رقم الهاتف
لنسمي اول عمود ب ID و الداتا طيب autonumber
EmpName و الداتا طيب text
EmpAdd وهذا ايضا text
EmpNum وكذلك هذا text
اما فائدة العمود الاول فهو المسلسل الخاص بكل موظف لضمان عدم حدوث خطأ
اثناء وجود تشابه في الاسم مثلا و كذله له استخدامات اخري سوف تظهر مع متابعتك للموضوع
الان سوف نضيف فورم جديد
بداخله 3 تكست بوكس
الاول للاسم و الثاني للعنوان و الثالث لرقم الهاتف
و زر واحد و هو حفظ
و سوف نقوم بكتابة الكود التالي في زر الحفظ
و بهاذا نكون اكملنا النقطة الثانية بحمد الله
سوف استكمل الموضوع علي الرابط التالي
http://vb4arb.com/vb/showthread.php?3053...B%C8%ED%CA
[/COLOR]
مرحبا بكم في اولي مواضيعي في هذا المنتدي المتميز
جعله الله العون و السند لكل طالب علم
في هذا الموضوع سوف نتعلم سويا و من الالف الي الياء كلا من :
--------------------------------------
كيفية الاتصال بقاعدة بيانات اكسيس
اضافة بيان الي قاعدة البيانات
عرض البيانات من قاعدة البيانات
حذف بيان معين
تعديل علي بيان حالي
ارجو التثبيت لكي يكون مرجع يسهل علي الكثير
و سوف ابدأ شرح كل نقطة شرح مفصل و وافي انشاء الله
و نبدأ بكود الأتصال :
اولا : ان قاعدة البيانات هي مخزن كبير يتسع لكل ملفات برنامجكك
اعتبرها الارشيف
و كل ما كان الارشيف بتاعك منظم كل ما زاد الاستفادة منه
و سهولة ادخال و استخراج البيانات منه
لذلك انصح قبل انشاء اي قاعدة بيانات استخدام ورقة و قلم
لتحديد المطلوب و المراد بالظبط قبل تنفيذه لكي تري الصورة كاملة قبل البدء
اسف للاطاله و لكن الشرح التفصيلي افضل
شخصيا عند اضافة قاعد بيانات لبرنامجي افضل ربطها برمجيا
اي عن طريق الاكواد
و اختصارا للوقت احب انها تكون في مديول لكي استدعيها بسهولة في اي وقت
و كبدايه سوف انشأ مشروع جديد و اضيف مديول للمشروع و ليكن
Module1
و سوف اقوم بتعريف المتغيرات الثابته معي لكي لا اعيد كتابتها كل مرة
كود :
Public cnn As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public dbpass As String = "data base password"
كود :
Public Sub dataconnection()
If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
cnn.Close()
End If
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
If Not cnn.State = ConnectionState.Open Then
'افتح الاتصال
cnn.Open()
End If
End Sub
عند الاتصال بقاعدة البيانات من اي فورم فرعي
فقط كتابة
dataconnection
و سوف يتم استدعاء كود الاتصال
اذا الكود الكامل للمديول
كود :
Module Module1
Public cnn As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public dbpass As String = "data base password"
Public Sub dataconnection()
If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
cnn.Close()
End If
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
If Not cnn.State = ConnectionState.Open Then
'افتح الاتصال
cnn.Open()
End If
End Sub
End Module
ملحوظة اذا كانت قاعدة البيانات غير محمية بكلمة سوف يكون الكود كالتالي
كود :
Module Module1
Public cnn As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public dbpass As String = ""
Public Sub dataconnection()
If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
cnn.Close()
End If
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
If Not cnn.State = ConnectionState.Open Then
'افتح الاتصال
cnn.Open()
End If
End Sub
End Module
----------------------------------------------------------
اضافة بيان لقاعدة البيانات
الان لنقوم بأضافة جدول جديد في قاعدة البيانات وليكن emp
و سوف يحتوي علي بيانات الموظفين مثل الاسم و العنوان و رقم الهاتف
لنسمي اول عمود ب ID و الداتا طيب autonumber
EmpName و الداتا طيب text
EmpAdd وهذا ايضا text
EmpNum وكذلك هذا text
اما فائدة العمود الاول فهو المسلسل الخاص بكل موظف لضمان عدم حدوث خطأ
اثناء وجود تشابه في الاسم مثلا و كذله له استخدامات اخري سوف تظهر مع متابعتك للموضوع
الان سوف نضيف فورم جديد
بداخله 3 تكست بوكس
الاول للاسم و الثاني للعنوان و الثالث لرقم الهاتف
و زر واحد و هو حفظ
و سوف نقوم بكتابة الكود التالي في زر الحفظ
كود :
dataconnection()
cmd.Connection = cnn
cmd.CommandText = "INSERT INTO [emp] " & _
"([EmpName],[EmpAss],[EmpNum]) VALUES" & _
"('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
cmd.ExecuteNonQuery()
cnn.Close()
و بهاذا نكون اكملنا النقطة الثانية بحمد الله
سوف استكمل الموضوع علي الرابط التالي
http://vb4arb.com/vb/showthread.php?3053...B%C8%ED%CA
[/COLOR]
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته