+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 (/showthread.php?tid=13752)
كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 - Abdh111 - 08-11-15
السلام عليكم قبل سؤالي الف مليون شكر للقائمين علي هذا المنتدي الرائع
ولي سؤال
هذا الكود كتبته للبحث عن اسم الفرع وتعبئة النتيجة في داتا جريد
كود :
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أرجو المساعدة أو
أريد كود البحث عن قيمة في تكست وإدارج النتيجة في داتا جريد بنفس الفورم
ولكم جزيل الشكر والتقدير
RE: كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 - Mr. DotNet - 08-11-15
عزيزي الكريم
اولا الكود اللذي وضعته لا يتطابق بالكامل
انت اعطيت قيمة مغير قاعدة البيانات ل 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
ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!
RE: كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 - Abdh111 - 08-11-15
(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
ملاحظة ... بناء على الكود اللذي وضعته والكود المطروح الناتج سيكون قيمة واحدة فقط!
أسأل الله العظيم رب العرش الكريم أن يجزيك خيراً
ولكن أريد كود تعبئة الداتا جريد من داتا ست وجزاك الله خيرا
RE: كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 - Mr. DotNet - 08-11-15
تفضل هذا الكواد بالكامل لتعبأة الجريد فيو من قاعدة البيانات حسب المثال المطلوب
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
RE: كود زر تعبئة الداتا جريد بنتيجة البحث في swl server 2005 - Abdh111 - 10-11-15
(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
جزاك الله خيرا