منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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 ضع اي قيمة منهما افتراضية

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

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

zeus

سعود

zeus

سعود

Abu Ehab

saudy007