FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Crear tablas desde codigo y/o MySQL
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 12:21 AM
Hola aqui de nuevo, cual es la mejor manera de crear tablas,ya pude compilar las librerias de TDolphin, pero algo extra帽o que no le veo nada , es en la forma de conectarse y tome del ejemplo del foro para novatos, me ejecuta, pero no me indica si realmente se conecto bien o no , ni nada de error o mensaje que me diga, conexion con exito,ya luego investigo mas.

Ahora me surge la idea, de como crear una peque帽a tabla sencilla desde codigo, ejemplo: Codigo, Usuario,Nombre y como siempre tome del ejemplo del foro, pero no se si es la indicada, pero me marca error al crear tablas .

Algun ejemplo de como crear tablas desde TDolphin?

Saludos !

Atte: Adrian C. C.
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 01:43 AM
adrian, por favor date una pasada por el blog de daniel
http://tdolphin.blogspot.com/
ahi esta lo que necesitas saber.
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 02:10 PM
Saludos, asi me funciona... :-)

CONEXION...
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
   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
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 07:06 PM
joseluisysturiz wrote:Saludos, asi me funciona... :-)

CONEXION...
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
聽 聽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 (fw): Select all Collapse
#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.
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 08:51 PM
Asi:
Code (fw): Select all Collapse
 TRY
      CONNECT oServer HOST "localhost 贸 server" USER "root" PASSWORD "clave" PORT 3306 FLAGS 0 DATABASE "base" //localhost=127.0.0.1
  CATCH oErr
     ?"No conecta con el servidor MySQL"
     RETURN NIL
   END


Saludos,

Adhemar
Saludos,



Adhemar C.
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 09:03 PM
una peque帽a modificaci贸n para que te indique si se realizo la conexion.

Code (fw): Select all Collapse
 
TRY
聽 聽 聽 CONNECT oServer HOST "localhost 贸 server" USER "root" PASSWORD "clave" PORT 3306 FLAGS 0 DATABASE "base" //localhost=127.0.0.1
聽 聽 聽 if Hb_isObject( oServer )
聽 聽 聽 聽 msgalert("Conectado")
聽 聽 聽 endif
聽 CATCH oErr
聽 聽 聽?"No conecta con el servidor MySQL"
聽 聽 聽RETURN NIL
聽 聽END
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 10:19 PM
ACC69 wrote:
joseluisysturiz wrote:Saludos, asi me funciona... :-)

CONEXION...
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
聽 聽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 (fw): Select all Collapse
#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 (fw): Select all Collapse
// 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
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 10:52 PM
joseluisysturiz wrote:
ACC69 wrote:
joseluisysturiz wrote:Saludos, asi me funciona... :-)

CONEXION...
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
聽 聽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 (fw): Select all Collapse
#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 (fw): Select all Collapse
// 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.
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 11:08 PM

Adrian

Descarga el Heidisql que es gratis y muy bueno para que hagas la prueba de conexi贸n.
Con Heidisql podes administrar tu motor MySQL/MariaDB y otros.

Saludos,

Adhemar

Saludos,



Adhemar C.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Mon Nov 17, 2014 11:30 PM
acuellar wrote:Adrian

Descarga el Heidisql que es gratis y muy bueno para que hagas la prueba de conexi贸n.
Con Heidisql podes administrar tu motor MySQL/MariaDB y otros.

Saludos,

Adhemar


Gracias Acuellar, estoy desinstalando MySQL de nuevo, y volver a reinstalar y configurar en modo de desarrollo, no se, si tenga algo que ver, en mi pc loca, ya que desde principio, lo instale como server ...a ver como me va.

Saludos de nuevo.
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Tue Nov 18, 2014 02:02 AM

Instalalo en Custom y deja las opciones que te da por defecto...normalmente son las opciones necesarias, activa lo del firewall para que no te bloquee el antivirus, el path de linea de comando y despliega para tomar la version mas reciente, en mi casi uso la 5.1, cualquier duda buscame por skype...joseluisy...saludos... :shock:

Dios no est谩 muerto...



Gracias a mi Dios ante todo!
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Tue Nov 18, 2014 09:42 AM
Adrian

Descarga MariaDB 10.0.14 es igual a MySQL 5.6
Es gratis, m谩s liviano y f谩cil de instalar, ahora MySQL le pertenece a ORACLE

https://downloads.mariadb.org/

Saludos,

Adhemar
Saludos,



Adhemar C.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Re: Crear tablas desde codigo y/o MySQL

Posted: Tue Nov 18, 2014 03:34 PM
acuellar wrote:Adrian

Descarga MariaDB 10.0.14 es igual a MySQL 5.6
Es gratis, m谩s liviano y f谩cil de instalar, ahora MySQL le pertenece a ORACLE

https://downloads.mariadb.org/

Saludos,

Adhemar



Gracias Jose Luis y Acuellar, por las sugerencias, he notado un detalle, anoche me la pase desinstalando todo de MySQL ya una vez desinstalado todo,hice pruebas con el ejecutable, y ver que pasa sin MySQL y he notado haciendo pruebas con la ejecucion del programa, y aun asi no muestra nada, o algun error que diga, que no esta instalado MySQL, creo que tiene que ver con el programa ejecutable,que algo no me esta funcionando bien,ya enlace lo que se necesita de TDolphin.

Cabecera de .prg
include "fivewin.ch"
include "TDolphin.ch"

Librerias enlazadas encontradas del ejemplo de Daniel [b]testfw2.prg[/b]
Dolphin.lib
libmysql.lib
libmysqld.lib

Y la DLL en la misma carpeta del ejectubale
libmysql.dll

Compilador Borland BC582
Harbour 3.2
Fivewin 13.06

Cualquier otro dato que me haga falta ,que me lo hagan saber que estoy fallando.

Saludos y buen dia.!

Atte: Adrian C. C.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions