01-04-14, 03:09 PM
عندي مشكلة
عند وجود ناتج يظهر في 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]
عند وجود ناتج يظهر في 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]