[alma_fandi]

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

ما الخطا بهذا الكود


طباعه فورم اخر سجل بالجدول  

حاولت اعمل الكوود بس ما تنفذ شي

كود :

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  ; SELECT @@IDENTITY;, conn)"
     
   


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

   End Sub

جربت اعمل مثل الاخ  http://vb4arb.com/vb/showthread.php?tid=16169&page=2

كود :

 Dim Report As New CrystalReport1
     
       Dim q = From x In myDatatable Where x.Item("id") = id
       If q.Count > 0 Then
           Report.SetDataSource(q.CopyToDataTable)

           Frmprint.CrystalReportViewer1.ReportSource = Report
           Frmprint.CrystalReportViewer1.Zoom(80%)
           Frmprint.CrystalReportViewer1.Refresh()
         Frmprint.Show()
       End If

لكن  واجهت مشكلة مع انه  الحقل ترقيم تلقائي والحقل موجود فيه قيمه =14
مع هيك بحكي لى انه الحقل خالي

   

[Adrees]

وعليكم السلام
لو تم ارفاق المثال لوضحت الفكرة أكثر.
ماهو نوع الــ id هل هو تكست بوكس ام كمبوبوكس ام ماذا ؟
الأفضل تسمية الحقول والادوات بإسماء ليست محجوزة.
على سبيل المثال الـــ id يكون اسمه بهذا الشكل id_ او txt_id وغيره.

[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

[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

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

[rmlq]

يعني ايه اوفر لود
انسخ رسالة الخطأ كاملة وضعها هنا

[alma_fandi]

Error 1 Overload resolution failed because no accessible 'New' can be called without a narrowing conversion:
'Public Sub New(selectCommandText As String, selectConnection As System.Data.OleDb.OleDbConnection)': Argument matching parameter 'selectConnection' narrows from 'Object' to 'System.Data.OleDb.OleDbConnection'.
'Public Sub New(selectCommandText As String, selectConnectionString As String)': Argument matching parameter 'selectConnectionString' narrows from 'Object' to 'String'. C:\Users\alma\Desktop\111\frmCard.vb 210 13 SavingDate

[rmlq]

حسب الرسالة الخطا في frmCard السطر 210
انسخ هذا السطر وضعه هنا

[alma_fandi]

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



   

[rmlq]

تاكد من اسم التغير conn هل هو فعلا اسم متغير الاتصال connection

[alma_fandi]

لاحول الله  صارلى اربع  ساعات  باليوتيوب وصلت  فيديوهات بحكو  اسباني  ليطلع الخطا  بحرف con  --conn



اشكرك