[rmlq]

تعديل الكود الاول

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Report As New CrystalReport1
        Dim sql As String = " INSERT INTO [Table1] ( [Name], [Birthday], [Age], [Sex], [Nationality], [Nationality_ID], [Type], [State], [Place], [Phone], [Address], [D1], [D2], [D3], [D4], [D5], [D6]  ) " & _
                " VALUES                 ( @Name,  @Birthday,  @Age,  @Sex,  @Nationality,  @Nationality_ID,  @Type,  @State,  @Place,  @Phone,  @Address,  @D1,  @D2,  @D3,  @D4,  @D5,  @D6)"

        Dim cmd As New OleDbCommand(sql, conn)
        cmd.Parameters.AddWithValue("@Name", txtName.Text)
        cmd.Parameters.AddWithValue("@", ...)
        'اكمل باقي الابارامترات بالترتيب

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()

        Dim adp As New OleDbDataAdapter("SELECT TOP 1 * FROM [Table1] ORDER BY [id] DESC", conn)
        Dim tbl As New DataTable
        adp.Fill(tbl)

        Report.SetDataSource(tbl)
        Frmprint.CrystalReportViewer1.ReportSource = Report
        Frmprint.CrystalReportViewer1.Zoom(80%)
        Frmprint.CrystalReportViewer1.Refresh()
        Frmprint.Show()

    End Sub