Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP on the web
Message
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00421236
Message ID:
00421241
Views:
18
I good way to start is read about www.west-wind.com . An excellent product for internet applications based on foxpro.
Also you can use a COM object, to pass the data as a parameter,make any validation using your VFP code and execute your SQL and even you can return a record set with all the records that you need.

Your code COM code could be:
DEFINE CLASS myObject AS CUSTOM OLEPUBLIC
lcData="g:\data\"
cMessage="Nothing"

FUNCTION INIT
SET DELE ON
SET EXCL OFF
DODEFAULT()
ENDFUNC

FUNCTION TEST
lcMsg="country>Current Directory:"+ CURDIR()+" TEMPDirectory:"+SYS(2023)
RETURN lcMsg
ENDFUN


*

*- Retrieve a record with user info
FUNCTION UserInfo
PARAMETERS lcUserName,lcPassword
SET EXCL OFF
lcUserName=ALLTRIM(UPPER(lcUserName))
*lcUserName=PADR(lcUserName,10,' ')
lcPassword=ALLTRIM(lcPassword)
THIS.cMessage="0"
con=CREATEOBJECT("ADODB.Connection")
lcOpenstr="driver=Microsoft Visual Foxpro Driver;Exclusive=No;SourceType=DBF;SourceDB="smdata;pwd="
pwdcon.OPEN(lcOpenstr)"
*con.state
rs=CREATEOBJECT("ADODB.RecordSet")
lcstr='Selec * from smcust00.dbf where ALLTRIM(cuser)+ALLTRIM(cpassword)=="'+lcUserName+lcPassword+'"'
rs=con.execute(lcstr,,1)
RETURN rs
ENDFUNC

ENDDEFINE
"Anyone who has never made a mistake has never tried anything new." A.E
"The important thing is not to stop questioning. Curiosity has its own reason for existing." A.E
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform