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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 28 أمس, 02:14 PM
آخر رد: tryold
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 25 06-12-16, 04:34 PM
آخر رد: Ayman97
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 32 05-12-16, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 125 05-12-16, 03:09 PM
آخر رد: thevirus
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 133 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 55 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 210 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  حل مشكلة الكود الاتي - سهل- CLARO 3 85 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 71 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري

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


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