اذهب إلى المحتوى
  • 0

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

marketer

السؤال

Recommended Posts

  • 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

رابط هذا التعليق
شارك على الشبكات الإجتماعية

انضم إلى النقاش

يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.

زائر
أجب على هذا السؤال...

×   لقد أضفت محتوى بخط أو تنسيق مختلف.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   جرى استعادة المحتوى السابق..   امسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

  • إعلانات

  • تابعنا على



×
×
  • أضف...