[كود برمجي]

(15-04-17, 12:18 AM)khodor1985 كتب : لقد تم التعديل على إصدار المشروع بناء لطلبك
المشروع بعد التعديل عليه :

---

PHP كود :

Imports System.Data.OleDb
Imports System.Data
Public Class Form2
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDb.accdb")
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim dt As DataTable
    Dim sqlstr As String

    Sub loadPerson()
        Try
            dgvPerson.Rows.Clear()
            sqlstr = "Select * from Person"
            da = New OleDbDataAdapter(sqlstr, con)
            dt = New DataTable("Person")
            da.Fill(dt)
            For Each rw As DataRow In dt.Rows
                dgvPerson.Rows.Add(rw(0), rw(1), rw(2))
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Sub InsertPerson()
        Try
            con.Open()

            For Each rw As DataGridViewRow In dgvPerson.Rows
                sqlstr = "Insert Into Person(Fname,Age) Values(@Fname,@Age)"
                cmd = New OleDbCommand(sqlstr, con)
                cmd.Parameters.Add("@Fname", OleDbType.VarWChar).Value = rw.Cells(1).Value.ToString()
                cmd.Parameters.Add("@Age", OleDbType.VarWChar).Value = rw.Cells(2).Value.ToString()
                cmd.ExecuteNonQuery()
            Next
            con.Close()
        Catch ex As Exception

        End Try
    End Sub

    Sub DeleteAllPerson()
        Try
            con.Open()
            sqlstr = "Delete From Person"
            cmd = New OleDbCommand(sqlstr, con)
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        DeleteAllPerson()
        InsertPerson()
        loadPerson()
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        loadPerson()
    End Sub
End Class 


انا اسف جدا ولكني عدلت على قاعده البيانات سيرفر ولكنها لم تنجح معي ونفس المشكلة يحفظ صف واحد فقط.. جدا اسف ولكن لو تكرمت وعدلت على الاسكيول سيرفر تكون ماقصرت معي .. لقد ارفقت لك قاعدة البيانات ..