منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005

السلام عليكم قبل سؤالي الف مليون شكر للقائمين علي هذا المنتدي الرائع
ولي سؤال
هذا الكود كتبته للبحث عن اسم الفرع وتعبئة النتيجة في داتا جريد

كود :

       Try

            Call conecDB()

            SQL = SQL = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'"

            ad = New SqlDataAdapter(SQL, Conn)

            With Scmd

                .CommandText = SQL

                Sdr = .ExecuteReader

            End With

        Catch ex As Exception

            MsgBox(ex.Message)

            End

        End Try

يعطي رسالة الخطأ التي بالصورة
أرجو المساعدة أو

أريد كود البحث عن قيمة في تكست وإدارج النتيجة في داتا جريد بنفس الفورم
ولكم جزيل الشكر والتقدير

عزيزي الكريم

اولا الكود اللذي وضعته لا يتطابق بالكامل

انت اعطيت قيمة مغير قاعدة البيانات ل Object واستدعيت Object أخر

.. جرب الكود التالي

PHP كود :

Try
            Dim Con As New SqlClient.SqlConnection("Your Connection String")
            If Con.State = ConnectionState.Closed Then Con.Open()
            Dim SQLstr As String = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'"
            Dim Cmd As New SqlClient.SqlCommand(SQLstr, Con)
            Dim DR As SqlClient.SqlDataReader
            DR = Cmd.ExecuteScalar
            If Con.State = ConnectionState.Open Then Con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try 

ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!

(08-11-15, 06:14 PM)Mr. DotNet كتب : [ -> ]عزيزي الكريم

اولا الكود اللذي وضعته لا يتطابق بالكامل

انت اعطيت قيمة مغير قاعدة البيانات ل Object واستدعيت Object أخر

.. جرب الكود التالي

PHP كود :

Try Dim Con As New SqlClient.SqlConnection("Your Connection String") If Con.State = ConnectionState.Closed Then Con.Open() Dim SQLstr As String = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'" Dim Cmd As New SqlClient.SqlCommand(SQLstr, Con) Dim DR As SqlClient.SqlDataReader DR = Cmd.ExecuteScalar If Con.State = ConnectionState.Open Then Con.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try

ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!

أسأل الله العظيم رب العرش الكريم أن يجزيك خيراً

ولكن أريد كود تعبئة الداتا جريد من داتا ست وجزاك الله خيرا

تفضل هذا الكواد بالكامل لتعبأة الجريد فيو من قاعدة البيانات حسب المثال المطلوب

PHP كود :

Try
            Dim Con As New SqlClient.SqlConnection("Your Connection String")
            If Con.State = ConnectionState.Closed Then Con.Open()
            Dim SQLstr As String = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'"
            Dim DA As New SqlClient.SqlDataAdapter(SQLstr, Con)
            Dim DS As New DataSet
            DA.Fill(DS)
            DataGridView1.DataSource = DS.Tables(0)
            If Con.State = ConnectionState.Open Then Con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try 

(08-11-15, 06:50 PM)Mr. DotNet كتب : [ -> ]تفضل هذا الكواد بالكامل لتعبأة الجريد فيو من قاعدة البيانات حسب المثال المطلوب

PHP كود :

Try Dim Con As New SqlClient.SqlConnection("Your Connection String") If Con.State = ConnectionState.Closed Then Con.Open() Dim SQLstr As String = "select * from Tab_Main Where Car_No = '" & Txt_Car_ReqNo.Text & "'" Dim DA As New SqlClient.SqlDataAdapter(SQLstr, Con) Dim DS As New DataSet DA.Fill(DS) DataGridView1.DataSource = DS.Tables(0) If Con.State = ConnectionState.Open Then Con.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try

جزاك الله خيرا

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

Abdh111

Mr. DotNet

Abdh111

Mr. DotNet

Abdh111