[Abdh111]

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

كود :

       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

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

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

[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 


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

[Abdh111]

(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 


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

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

---

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

[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]

(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 


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