08-10-20, 03:13 AM
السلام عليكم...
تفضل:
تفضل:
كود :
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim Query As String = "Select Sum(الحقل) From الجدول Where 1=1"
If dd1.Text <> "" Then
'من
Query = Query & " AND التاريخ >= '" & Now.ToString("yyyy-MM-dd") & "'"
End If
If dd2.Text <> "" Then
'إلى
Query = Query & " AND التاريخ <= '" & dd2.Value.ToString("yyyy-MM-dd") & "'"
End If
Dim cmd As New SqlCommand(Query, con)
da = New SqlDataAdapter(cmd)
dt.Clear()
da.Fill(dt)
Dim RecordCount As Double
RecordCount = cmd.ExecuteScalar
TextBox1.Text = Val(RecordCount)
con.Close()
المبرمج لا يفكر في المشكلة بل في الحل!!