joseluisysturiz wrote:ACC69 wrote:joseluisysturiz wrote:Saludos, asi me funciona...
CONEXION...
- Code: Select all Expand view
#include "FiveWin.ch"
#include "tdolphin.ch"
MEMVAR oDatos
FUNCTION conectar() // CONECTANDO CON EL SERVIDOR
LOCAL oError, lRet := .f.
LOCAL hIni := HB_ReadIni( ".\conexion.ini" ) // PARA LEER ARCHIVOS .ini
LOCAL oServer := NIL
LOCAL cServer := hIni["mysql"]["host"] ,; // NOMBRE DEL HOST (localhost)
cUser := hIni["mysql"]["user"] ,; // NOMBRE DEL USUARIO (root)
cPassword := hIni["mysql"]["psw"] ,; // CLAVE DEL USUARIO (vacio por ahora)
nPort := val(hIni["mysql"]["port"]) ,; // PUERTO DE CONEXION (3306)
cDBName := hIni["mysql"]["dbname"] ,; // NOMBRE DE LA BASE DE DATOS (sisprocom)
nFlags := val(hIni["mysql"]["flags"]) // NUMERO DE FLAG (0)
TRY
oServer = TDolphinSrv():New( cServer, cUser, cPassword, nPort, nFlags )
* oServer = TDolphinSrv():New( cServer, cUser, cPassword, nPort, nFlags, cDBName )
CATCH oError
MSGALERT( "ERROR FATAL: No hubo Conexión con el SERVIDOR" + CRLF + CRLF + ;
oError:Description(), " SISINGE - MYSQL" )
RETURN( lRet )
END
// VERIFICO SI EXISTE DATABASE, SINO, LA CREO
IF oServer:DBCreate( cDBName )
MSGINFO( "Conectado Correctamente a DataBase: " + cDBName, " SISINGE - ATENCIÓN" )
ENDIF
oServer:SelectDB( cDBName )
// MENSAJE CUANDO CONEXION ES CORRECTA...//la window lo oculta
IF !oServer:lError // SI NO HAY ERROR...
oDatos:oConex = oServer // ASIGNO oSERVER A oCONEX PARA MANEJARLO EN TODO EL SISTEMA
ENDIF
RETURN( !lRet )
CREAR TABLA
- Code: Select all Expand view
TRY // TABLA MAESTRO CLASIFICACION CLIENTES
cSql:= "CREATE TABLE IF NOT EXISTS `clasiclientes` ("
cSql+= "`clasi_id` varchar(5) NOT NULL DEFAULT '' COMMENT 'Clasificacion de clientes.',"
cSql+= "`clasi_nombre` varchar(50) DEFAULT NULL,"
cSql+= "`usuario` char(2) CHARACTER SET latin1 DEFAULT NULL,"
cSql+= "`fchcrea` date DEFAULT NULL,"
cSql+= "`hora` time DEFAULT NULL,"
cSql+= "PRIMARY KEY (`clasi_id`)"
cSql+= ") ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Maestro clasificacion de clientes.'"
oDatos:oConex:Execute( cSql )
CATCH oError
ShowError( oError, "crear_tablas-clasiclientes", "crear_tablas.prg" )
RETURN
END
Hola Jose Luis de antemano, le envio cordial saludos.
Gracias por el ejemplo,pero como saber si hago bien la conexion desde mi aplicacion, ya tengo instalado MySQL, y esta activo en start,pero al momento de ejecutar mi aplicacion , no veo nada ..o como puedo hacer que me muestre mensaje conexion exitosa,pongo el ejemplo sacado del foro.
- Code: Select all Expand view
#include "FiveWin.ch"
#Include "xBrowse.ch"
#include "TDolPhin.ch"
* service : Mysql@localhost:3306
* user : root
* Password : 555555
FUNCTION PRINCIPAL()
Connect()
MsgInfo("Iniciando con TDolphin")
RETURN NIL
FUNCTION Connect( )
LOCAL oServer
LOCAL oErr
TRY
CONNECT oServer HOST "localhost" ;
USER "root" ;
PASSWORD "555555";
PORT 3306 ;
FLAGS 0
CATCH oErr
RETURN NIL
END
RETURN oServer
Alguien me pueda orientar?
Saludos.!
Atte: Adrian C. C.
Alli te lo explico en los comentarios, miralo al final del codigo que dice CONEXION....
- Code: Select all Expand view
// VERIFICO SI HUBO O NO CONEXION TRY
oServer = TDolphinSrv():New( cServer, cUser, cPassword, nPort, nFlags )
? "SE CONECTO CON EXITO"
CATCH oError
MSGALERT( "ERROR FATAL: No hubo Conexión con el SERVIDOR" + CRLF + CRLF + ;
oError:Description(), " SISINGE - MYSQL" )
RETURN( lRet )
END
// VERIFICO SI EXISTE DATABASE, SINO, LA CREO
IF oServer:DBCreate( cDBName )
MSGINFO( "Conectado Correctamente a DataBase: " + cDBName, " SISINGE - ATENCIÓN" )
ENDIF
oServer:SelectDB( cDBName )
// MENSAJE CUANDO CONEXION ES CORRECTA...//la window lo oculta
IF !oServer:lError // SI NO HAY ERROR...
oDatos:oConex = oServer // ASIGNO oSERVER A oCONEX PARA MANEJARLO EN TODO EL SISTEMA
ENDIF
Gracias Carlos Vargas, Acuellar y Jose Luis, pero nada, no muestra nada, tengo windows 7, MySQL Server 5.6 instalado en SO Windows 7, y con la clave correcta, y compilando con Harbour 3.0,TDolphin de Daniel Garcia, pero nada, que estare haciendo mal...por eso no puedo avanzar en crear tablas desde via codigo, si antes no he podido saber si realmente se conecto con exito a MySQL y poder avanzar y checo en estatus, esta en STAR desde el icono a un lado de la bocina
Ya llevo horas y horas investigando,se que muchos de ustedes les costo trabajo iniciarse con MySQL, y creo que es lo que me esta pasando, pero no me dare por vencido.
Saludos.!
Atte: Adrian C. C.
Posted: Mon Nov 17, 2014 12:21 am