منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
شباب كيف اتخلص من ال DB null ؟؟؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : شباب كيف اتخلص من ال DB null ؟؟؟؟ (/showthread.php?tid=7389)



شباب كيف اتخلص من ال DB null ؟؟؟؟ - zeus - 15-12-12

السلام عليكم شباب

عندي هذا الكود
PHP كود :
Dim a As Integer
        Dim sum 
As New OleDbCommand("select sum(profit-disacount ) from sales "con)
        
con.Open()
        
sum.ExecuteScalar
        con
.Close()
        
TextBox31.Text 


وحصلت هذا الخطأ

[COLOR="#FF0000"]Conversion from type 'DBNull' to type 'Integer' is not valid.
[/COLOR]
كيف اتخلص من ال DB null


شباب كيف اتخلص من ال DB null ؟؟؟؟ - سعود - 15-12-12

ان تجعل لها قيمة افتراضية بالجدول مثلا لو تريد وضع اما 0 او 1 ضع اي قيمة منهما افتراضية


شباب كيف اتخلص من ال DB null ؟؟؟؟ - zeus - 16-12-12

كيف اجعل الها قيم افتراضية ؟؟


شباب كيف اتخلص من ال DB null ؟؟؟؟ - سعود - 16-12-12

عند تنشيط العمود اثناء وضع التصميم انظر لخصائصه ستجد من ضمن الخصائص مسمى "القيمىة الافتراضية" باللغة العربية او "Default value" باللغة الانجليزية.


شباب كيف اتخلص من ال DB null ؟؟؟؟ - Abu Ehab - 25-12-12

السلام عليكم ورحمة الله وبركاته

بعــــــــد أذن الأستاذ ســــــــــعود :
الموضوع يمكن حله بطريقة سهلة ومش محتاجة تمرير قيم ولا شيئ ...

PHP كود :
' Abu Ehab
        Dim MySum As Double = 0
        Cn.Open()

        Dim Sum As New OleDbCommand("select sum(profit-disacount) from sales", Cn)
        Dim DT As New DataTable
        DT.Load(sum.ExecuteReader)

        If Not DBNull.Value.Equals(DT.Rows(0)) Then
            On Error Resume Next ' 
Abu Ehab  ,,,,  You Must Use This Bad Code To Skip Error ...Okey Guy ?
            
MySum Sum.ExecuteScalar
            MsgBox
("Total Sum is :  " MySum)
        
End If

        
Cn.Close() 

أذا كان هناك قيم سيعود بها
وأذا كان الحقل فارغ سيعود بقيمة 0
بس خلاص و هذه كل القصة ههههه.



شباب كيف اتخلص من ال DB null ؟؟؟؟ - saudy007 - 18-02-13

[HTML]

(Dim Sum As New OleDbCommand("select isnull(sum(profit-disacount),0) as TotalAmount from sales", Cn)
Dim TotalNo as Long = sum.ExecuteReader
if Totalno>0 then

you code
else
Msg("Total amount is Zeroo ")

باستخدام جملة Isnull فى جملة الاستعلام



[/HTML]