+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة بنتيجة استعلام (/showthread.php?tid=2428)
مشكلة بنتيجة استعلام - superwoofer - 01-04-14
عندي مشكلة
عند وجود ناتج يظهر في text1
عندما لايجد ناتج يظهر خطا
Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT Sum(XXX) as ww FROM XXXX Where XXX = '" & Combo1.Text & "' and XXX='XXX' ", Adodc1.ConnectionString, 1, 3
Text1 = rs![ww]
RE: مشكلة بنتيجة استعلام - تركي الحلواني - 01-04-14
PHP كود :
Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT Sum(XXX) as ww FROM XXXX Where XXX = '" & Combo1.Text & "' and XXX='XXX' ", Adodc1.ConnectionString, 1, 3
If rs.RecordCount =1 Then
Text1 = rs![ww]
End If
RE: مشكلة بنتيجة استعلام - asto - 01-04-14
ان استمر الخطأ اكتب قبل اعلى set
on error resume next
RE: مشكلة بنتيجة استعلام - superwoofer - 02-04-14
بارك الله فيكم
قمت باستبدالها ب datagrid