🔒 Closed VFP + MySQL Connection ( Just sharing sa mga gumagamit pa ng Visual Foxpro )

[miosporty0005]

lcServer="your_server_ip_address" && IP Address of server
lcDatabase="database_name"
lcUser = "user_name"
lcPassword = "password"
lcStringConn="Driver={MySQL ODBC 3.51 Driver}"+;
";Server="+lcServer+;
";Database="+lcDatabase+;
";Uid="+lcUser+;
";Pwd="+lcPassWord

*-- Don't prompt for login
SQLSETPROP(0,"DispLogin",3)
lnHandle=SQLSTRINGCONNECT(lcStringConn)

IF lnHandle > 0
*-- open connection, get the data, then close the connection

lcSQL = "SELECT * FROM sometable"

SQLEXEC(lnHandle, lcSQL ,"crTemp")
SQLDISCONNECT(lnHandle)

SELECT crTemp
LOCATE
BROWSE NORMAL NOWAIT

ELSE
=AERROR(laError)
MESSAGEBOX("Error at Connecting"+CHR(13)+;
"Description:"+laError[2])
ENDIF

 

[vanisher143]

nice