[zeus]

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

عندي هذا الكود

PHP كود :

Dim a As Integer
        Dim sum As New OleDbCommand("select sum(profit-disacount ) from sales ", con)
        con.Open()
        a = sum.ExecuteScalar
        con.Close()
        TextBox31.Text = a 


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

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

[سعود]

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

[zeus]

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

[سعود]

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

[Abu Ehab]

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

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

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
بس خلاص و هذه كل القصة ههههه.

[saudy007]

[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]