@AM!R!
دوشنبه 16 خرداد 1384, 22:44 عصر
سلام بر VB کارهای ارجمند:
من می خواهم یک گزارش از جدولی که در بانک موجود می باشد به این صورت ایجاد کنم:
گزارش از یک تاریخ خاص، تا یک تاریخ خاص می باشد. تار یخ شروع در متغیر StartDate_M و تاریخ پایان در متغیر EndDate_M قرار دارد. من برای این کار از پرسوجوی زیر استفاده کرده ام ولی متاسفانه از این عبارت اشکال می گیرد.
ممنون میشم اگر کسی اطلاعی در این رابطه داره در اختیار من قرار بده. :flower:
startdate_m = txtstartdate.Text
enddate_m = txtenddate.Text
'
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\coffeenetbank.mdb;" & _
"Persist Security Info=False"
Set rs = conn.Execute("SELECT * FROM user1 where has>0 and date BETWEN " & "#" & startdate_m & "#" & " and " & "#" & enddate_m & "#")
Set DR_Daily_User1.DataSource = rs
DR_Daily_User1.Show
ضمنا تاریخ ها کاملا صحیح می باشد و از این نظر هیچ مشکلی وجود ندارد.
تنها مشکل از خطی است که Select تعریف شده است.
من می خواهم یک گزارش از جدولی که در بانک موجود می باشد به این صورت ایجاد کنم:
گزارش از یک تاریخ خاص، تا یک تاریخ خاص می باشد. تار یخ شروع در متغیر StartDate_M و تاریخ پایان در متغیر EndDate_M قرار دارد. من برای این کار از پرسوجوی زیر استفاده کرده ام ولی متاسفانه از این عبارت اشکال می گیرد.
ممنون میشم اگر کسی اطلاعی در این رابطه داره در اختیار من قرار بده. :flower:
startdate_m = txtstartdate.Text
enddate_m = txtenddate.Text
'
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\coffeenetbank.mdb;" & _
"Persist Security Info=False"
Set rs = conn.Execute("SELECT * FROM user1 where has>0 and date BETWEN " & "#" & startdate_m & "#" & " and " & "#" & enddate_m & "#")
Set DR_Daily_User1.DataSource = rs
DR_Daily_User1.Show
ضمنا تاریخ ها کاملا صحیح می باشد و از این نظر هیچ مشکلی وجود ندارد.
تنها مشکل از خطی است که Select تعریف شده است.