Hi,
I´m using these functions to connect to a MySql server 5.1. I don´t use AdoRdd at the moment, but maybe these functions are helpful.
- Code: Select all Expand view
//------------------------------------------------------------//
FUNCTION Connect (cHost, cUser, cPass, oStatus)
oServer := TMySQLServer():New(cHost, cUser, cPass)
if oServer:NetErr()
MsgAlert (oServer:Error(),"MySQL Error")
quit
else
lConnected := .t.
oStatus:SetText ("angemeldet als: " + cUser + " an: " + cHost)
endif
RETURN (nil)
//------------------------------------------------------------//
FUNCTION DisConnect (oStatus)
IF oServer <> nil
oServer:End ()
oStatus:SetText ("abgemeldet")
oServer := nil
ENDIF
RETURN (nil)
Be aware, that all parameters are case-sensitive !