المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
21-10-13, 07:08 PM
الساده الكرام
السلام عليكم ورحمة وبركاته
هل يوجد شرح بصور عن كيفة ربط قواعد البيانات اكسس عن طريق الكود ؟؟
وجزكم الله خيراً
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 59
المواضيع 4
الإنتساب : Oct 2013
السمعة :
9
الشكر: 167
تم شكره 344 مرات في 38 مشاركات
السلام عليكم ورحمة الله وبركاتة
يا اخى سؤالك هذا -- لو اتعبت نفسك دقيقة وبحثت فى المنتدى
سوف تلاحظ انة مجاب عنة مئات المرات
فرجاء اذا كنت تريد ان تصبح مبرمج حقيقى لاتأخذ المعلومة على طبق من ذهب
وابحث مرة واثنين وثلاثة .. وفى حالة عدم عثورك على المعلومة يمكنك فى هذة الحالة
ان تطرح سؤالك فى المنتدى
والسلام عليكم
-----------------------
Software Developer
Microsoft Partner
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(22-10-13, 12:40 AM)sherif khalid كتب : السلام عليكم ورحمة الله وبركاتة
يا اخى سؤالك هذا -- لو اتعبت نفسك دقيقة وبحثت فى المنتدى
سوف تلاحظ انة مجاب عنة مئات المرات
فرجاء اذا كنت تريد ان تصبح مبرمج حقيقى لاتأخذ المعلومة على طبق من ذهب
وابحث مرة واثنين وثلاثة .. وفى حالة عدم عثورك على المعلومة يمكنك فى هذة الحالة
ان تطرح سؤالك فى المنتدى
والسلام عليكم
------------------------------------------------------------------------------------
لاخي العزيز
السلام عليكم ورحمةوبركاته
لم اجد عن طريق البحث في المنتدى إجابة على السوال هل يمكن المساعده من طرفكم
ولكم مني جزيل الشكر والتقدير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 230
المواضيع 17
الإنتساب : Sep 2012
السمعة :
24
الشكر: 1555
تم شكره 874 مرات في 149 مشاركات
الي فهمته منك انك تبغى كود الاتصال يعني ربط القاعدة الاكسس بالفيجوال بالكود
تفضل هذا الطريقة بالنوعين
Microsoft ACE OLEDB 12.0
Microsoft Jet OLE DB 4.0
الموقع توجد فيها الاكواد
http://www.connectionstrings.com/access/
المشاركات : 653
المواضيع 83
الإنتساب : Sep 2012
السمعة :
81
الشكر: 1558
تم شكره 3397 مرات في 508 مشاركات
انظر للموضوع التالي ربما تستفيد منه:
http://vb4arb.com/vb/showthread.php?tid=645
لك تحية.
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
23-10-13, 07:09 PM
(آخر تعديل لهذه المشاركة : 23-10-13, 07:10 PM {2} بواسطة Microformt.)
(22-10-13, 08:41 PM)العزابي كتب : الي فهمته منك انك تبغى كود الاتصال يعني ربط القاعدة الاكسس بالفيجوال بالكود
تفضل هذا الطريقة بالنوعين
Microsoft ACE OLEDB 12.0
Microsoft Jet OLE DB 4.0
الموقع توجد فيها الاكواد
http://www.connectionstrings.com/access/
--------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
هل في الامكان المساعده في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم
(22-10-13, 10:20 PM)أبوبكر سويدان كتب : انظر للموضوع التالي ربما تستفيد منه:
http://vb4arb.com/vb/showthread.php?tid=645
لك تحية.
------------------------------------------------------------------------------------------
خي العزيز
السلام عليكم ورحمة وبركاته
هل في الامكان المساعده في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 230
المواضيع 17
الإنتساب : Sep 2012
السمعة :
24
الشكر: 1555
تم شكره 874 مرات في 149 مشاركات
شوف ياخي الكريم أنا عندي 2010 وماراح يشتغل معاك
انا راح اعطيك الكود تحطه بالفورم
كود :
Imports System.Data.OleDb
Public Class Form1
Public con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin")
Dim DataSet1 As New DataSet
Dim DataAdapter1 As New OleDbDataAdapter
Dim BindingSource1 As BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim toob As OleDbCommand = New OleDbCommand("SELECT iD,Name,sss from toob order by id", con)
DataAdapter1 = New OleDbDataAdapter(toob)
Dim builder1 As New OleDbCommandBuilder(DataAdapter1)
DataSet1 = New DataSet()
DataAdapter1.Fill(DataSet1, "toob")
BindingSource1 = New BindingSource(DataSet1, "toob")
TextBox1.DataBindings.Add("Text", BindingSource1, "iD", True, 1, "")
TextBox2.DataBindings.Add("Text", BindingSource1, "Name", True, 1, "")
TextBox3.DataBindings.Add("Text", BindingSource1, "sss", True, 1, "")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("هل تريد اضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
Application.DoEvents()
' الغاء اضافة السجل او السجلات الجديدة والتراجع عن التعديل دام لم يتم حفظها
'وسبب وضع الامر هنا من شان اذا ضغطت زر الاضافة اكثر من مرة
DataSet1.RejectChanges()
'امر اضافة سجل جديد
BindingSource1.AddNew()
'كود انهاء عملية الاضافة ولكن لم يحفظ في القاعدة بعد
BindingSource1.EndEdit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If BindingSource1.Count = 0 Then Beep() : Exit Sub
'كود حفظ الاضافة وحفظ التعديل
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1, "toob")
MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
ولمعلوميتك فيه فيه قسم المشاريع أمثلة رائعة .
حاجة مهمة أنا غيرت اسم حقل القسم بالقاعدة عندك لانها محجوزة إلى SSS
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(23-10-13, 09:41 PM)العزابي كتب : شوف ياخي الكريم أنا عندي 2010 وماراح يشتغل معاك
انا راح اعطيك الكود تحطه بالفورم
كود :
Imports System.Data.OleDb
Public Class Form1
Public con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin")
Dim DataSet1 As New DataSet
Dim DataAdapter1 As New OleDbDataAdapter
Dim BindingSource1 As BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim toob As OleDbCommand = New OleDbCommand("SELECT iD,Name,sss from toob order by id", con)
DataAdapter1 = New OleDbDataAdapter(toob)
Dim builder1 As New OleDbCommandBuilder(DataAdapter1)
DataSet1 = New DataSet()
DataAdapter1.Fill(DataSet1, "toob")
BindingSource1 = New BindingSource(DataSet1, "toob")
TextBox1.DataBindings.Add("Text", BindingSource1, "iD", True, 1, "")
TextBox2.DataBindings.Add("Text", BindingSource1, "Name", True, 1, "")
TextBox3.DataBindings.Add("Text", BindingSource1, "sss", True, 1, "")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("هل تريد اضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
Application.DoEvents()
' الغاء اضافة السجل او السجلات الجديدة والتراجع عن التعديل دام لم يتم حفظها
'وسبب وضع الامر هنا من شان اذا ضغطت زر الاضافة اكثر من مرة
DataSet1.RejectChanges()
'امر اضافة سجل جديد
BindingSource1.AddNew()
'كود انهاء عملية الاضافة ولكن لم يحفظ في القاعدة بعد
BindingSource1.EndEdit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If BindingSource1.Count = 0 Then Beep() : Exit Sub
'كود حفظ الاضافة وحفظ التعديل
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1, "toob")
MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
ولمعلوميتك فيه فيه قسم المشاريع أمثلة رائعة .
حاجة مهمة أنا غيرت اسم حقل القسم بالقاعدة عندك لانها محجوزة إلى SSS
--------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاتة
لك مني جزيل الشكر والتقدير والله يحفظكم ويجعل ذلك في موازين حسناتكم
ولكم مني فائق الاحترام والتقدير
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
|