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()
