• 0

كيف أربط قواعد البيانات أكسس بالفجوال بيسك؟

السلام عليكم

أرجو شرح مبسط لكيفية ربط قواعد البيانات أكسس بالفجوال بيسك، وأحالتى إلى أى مصادر أخرى للإستزادة.

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة
  • 0

هذا مثال لكيفية ربط تطبيق Vb.net بقاعدة بيانات من نوع access :

'Module قم بانشاء كلاس من نوع
 'نجلب 
Imports System.Data.OleDb 
Module bdaccess
'تعريف رابط الاتصال بقاعدة البيانات
Dim MyConnection As New System.Data.OleDb.OleDbConnection()
'دالة اربط الاتصال
Public Sub connection(ByVal namebd As String)
'اسم قاعدة البيانات namedb
Try
MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & namebd
'فتح الاتصال
MyConnection.Open()
Catch ex As Exception
'عرض رسالة في حالة تعذر الاتصال
MessageBox.Show("لا يمكن الاتصال لسبب :" & ex.Message)
End Try
End Sub
' دالة انهاء الاتصال
Public Sub deconnection()
Try
MyConnection.Close()
Catch ex As Exception
MessageBox.Show("لايمكنك الاتصال لسبب :." & ex.Message)
End Try
End Sub

'لتنفيذ أمر سكوال من نوع جلب المعلومات  select
Public Function access(ByVal requetesql As String) As DataSet
'مثال
'requestdsl="select * from user"
Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim MyDataSet As DataSet = New DataSet("MesDonnées")
Dim StrConnect As String
Dim MyCommand As OleDbCommand

Try
MyCommand = New OleDbCommand(requetesql, MyConnection)
MyAdapter.SelectCommand = MyCommand
MyDataSet.Clear()
MyAdapter.Fill(MyDataSet, "user")
'المعلومات المستخرجة موجودة في جدول مسمى   user
' MyDataSet.Tables(0) أي
Return MyDataSet
Catch ex As Exception
MessageBox.Show("لا يمكن ربط الاتصل بسبب :." & ex.Message)
End Try
End Function
End Module

يمكنك الاستفادة من هذا الرابط الرسمي لمايكرسوفت : https://msdn.microsoft.com/fr-fr/library/system.data.oledb.oledbconnection(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن