[فراس الغزي]

(03-06-17, 02:15 AM)محمود بكرى كتب : واضح ان جملة الاستعلام خاطئة ولا توجد اسماء حقول

PHP كود :

Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "' and (ضع اسم حقل الدكتور)='" 
            & Txtdoctor.Text & "' AND (حقل مطلوب )='" 
            & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone() 


استاذمحمود شكرا لكن لكن المشكلة لازالت قائمة 
وهذا الكودبعد التعديل

   

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim temp As String
        temp = "to Purchase"
        Try
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "SELECT SUM(totle) FROM  saking WHERE  saking_type='" & temp & "'and(doctor)='" & Txtdoctor.Text & "' AND (datehjz )='" & TextBdate.Text & "' "
            Dim sqlresult As Object
            sqlresult = cmd.ExecuteScalar
            Dim str As String
            str = sqlresult
            LblSum.Text = str
        Catch ex As Exception
            MsgBox("لا يوجد احصائيات لهذا الطبيب لهذا اليوم", MsgBoxStyle.Information, "لا توجد بيانات")
        End Try
        con.Clone()
    End Sub