+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ في Open File Dialog (/showthread.php?tid=21963)
خطأ في Open File Dialog - ibraheam - 01-10-17
السلام عليكم
اعمل على برنامج في احد نوافذه اقوم باستيراد اكسل شيت الى الكرد فيو (DataGridView) الامور تعمل بشكل طبيعي و لكن يظر معي الخطأ التالي و لم اتوصل الى حل رغم عمليات البحث عن حلول
الخطا الذي يظهر هو:
PHP كود :
Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
الكود البرمجي هو:
PHP كود :
Try
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim dataSet As System.Data.DataSet
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
Dim path As String = ""
Dim ofd As New OpenFileDialog
With ofd
.Filter = "MS Excel files (*.xls;*.xlsx)|*.xls;*.xlsx"
.InitialDirectory = "d:\"
.Multiselect = False
If .ShowDialog = Windows.Forms.DialogResult.OK Then
path = .FileName
Else
Exit Sub
End If
End With
MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0;")
MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [x$]", MyConnection)
dataSet = New System.Data.DataSet
MyCommand.Fill(dataSet)
DataGridView1.DataSource = dataSet.Tables(0)
MyConnection.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, msgboxtitle)
End Try
السطر البرمجي الذي يظهر فيه الخطأ اعلاه هو :
PHP كود :
If .ShowDialog = Windows.Forms.DialogResult.OK Then
اجمل تحية
RE: خطأ في Open File Dialog - ibraheam - 01-10-17
و عليكم السلام و رحمة الله و بركاته
قمت بتطبيق الخطوات التي ادرجتها في ردك و لكن للاسف نفس الخطأ يظهر
تحياتي
RE: خطأ في Open File Dialog - HASAN6.0 - 03-10-17
الكود يعمل ولا يوجد به مشاكل ...
[attachment=15616]
RE: خطأ في Open File Dialog - وائل القطاوي - 20-03-18
نفس المشكلة على بعض الاجازة وفي اجهزة يعملوا عليها بدون مشاكل
سبحان الله وبحمده
RE: خطأ في Open File Dialog - محمود صالح - 21-03-18
PHP كود :
'Dim ofd As New OpenFileDialog
'ofd.Filter = "Excel|*.xls;*.xlsx"
'If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
' Me.Cursor = Cursors.WaitCursor 'تغير المؤشر للانتظار
' Dim MsExcel = CreateObject("Excel.Application")
' Dim xlWorkBook = MsExcel.Workbooks.Open(ofd.FileName)
' DGV1.DataSource = Nothing
' For I As Integer = 0 To MsExcel.Rows.Count - 2
' If MsExcel.Cells(I + 2, 1).Value.ToString = "" Then Exit For
' DGV1.Rows.Add()
' Dim value1 As String = MsExcel.Cells(I + 2, 1).Value.ToString.Trim
' Dim value2 As String = MsExcel.Cells(I + 2, 2).Value.ToString.Trim
' Dim value3 As Integer = MsExcel.Cells(I + 2, 3).Value
' Dim value4 As Integer = MsExcel.Cells(I + 2, 4).Value
' Dim value5 As Integer = MsExcel.Cells(I + 2, 5).Value
' DGV1.Rows(I).Cells(0).Value = value1
' DGV1.Rows(I).Cells(1).Value = value2
' DGV1.Rows(I).Cells(2).Value = value3
' DGV1.Rows(I).Cells(3).Value = value4
' DGV1.Rows(I).Cells(4).Value = value5
' DGV1.Rows(I).Cells(5).Value = MsExcel.Cells(I + 2, 6).Value
' Next
' xlWorkBook.Close()
' MsExcel.Quit()
' Me.Cursor = Cursors.Default 'تغير المؤشر للاصل
'End If