• 0
Misiny_forever

كيفية أختيار مجموعة ريكورد منحصرين بين تاريخين

سؤال

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

إخوانى الاعزاء ياريت تشوفوا الكود ده وتقوليلى ايه الغلط فيه لانى لما بنفذ الكود من غير جملة where الكود بيشتغل ويختار كل السجلات لكن لما بعمل جملة where بيرجع كل السجلات برضه والمفروض انه يرجع بس عدد السجلات الموجوده بين التاريخين اللى انا مختار بيهم

If Text1.Text = "" Or Combo1.Text = "" Then
MsgBox ("Please select the service name and Insert the cost per minute to calculate"), vbInformation, "Statistic"
Text1.SetFocus
Else
On Error GoTo ErrorPara
Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd1 As New ADODB.Command
cn.CursorLocation = adUseClient
Dim s As String
Dim d As String
Label2.Caption = s
cn.Open s
cmd1.CommandType = adCmdText
cmd1.CommandText = "Select sum(actual_durations) as cnt,count(ani) as cnt1 from trans where call_date between '" & DateValue(Text8.Text) & "' And '" & DateValue(Text9.Text) & "'"
Set cmd1.ActiveConnection = cn

rs1.Open cmd1, , adOpenKeyset, adLockOptimistic
Text2.Text = (rs1!cnt / 60) * Trim(Text1.Text) & " K.D"
Text3.Text = rs1!cnt1
Text4.Text = rs1!cnt / 60
Text5.Text = rs1!cnt
rs1.MoveNext
rs1.Close
cn.Close

ErrorPara:
OpenConnections = False
UpdateLog "Error Opening Connections -- " & Now() & ", " & _
Err.Number & ", " & Err.Description
End If

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .