SQL Server Query in FoxPro

[57chevy]

I'm coding a program in VFP6 which connects to a SQLServer Database in order to extract certain records from one of the tables in the database. Can anyone tell me how to code the program so that the end user of the program will get a "messagebox" or some other
user interface where he can type in a SQL
statement determining which records will be extracted? Thanks in advance for help.

 

[foxdev]

Create a VFP form with a textbox (let's call it txtSQLCommand). Add a command button called cmdGo labelled "Go".

In the cmdGo.Click method add code similar to the following:

[tt]if empty(ThisForm.txtSQLCommand.Value)
return
endif
* establish connection
nHandle = SQLSTRINGCONNECT("driver={SQL Server};SERVER=\\MyServer;UID=MyUser;PWD=MyPwd;DATABASE=MyDb&quot
assert nHandle > 0
nResult = sqlexec(nHandle, trim(ThisForm.txtSQLCommand.Value), "curResult&quot
if nResult > 0 and reccount("curResult&quot > 0
browse
endif[/tt]

Obviously, this is pretty bare-bones, and lacking error checking and other niceties.

 

[57chevy]

Duh, Why didn't I think of that. Thanks a lot for your help.