تقييم الموضوع :
  • 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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اقوم بحفظ بيانات بقاعدة اكسيس داتا بيز موجودة على سيرفر رهف العريفي 1 35 منذ 11 ساعة مضت
آخر رد: مساعدة
  [VB.NET] اتصال بقاعدة بيانات mysql عن طريق الانترنت kirama 1 39 منذ 11 ساعة مضت
آخر رد: مساعدة
  [سؤال] مشكلة لنت فروم ورك مع برنامجى Mohamed371 0 17 منذ 11 ساعة مضت
آخر رد: Mohamed371
  [سؤال] مشكلة لنت فروم ورك مع برنامجى Mohamed371 0 28 19-01-17, 12:00 PM
آخر رد: Mohamed371
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 64 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 140 15-01-17, 10:46 PM
آخر رد: كفاح
  [VB.NET] مشكلة بسيطة جداً timer 3asfa~mdmra 4 95 15-01-17, 10:09 PM
آخر رد: 3asfa~mdmra
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 108 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 95 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 126 14-01-17, 12:36 PM
آخر رد: أبووسم

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


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