Crear tablas desde codigo y/o MySQL

[ACC69]

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]

adrian, por favor date una pasada por el blog de daniel
http://tdolphin.blogspot.com/
ahi esta lo que necesitas saber.

[joseluisysturiz]

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
 

[ACC69]

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.

[acuellar]

Asi:

Code: Select all  Expand view

 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

[carlos vargas]

una pequeña modificación para que te indique si se realizo la conexion.

Code: Select all  Expand view

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
 

[joseluisysturiz]

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
 

[ACC69]

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.

[acuellar]

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

[ACC69]

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]

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...

[acuellar]

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

[ACC69]

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.