Saludos..
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.
Gracias.
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.
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.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com