SoloCodigo

Hola

... mira yo también estoy interactuando con una base de datos en MySQL a travès del MySQL-Front.

    para establecer la conexión desde clarion con dicha base de datos resulta que yo me conecto via ODBC, entonces debes realizar los siguientes pasos:
   
     1. Crear tu base de datos en MySQL
     2. Crear la conexión ODBC
     3. Crear una variable de conexión a tu base en el código del módulo - Default program dentro de tu proyecto.
         - en el procedimiento Init del Menú Principal asignar a esa variable entre apostofres y separados por una coma: Nombre de conexión ODBC, usuario, contraseña con los cuales te requieres conectar a tu base.
     4. Importar al diccionario de datos  creado en Clarion cada una de  tus tablas por usar.
         - En las propiedades de cada tabla, coloca en los siguientes parámetros:
           Owner Name : !Nombre_Variable de conexión (Creada en Clarion)
           Driver Options : /CLIPSTRINGS=TRUE /VERIFYVIASELECT=TRUE
           Driver: ODBC
     5.Una vez que importes las tablas reuqeridas y compiles tu aplicación checa que en el código del módulo de Default program automáticamente se colocarán las líneas que indican la conexión a cada una de las tablas que importaste.


 Espero te sea de ayuda, no hace mucho yo pase por lo mismo .

 Saludos!!!

 atte: Isa

Hola Isa... tal vez puedas ayudarme...

una pregunta, que diferencia hay entre crear las tablas directamente desde MySQL a crearlas desde clarion, pues tengo un sistema ya creado, y solo he modificado el diccionario antes eran tps y ahora son con las de MySQL ... que diferencia hay? y otra cosa mira tuve problemas al hacer un recorrido de la tabla por ejemplo este...

      Loc:TE   = 0
      Loc:TETP = 0
      clear(ING2:Record)
      ING2:Modelo = ModeloL                  ! Esta es una variable pues solo queremos un solo modelo seleccionado, el problema es que nunca encuentra el modelo
      set(ING2:SKModelo,ING2:SKModelo)
      Loop !until access:IngMoFr.next()
         Next(IngMoFr)
         If ErrorCode()            Then Break.
         If ING2:Modelo <> ModeloL Then Break.
         
         clear(IngFrac:Record)
         ING:Fraccion = ING2:Fraccion
         if access:IngFrac.fetch(ING:PKFrac) = level:benign
            if ING:Hecha = 'PESPUNTADOR'
               Loc:TE += ING2:TEstandar
            elsif ING:Hecha = 'PRELIMINAR'
               Loc:TETP += ING2:TEstandar
            end
        end
      end

!! y queria hacerlo con un Query pero pues no se como hacerlo jajaja, en MSSQL se usa una tabla  que le llaman tonta y alli se guarda el resultado del Query pero en MySQL se usa igual??


Gracias de Antemano

bye