Con el codigo siguiente ya me conecta a una bd si error
Inicio en dolphin por primera vez,... una vez conectado como puedo realizar un query de la bd y hacer un respaldo, no conozco nada de la base o como esta estructurada, un cliente desea pasar de esta bd a mi app en dbfs.
Se reciben consejos.
- Code: Select all Expand view
function Main()
LOCAL oServer := NIL
LOCAL cText := ""
local chost:="proyecto..."
local cuser:=p_bd"
local cpsw:="p_pass"
local nflags:=0
local nport:=3306
local cdbname:="p_bd"
TRY
CONNECT oServer HOST chost ;
USER cuser ;
PASSWORD cpsw ;
PORT nport ;
FLAGS nflags;
DATABASE cdbname
CATCH oErr
? hb_dumpvar( oErr )
RETURN NIL
END
IF oServer == NIL
aviso('No hay conexion: '+chost)
RETURN NIL
ENDIF
IF ! oServer:lError
cText += "Connection OK" + CRLF
cText += "Host: " + oServer:chost +CRLF
cText += "Database: " +oServer:cdbname + CRLF
cText += oServer:GetServerInfo() + CRLF
cText += oServer:GetClientInfo()
? cText + CRLF
ENDIF
oServer:End()
Gracias.
