[Rabeea Qbaha]

أذا اردت الاضافه مباشره استخدم الاتي : 

PHP كود :

        For x As Integer = 0 To 100
            Using con As New OleDbConnection(connString)
                Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
                    cmd.Parameters.AddWithValue("@amil_Name", ("test1"))
                    cmd.Parameters.AddWithValue("@adres", ("test2"))
                    cmd.Parameters.AddWithValue("@n_tile", ("test3"))
                    'فحص الاتصال بقاعدة البيانات
                    If con.State = ConnectionState.Open Then
                        con.Close()
                    End If
                    con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()
                End Using
            End Using
        Next
        MsgBox("تم الاضافه بنجاح") 


اما اذا اردت اضافه جميع بيانات ال datagrid مره واحده استخدم الاتي :

PHP كود :

For x As Integer = 0 To DataGridView2.Rows.Count - 2
            Using con As New OleDbConnection(connString)
                Using cmd As New OleDbCommand("insert into amil (amil_Name,adres,n_tile) values(@amil_Name,@adres,@n_tile)", con)
                    cmd.Parameters.AddWithValue("@amil_Name", (DataGridView2.Rows(x).Cells(0).Value))
                    cmd.Parameters.AddWithValue("@adres", (DataGridView2.Rows(x).Cells(1).Value))
                    cmd.Parameters.AddWithValue("@n_tile", (DataGridView2.Rows(x).Cells(2).Value))
                    'فحص الاتصال بقاعدة البيانات
                    If con.State = ConnectionState.Open Then
                        con.Close()
                    End If
                    con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()
                End Using
            End Using
        Next
        DataGridView2.Rows.Clear()
        MsgBox("تم الاضافه بنجاح")
    End Sub