[Lazarus-es] acceder a una database en una unit

Vie Jul 5 16:29:13 CEST 2013

Hola Héctor, no es ninguna molestia.hay alguna forma de que envíes el código o las unidades para hacer pruebas acá?, sinceramente no se que pueda estar pasando tal vez ejecutándolo nos demos cuenta o cualquier miembro de la comunidad ayude.
Ulises DíazIngeniero de Sistemasingulisesdiaz en hotmail.com
From: hfiandor en infomed.sld.cu
To: lazarus-es en lists.lazarus.freepascal.org
Date: Fri, 5 Jul 2013 06:11:35 -1200
Subject: Re: [Lazarus-es] acceder a una database en una unit

Ulises, te molesto de nuevo, pero el programa no me 
funciona.

hize todos los cambios en todas las units donde se 
llamaba a las tablas y les puse dm.t......

termine, compile bien y al ejecutarlo, en la unit 
donde se supone que se creen las tablas, me da un error y tengo que 
cancelar.

si tienes alguna idea del asunto, te la voy a 
agradecer, o dime si necesitas mas información para enviartela.

saludos, y perdona tanta molestia,

Ing. Héctor F. Fiandor Rosario
hfiandor en infomed.sld.cu

  ----- Original Message ----- 
  From: 
  Ulises Díaz 

  To: Spanish version of 
  Lazarus List 
  Sent: Thursday, July 04, 2013 3:19 
  PM
  Subject: Re: [Lazarus-es] acceder a una 
  database en una unit

  Hola si me di cuenta, solo faltaba eso, que bien, que pena no 
  responder pero tuve que ausentarme.

  From: hfiandor en infomed.sld.cu
To: lazarus-es en lists.lazarus.freepascal.org
Date: 
  Thu, 4 Jul 2013 21:25:38 -1200
Subject: Re: [Lazarus-es] acceder a una 
  database en una unit

  Estimado Ulises y Rivera:

  efectivamente, hize lo que aparece mas abajo, y 
  compilo completo.

    with dm.tCuentas do

  begin
    FileName := camino_actual + 
  '\Tablas.db';
    PrimaryKey := 
  'IdCuentas';
    if not TableExists('Cuentas') 
  then
    begin

  FieldDefs.Clear;

  mañana voy a profundizar en los cambios y 
  correrlo de nuevo a ver que pasa.

  saludos,

  Ing. Héctor F. Fiandor Rosario
hfiandor en infomed.sld.cu

    ----- Original Message ----- 
    From: Ulises Díaz 

    To: Spanish version of 
    Lazarus List 
    Sent: Thursday, July 04, 2013 12:21 
    PM
    Subject: Re: [Lazarus-es] acceder a una 
    database en una unit

    Héctor, cordial saludo: 

    en la clausula uses del datamodule debes colocar la unidad zdataset si 
    estas usando Zeos, o agregar las unidades que correspondan a los componentes 
    que estés usando.

Ulises Díaz
    Ingeniero de Sistemas
    ingulisesdiaz en hotmail.com

    From: hfiandor en infomed.sld.cu
To: lazarus-es en lists.lazarus.freepascal.org
Date: 
    Thu, 4 Jul 2013 20:09:11 -1200
Subject: Re: [Lazarus-es] acceder a una 
    database en una unit

    Estimados colegas:

    en una copia de la carpeta que contiene los 
    ficheros de un programa, incorporé una unit DataModule, la salve como uDM y 
    en las propiedades como nombre le puse DM.

    tengo otra unit donde se crean las tablas. En 
    su Form aparecian los iconos de los DataSets y los DataSources.

    marque algunos de ellos, oprimi Ctrol_X y los 
    peque en el form de la uDM.

    Volvi a la unit original y en uses escribi 
    uDM.

    Salve y di Ctrol_F9. Comenzo a compilar hasta 
    que dio error. En la rutina donde se crea la tabla del error, dice que no 
    encuentra el identificador "tcuentas" que el nombre de la tabla 
    "Cuentas".

    agracezco cualquier ayuda y que me digan que 
    hize mal, para aprender.

    saludos,

    Ing. Héctor F. Fiandor Rosario
hfiandor en infomed.sld.cu

      ----- Original Message ----- 
      From: Alfred 
      Rivera 
      To: Spanish version of 
      Lazarus List 
      Sent: Thursday, July 04, 2013 6:21 
      AM
      Subject: Re: [Lazarus-es] acceder a 
      una database en una unit

      Saludos, 

No lo he probado pero 
      imagino que se añade un Datamodule al proyecto, puedes colocar los 
      componentes Zconnection,  Querys, DataSources en él. 

Posteriormente sólo tendrías que incluir el nombre del Data module 
      en el 'Uses' de la Unit.  ( uses  DataModule )
Para recurrir 
      a los mismos simplemente ....

with dades.Datamodule do 
      begin

      Zconnection.DataBase:='Dbgeneral';

      Zconnection.HostName:='192.168.1.10";

      Zconnection.User:='Usuario';

      Zconnection.Password:='password';

      Zconnection.Connected:=True;
end;

El 05/07/2013 2:02, Héctor 
      F. Fiandor Rosario escribió:

        muchas gracias al colega Bigegain. voy a experimentar.

        saludos,

        Ing. Héctor F. Fiandor Rosario
hfiandor en infomed.sld.cu

          ----- Original Message ----- 
          From: Rafael Bidegain 
          To: Spanish version 
          of Lazarus List 
          Sent: Thursday, July 04, 2013 2:03 AM
          Subject: Re: [Lazarus-es] acceder a una database en una 
          unit

          Hola Hector.

          El 4 de julio de 2013 17:46, Héctor F. 
          Fiandor Rosario <hfiandor en infomed.sld.cu> escribió:

            Estimado Martín Gómez y otros colegas:

            Me alegro mucho su respuesta, que no la conocia, pero que desde 
            tp3 hace casi 30 años la uso sin saber.

            Acostumbro a declarar una unit como uVariables y otra como 
            uVarios, donde en la primera declaro todas las variables publicas y 
            en la segunda tengo una serie de rutinas que puedo o no aplicar en 
            cada caso y que son muy generales. Simplemente las "copio" de una 
            aplicacion a otra y me parece que me ahora un buen trabajo.

            No se si algo parecido a esto es lo que me sugiere, lo que no 
            se es como crear un DataModule, donde pudiera poner los iconos de 
            las distintas tablas (datasets)  y sus correspondientes 
            datasource, una sola vez, e incluir dicha unit 
            (uDM) en cada nueva unit que diseñe (como hago con el 
            uVariables y el uVarios).[..]

            Espero que me pueda ayudar a crear una uDM como me sugiere para 
            modificar la ultima aplicacion que hize.

          para crear un DM tenés que hacer lo 
          siguiente:

          clic en menu Archivo,

          clic en nuevo ...

          clic en módulo

          clic en módulo de datos

          clic en aceptar.

          saludos

          -- 
Rafael Bidegain

Ya que los 
          cuerdos no hablan, hablará el loco.
(The Fool, Padraic 
          Pearse)

# yo quiero educación libre. 
          ¡YA!

          _______________________________________________
Lazarus-es mailing 
          list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________
Lazarus-es mailing 
      list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________ 
    Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org 
    http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________
Lazarus-es mailing 
    list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________ 
  Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org 
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________
Lazarus-es mailing 
  list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es 		 	   		  
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130705/a8c865c2/attachment-0002.html>