السلام عليكم ورحمة الله
اطلب منكم المساعدة فى مشكلة غريبة ولم استطع ايجاد حل لما يحدث والموضوع بمنتهى البساطة انى اقوم بعمل برنامج صغير يقوم بأخذ البيانات من ملف اكسيل وحفظها فى Dataset ومنها الى قاعدة بيانات Access وكلما قمت بتنفيذ الامر يعطنى رسالة خطأ عندما يقوم ال DataAdapter بعمل Update للـبيانات فى قاعدة البيانات فما الخطأ ؟؟ برجاء المساعدة
ولكم جزيل الشكر
ملاحظة : الكود الخاص بالبرنامج مرفق
Dim xlsFile As String = Application.StartupPath & "/Test.xls"
Dim mdbFile As String = Application.StartupPath & "/Test.mdb"
Dim xlsStr As String = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & _
xlsFile & " '; " & "Extended Properties=""Excel 8.0;IMEX=1""")
Dim mdbStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & mdbFile _
& ";User Id=admin;Password=;"
Dim xlsConn As New OleDbConnection(xlsStr)
Dim DtSet As DataSet
Dim MyCommand As OleDbDataAdapter
Dim RangeName As String = "CellData"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
MyCommand = New OleDbDataAdapter("SELECT * FROM " & [RangeName], xlsConn)
DtSet = New DataSet
MyCommand.Fill(DtSet)
dgViewSample.DataSource = (DtSet).Tables(0)
xlsConn.Close()
Catch ex As Exception
Dim er As String
xlsConn.Close()
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xlsConn.Open()
Dim mdbConn As New OleDbConnection(mdbStr)
Dim xlsDA As New OleDbDataAdapter("SELECT * FROM " & [RangeName], xlsConn)
Dim x As OleDbCommandBuilder = New OleDbCommandBuilder(xlsDA)
mdbConn.Open()
xlsDA.Update(DtSet, "Test") رسالة الخطأ تحدث هنا عند عملية نقل البيانات الى الاكسسيس
dgViewSample.Refresh()
mdbConn.Close()
End Sub