تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Attempted to read or write protected memory مشكلة في قاعدة بيانات و chart
#1
[COLOR="#0000FF"][COLOR="#FF0000"]السلام عليكم شباب ....... عندما اشغل البرنامج يحصل لي الخطاء التالي :
Attempted to read or write protected memory. This is often an indication that other memory is corrupt
هذا هو الكود ........[/COLOR][/COLOR]
.

[HTML][HTML][HTML][HTML][HTML]
PHP كود :
[HTML][HTML][CODE][HTML][HTML][HTML][HTML]
Imports System.Data.OleDb[align=left][align=left]
Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1

    
Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Table1BindingNavigatorSaveItem.Click
        Me
.Validate()
        
Me.Table1BindingSource.EndEdit()
        
Me.TableAdapterManager.UpdateAll(Me.SampleDataSet)

    
End Sub

    
Private Sub Table1DataGridView_CellContentClick(ByVal sender As System.ObjectByVal e As System.Windows.Forms.DataGridViewCellEventArgsHandles Table1DataGridView.CellContentClick
        
If TextBox1.Text.Length 0 Then
            MessageBox
.Show("Load The Database Please""OAO Software"MessageBoxButtons.OKMessageBoxIcon.Exclamation)
            
DataGridViewTextBoxColumn2.Clone()
        ElseIf 
TextBox1.Text.Length 0 Then

        End 
If

    
End Sub


    
'~~> Code required to browse for the Access Database File

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        With OpenFileDialog1
            .DefaultExt = "accdb"
            .DereferenceLinks = True
            .Filter = _
             "Access files (*.accdb)|*.accdb"
            .Multiselect = False
            .Title = "Select an Access Database file to open"
            .ValidateNames = True
            Try
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    Try
                        TextBox1.Text = .FileName
                    Catch fileException As Exception
                        Throw fileException
                    End Try
                End If
            Catch ex As Exception
                MessageBox.Show("Load The Database Please", "OAO Software", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End With


    End Sub

    '
~~> Code to generate the chart
    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click


        Dim strConn 
As String "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" TextBox1.Text _
        
";Persist Security Info=False;"
        
Dim tblFields As String "SELECT * from Table1"

        
Dim conn As New OleDbConnection(strConn)
        
Dim oCmd As New OleDbCommand(tblFieldsconn)
        
Dim oData As New OleDbDataAdapter(tblFieldsconn)
        
Dim ds As New DataSet

        conn
.Open()
        
oData.Fill(ds"Table1")
        
conn.Close()

        
Chart1.DataSource ds.Tables("Table1")
        
Dim Series1 As Series Chart1.Series("Series1")
        
Chart1.Series(Series1.Name).ChartType SeriesChartType.Spline


        Chart1
.Series(Series1.Name).XValueMember "nFruits"
        
Chart1.Series(Series1.Name).YValueMembers "nSales"

        
Chart1.Size = New System.Drawing.Size(780350)

    
End Sub


    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        
'TODO: This line of code loads data into the 'SampleDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.SampleDataSet.Table1)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table1BindingNavigatorSaveItem.PerformClick()
        MessageBox.Show("Updated", "OAO Software", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        BindingNavigatorDeleteItem.PerformClick()
        MessageBox.Show("Deleted", "OAO Software", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub

   
End Class[/align][/align][/HTML][/HTML][/HTML][/HTML][/CODE][/HTML][/HTML] 
[/HTML][/HTML][/HTML][/HTML][/HTML]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في البحث بالتاريخ ____وايضا ____ بين تاريخين khaled12345 7 105 أمس, 03:55 PM
آخر رد: khaled12345
  [VB.NET] مشكلة في تعلم لغة vb.net anis789 3 79 أمس, 03:08 AM
آخر رد: silverlight
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 111 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  البحث في قاعدة بيانات اكسس hatem555 6 134 22-05-17, 02:53 AM
آخر رد: hatem555
  مشكلة تفعيل ظهور checkbox في الفورم عامر الجبوري 4 87 21-05-17, 02:22 PM
آخر رد: alma2
  حل مشكلة " البرامج لا تعمل" عبدالرحمن المكاوي 4 89 20-05-17, 12:43 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 94 19-05-17, 03:50 PM
آخر رد: khaled12345
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  [VB.NET] حل مشكلة الارقام في الاداة DataGridview أبو نقطة 2 56 19-05-17, 12:10 PM
آخر رد: alma2

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم