+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في كود البحث (/showthread.php?tid=17987)
الصفحات:
1
2
RE: مشكلة في كود البحث - khalid475 - 11-11-16
اريد من Procedure يقرا التكست بوكس volationcode و التكست بوكس actionnumber
وبناء على البقيمتين يظهلي
volationactionname, volationfees كلا في التكست بوكس الخاص فيه
RE: مشكلة في كود البحث - ممدوح - 11-11-16
لم تفهم سؤالي
ماذا تريد من Procedure أن يعيد لك، فهو يعيد مجموعة أعمدة وليست واحدة
RE: مشكلة في كود البحث - khalid475 - 11-11-16
اريده أن يعيد العمودين
volationactionname, volationfees
بناء على أو Where
volationcode و actionnumber
RE: مشكلة في كود البحث - ممدوح - 11-11-16
قمت بتعديل الدالة Load_Volations_Details أرجو أن يتضح الأمر فيها
كود :
Friend Function Load_Volations_Details(ByVal VolationCode As Integer, ByVal ActionNumber As Integer) As DataTable
Dim daa As New SqlDataAdapter("Load_Volations_Details", cnn)
daa.SelectCommand.CommandType = CommandType.StoredProcedure
daa.SelectCommand.Parameters.AddWithValue("@VolationCode", VolationCode)
daa.SelectCommand.Parameters.AddWithValue("@ActionNumber", ActionNumber)
Dim tbl As New DataTable
If daa.Fill(tbl) > 0 Then
Dim r As DataRow = tbl.Rows(0)
MsgBox(r.Item("volationfees"))
MsgBox(r.Item("volationactionname"))
End If
Return tbl
End FunctionRE: مشكلة في كود البحث - khalid475 - 11-11-16
أشكرك جزيل الشكر لكن هل أغير شي على هذه الأكواد
في زر البحث
كود :
ActionOneName.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text).ToString
ActionOneFees.Text = p.Load_Volations_Details(txtFineCode.Text, ActionOne.Text).ToStringوفي كلاس Business
كود :
Public Function Load_Volations_Details(ByVal VolationCode As Integer, ByVal ActionNumber As Integer) As SqlDataReader
p.Load_Volations_Details(dr, VolationCode, ActionNumber)
Return dr
End Functionفي زر البحث
Object reference not set to an instance of an object