PDA

View Full Version : مشکل جستجو بین 2 تاریخ



Mr.Unknown
دوشنبه 09 اسفند 1389, 22:21 عصر
سلام دوستان عزیز.
این مشکل بنده با استفاده از بانک access حل میشه اما زمانی که از sqlserver استفاده میکنم توی برنامه جستجو بین 2 تاریخ رو انجام نمی ده.توی sqlserver برای تاریخ از datatype (nchar10) استفاده میکنم.
لطف کنید اساسی راهنمایی کنید.
توی کد نویسی از کد زیر استفاده میکنم

FrmSellFactList.rsRep.CursorLocation = adUseClient
FrmSellFactList.rsRep.Open (" SELECT * from FactListInx where (datex) between #" & CStr(T5.Text) & "# and #" & CStr(T6.Text) & "# "), CN, adOpenStatic, adLockOptimistic

majjjj
پنج شنبه 12 اسفند 1389, 08:52 صبح
یکم این کد رو تغییر بدی همونی میشه که میخواهی
Dim rs As New ADODB.Recordset
Dim rsbarcod As New ADODB.Recordset
Private Sub Form_Load()
Dim crApp As New CRAXDRT.Application
Dim crrept As New CRAXDRT.Report
Dim crDBTab As CRAXDRT.DatabaseTable
Set crrept = crApp.OpenReport(App.Path & "\report4.Rpt")
crrept.Database.LogOnServer "p2ssql.dll", "server6", "eblagh_t", "foru", "foru"
For Each crDBTab In crrept.Database.Tables
crDBTab.SetLogOnInfo "server6", "eblagh_t", "foru", "foru"
Next
'crrept.RecordSelectionFormula = "{tbl_asli.num_sabt} =val('" & Form1.txtnewsabt & "') And {tbl_asli.code_khat} =val( '" & numcodkhat & "') and {tbl_asli.date_ersal} ='" & Form1.txt_date.Text & "'"
'crrept.RecordSelectionFormula = "{tbl_asli.code_khat} =val( '" & numcodkhat & "') and {tbl_asli.date_ersal} ='" & Form1.txt_date.Text & "'"
'crrept.RecordSelectionFormula = "{vrod.code_mojtama} =val( '" & frm_print_noeeblagh.com_codekhat.EditText & "') and {vrod.date_exit} ='" & Form1.txt_date.Text & "'"
crrept.RecordSelectionFormula = "{vrod.date_vrod} = '" & Form1.txt_date & "' and {vrod.idnahye} =val( '" & Form1.cob_nahye.EditText & "')"
'crrept.FormulaFields.GetItemByName("nammojtama").Text = " ' " & frm_taen_sorathsab.txtnamkhat & " ' "
crrept.FormulaFields.GetItemByName("nam").Text = " ' " & Form1.txtnahye.Text & " ' "
crrept.FormulaFields.GetItemByName("todate").Text = " ' " & frm_taen_sorathsab.txt_date_to & " ' "
CRViewer91.ReportSource = crrept
CRViewer91.ViewReport
Set crApp = Nothing
Set crrept = Nothing
End Sub


تقریبا این فکر نکنم دیگه براتون سخت باشه
crrept.RecordSelectionFormula = "{vrod.date_exit} ='" & 0 & "' And {vrod.idnahye} =val('" & frm_movazne_navahe.cob_nahye.EditText & "') and {vrod.date_vrod}<='" & Text1.Text & "'"

Mr.Unknown
جمعه 13 اسفند 1389, 15:24 عصر
دوست عزیز این کدی که شما نوشتید مربوط به گزارش گیری هست من جستجو بین 2 تاریخ رو برای search کردن رکوردها توی نرم افزارم رو میخوام.همینطور که گفتکم توی اکسس با دیتاتایپ text اوکی هست منتها داخل sql server با هر دیتاتایپی که گذاشتم مشکل داشت

M.T.P
جمعه 13 اسفند 1389, 15:47 عصر
سلام
از علامت ' به جای # در پس و پیش تاریخ استفاده کن ببین چی میشه؟!! :متفکر:

Mr.Unknown
جمعه 13 اسفند 1389, 17:47 عصر
ممنونم مشکل رفع شد