منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

كود :

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
مع هيك بحكي لى انه الحقل خالي

[attachment=14043]

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

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

كود :

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

(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

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

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

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

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

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

[attachment=14049]

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

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

اشكرك

[attachment=14050]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alma_fandi

Adrees

rmlq

alma_fandi

rmlq

alma_fandi

rmlq

alma_fandi

rmlq

alma_fandi