احتاج لتعديل بسيط على هذا الكود

السلام عليكم

ما هو اصدار الفيجوال المستخدم؟

ممكن تكتب الكود ورسالة الخطأ هنا؟

اصدار الفجول بيسك 2010

الخطأ يظهر على شكل خط أزرق على جزء من الكود لذلك بودي النظر فيه باستخدام محرر الكود أفضل , وعلى كل حال ارفقت صورة للكود من محرر الفجول بيسك.

السلام عليكم ورحمه الله وبركاته

اخي الي تتعامل معاه هو DataSet وليس DataGridView, يرجى التأكد؟!!

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي الي الي تتعامل معاه هو DataSet وليس DataGridView, يرجى التأكد؟!!

اخي الفاضل كلامك صحيح ولكن ماذا يعني هذا ؟ آمل التوضيح أكثر وشكرا لك.

السلام عليكم ورحمه الله وبركاته

اخي اذا كنت تريد الوصول لخصائص خلية معينة في DataGridView قم بتغيير اسم الكائن, لأن اسم الكائن لديك يشير الى DataSet وطبعا هذا الكائن لايمتلك الخاصية Cells؟!!

اخي الفاضل انا اريد الوصول إلى خصائص حقل في DataSet ولا ادري كيف !!؟؟ والفكرة اخذتها من كود كانت الحقول فيه لـ DataGraid فكيف لي تطبيق الكود على Form يوجد به سجلات دون وجدود DataGraid .

أصل الكود موجود في هذه المشاركة: http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/b2a899b1-4db2-489f-9908-93df23ba73f0

والكود كالتالي :

Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click  
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DataGridSaveDB.accdb;Persist Security Info=True" 
        ' If you are using Sql server replace "OleDb" with "Sql" for example  
        ' OleDBConnection --> SqlConnection  
        ' OleDbCommand    --> SqlCommand  
        Using connection As New OleDbConnection(connectionString)  

            Dim cmdText As String = "INSERT INTO DGV (ColumnA, ColumnB, ColumnC) VALUES (@ColumnA, @ColumnB, @ColumnC)" 
            Dim command As New OleDbCommand(cmdText, connection)  
            command.Parameters.Add(New OleDbParameter("@ColumnA", OleDbType.VarWChar))  
            command.Parameters.Add(New OleDbParameter("@ColumnB", OleDbType.VarWChar))  
            command.Parameters.Add(New OleDbParameter("@ColumnC", OleDbType.VarWChar))  

            connection.Open()  
            Dim transaction As OleDbTransaction = connection.BeginTransaction()  
            command.Transaction = transaction  

            Try 

                For i As Integer = 0 To DataGridView2.Rows.Count - 2  
                    command.Parameters("@ColumnA").Value = DataGridView2.Rows(i).Cells(0).FormattedValue  
                    command.Parameters("@ColumnB").Value = DataGridView2.Rows(i).Cells(1).FormattedValue  
                    command.Parameters("@ColumnC").Value = DataGridView2.Rows(i).Cells(2).FormattedValue  
                    command.ExecuteNonQuery()  
                Next i  

                transaction.Commit()  
            Catch ex As Exception  

                Try 
                    transaction.Rollback()  

                Catch rollBackEx As Exception  
                    MessageBox.Show(rollBackEx.Message)  
                End Try 

            End Try 

        End Using  

    End Sub

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي للوصول لحقل معين في الـ DataSet

DBtestDataSet.Tables[0].Rows[0][0].ToString();

في الكود اعلاه تم الوصول للحقل الاول في الصف الاول في الجدول الاول في الـ DataSet يمكنك استبدال رقم الحقل باسمه

طلع لي خطأ وهو :wink:

Error 1 Identifier expected

لقد جربت هذه الطرق :

myDataSet.Tables["TableName"].Rows[rowIndex]["FieldName"];
or
myDataSet.Tables["TableName"].Rows[rowIndex][columnIndex];
or
myDataSet.Tables[tableIndex].Rows[rowIndex]["FieldName"];
or
myDataSet.Tables[tableIndex].Rows[rowIndex][columnIndex];