إخواني هاذا مشروع ربط قاعدة البيانات مع الفجوال بزبك 2010 اتخذت كل الطرق ولاكن بدون جدوى
أنشأت جدول قاعدة البيانات في الأكسس بإسم gbx و الجدول بإسم Tu مع العلم أن إسم المشرع حفظته بإسم VB في الفجوال بزيك
مع العلم أيضا أني حفظت قاعدة البيانات في bin وفي ملف debug
و الخطأ هنا
Aucune sours Disponible
Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException.
L'erreur est : Un fournisseur OLE DB n'était pas spécifié dans ConnectionString. Par exemple, 'Provider=SQLOLEDB;'.
إليكم الكود
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim Con As String = " proveder = Microsoft.jet.oledb.4.0;" & "data sours=" & Application.StartupPath & "\VB\gbx.dbm"
Dim GB As New OleDbConnection(Con)
Dim TS As New DataSet
Dim SQLstr As String = "select * from Tu"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GB.Open()
Dim dataAdabter1 As New OleDbDataAdapter(SQLstr, GB)
dataAdabter1.Fill(TS, "Tu")
GB.Close()
End Sub
End Class
أنشأت جدول قاعدة البيانات في الأكسس بإسم gbx و الجدول بإسم Tu مع العلم أن إسم المشرع حفظته بإسم VB في الفجوال بزيك
مع العلم أيضا أني حفظت قاعدة البيانات في bin وفي ملف debug
و الخطأ هنا
Aucune sours Disponible
Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException.
L'erreur est : Un fournisseur OLE DB n'était pas spécifié dans ConnectionString. Par exemple, 'Provider=SQLOLEDB;'.
إليكم الكود
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim Con As String = " proveder = Microsoft.jet.oledb.4.0;" & "data sours=" & Application.StartupPath & "\VB\gbx.dbm"
Dim GB As New OleDbConnection(Con)
Dim TS As New DataSet
Dim SQLstr As String = "select * from Tu"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GB.Open()
Dim dataAdabter1 As New OleDbDataAdapter(SQLstr, GB)
dataAdabter1.Fill(TS, "Tu")
GB.Close()
End Sub
End Class
