Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Select
Message
From
15/07/2005 08:03:04
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Select
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01032514
Message ID:
01032985
Views:
19
hi ,
thank you so much, it works,
could you help me show this result at my grid not at cursour,
i try as under, i see repeat dat at my grid
thisform.text25.value=("31/03/2005")
thisform.text2.value=("01/01/2005")
 SELECT * FROM table1;
WHERE BETWEEN(MONTH(table1.dat),MONTH(thisform.text2.Value),MONTH(thisform.text25.Value)) AND table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND table1.TYP=THISFORM.TEXT24.VALUE
IF _TALLY > 0
brow && i see the result exactly what i want

thisform.grid1.Refresh  &&&result just for month 1 
thank you
>>hi,
>>thank you,
>>i mean between to dates,myfiled name is dat
>>i need to get result or information form mytable table1,between 2 dates (period time) ,
>>thanks.
>> >>hi all,
>>>>could you help me to change this code under to select statment ,
>>>>
>>>>ldStart=MONTH(thisform.text2.Value)
>>>>ldEnd=MONTH(thisform.text25.Value)
>>>>m.a=UPPER(ALLTRIM(thisform.text18.value ))
>>>>m.f=THISFORM.TEXT24.VALUE
>>>>------------------------------
>>>>
>>>>&&&i useto this code to get result for one month only i try to insert another date to get result ,not works&&&
>>>>LOCATE FOR   MONTH(dat)=MONTH(thisform.text2.Value) .and. MONTH(dat)=MONTH(thisform.text25.Value).AND. table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND TYP=THISFORM.TEXT24.VALUE
>>>>IF FOUND()
>>>>set filter to   MONTH(dat)=MONTH(thisform.text2.Value) and MONTH(dat)=MONTH(thisform.text25.Value).AND. table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND TYP=THISFORM.TEXT24.VALUE
>>>>....
>>>>....
>>>>else
>>>>=messagebox("not found")
>>>>...
>>>>endif
>>>>
>>>>
>>>>thanks.
>>>
>
>Mohammed, try
>
>SELECT * FROM table1;
>WHERE BETWEEN(MONTH(table1.dat),MONTH(thisform.text2.Value),MONTH(thisform.text25.Value)) AND table1.mac1=UPPER(ALLTRIM(thisform.text18.value )) AND table1.TYP=THISFORM.TEXT24.VALUE
>INTO CURSOR MyCursor
>IF _TALLY > 0
>...
>...
>ELSE
>   =messagebox("not found")
>ENDIF
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform