[alma_fandi]

(27-04-17, 12:06 PM)Adrees كتب : وعليكم السلام
لو تم ارفاق المثال لوضحت الفكرة أكثر.
ماهو نوع الــ id  هل هو تكست بوكس ام كمبوبوكس ام ماذا ؟
الأفضل تسمية الحقول والادوات بإسماء ليست محجوزة.
على سبيل المثال الـــ id يكون اسمه بهذا الشكل id_ او txt_id وغيره.

اشكرك  سيد  Adrees
تكرم  رح ارفق البرنامج



اشكرك سيد  rmlq

(27-04-17, 01:47 PM)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

كود :

  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("Birthday", dtBirthday.Value.Date)
       cmd.Parameters.AddWithValue("Age", Val(txtAge.Text))
       cmd.Parameters.AddWithValue("Sex", cboSex.Text.Trim)
       cmd.Parameters.AddWithValue("Nationality", txtNationality.Text.Trim)
       cmd.Parameters.AddWithValue("Nationality_ID", Val(txtNationalityID.Text))
       cmd.Parameters.AddWithValue("Type", cboType.Text.Trim)
       cmd.Parameters.AddWithValue("State", cboState.Text.Trim)
       cmd.Parameters.AddWithValue("Place", cboPlace.Text.Trim)
       cmd.Parameters.AddWithValue("Phone", Val(txtPhone.Text))
       cmd.Parameters.AddWithValue("Address", Address.Text.Trim)
       cmd.Parameters.AddWithValue("D1", chkD1.Checked)
       cmd.Parameters.AddWithValue("D2", chkD2.Checked)
       cmd.Parameters.AddWithValue("D3", chkD3.Checked)
       cmd.Parameters.AddWithValue("D4", chkD4.Checked)
       cmd.Parameters.AddWithValue("D5", chkD5.Checked)
       cmd.Parameters.AddWithValue("D6", chkD6.Checked)


       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.Refresh()
       Frmprint.Show()

   End Sub

بيعطي  خطأ اوفر لود