Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Local lcDatabase, lcUser, lcPassword, lnHandle
lcDatabase = "my.db"
lcUser = "user"
lcPassword = "password"
lnHandle = db_connect(lcDatabase, lcUser, lcPassword)
If lnHandle>=0
Local lcAlias
lcAlias = "mycursor"
SQLExec(lnHandle,"select * from mytable",lcAlias)
Select (lcAlias)
Browse
db_disconnect(lnHandle)
Else
? "connect failed"
Endif
Procedure db_connect()
Lparameters tcDatabase, tcUser, tcPassword
Local lnHandle
lnHandle = Sqlstringconnect("DRIVER=SQLite3 ODBC "+;
" Driver;LongNames=0;Timeout=1000;NoTXN=0;"+;
"SyncPragma=NORMAL;StepAPI=0;"+;
"Database="+tcDatabase+";Uid="+tcUser+";Pwd="+tcPassword)
Return lnHandle
Endproc
Procedure db_disconnect()
Lparameters tnHandle
SQLDisconnect(tnHandle)
Endproc
Reminds me of the old days when DOS and DBase were disappearing - now it seems to be happening to Foxpro and Windows