<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE>.hmmessage P {
        PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px
}
BODY.hmmessage {
        FONT-SIZE: 12pt; FONT-FAMILY: Calibri
}
</STYLE>

<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY class=hmmessage bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Estimado Ulises, mis saludos,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>ya eso se hizo solito cuando compile. El agrego en 
el el uses Sqlite y otros.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Creo que mi error esta en la forma que llamo en la 
rutina de crear la tabla:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>  with tCuentas do<BR>  
begin<BR>    FileName := camino_actual + 
'\Tablas.db';<BR>    PrimaryKey := 
'IdCuentas';<BR>    if not TableExists('Cuentas') 
then<BR>    begin<BR>      
FieldDefs.Clear;<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>indudablemente que tCuentas esta en el uDM y pienso 
que esto debe decirse, pero no se como.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>la sugerencia de Alfred Rivera incluye algo que no 
conozco y posiblemente sea la clave del asunto.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>saludos y sigo esperando ayuda.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Ing. Héctor F. Fiandor Rosario<BR><A 
href="mailto:hfiandor@infomed.sld.cu">hfiandor@infomed.sld.cu</A></DIV></FONT>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=udiaz60@hotmail.com href="mailto:udiaz60@hotmail.com">Ulises Díaz</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  title=lazarus-es@lists.lazarus.freepascal.org 
  href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
  Lazarus List</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, July 04, 2013 12:21 
  PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] acceder a una 
  database en una unit</DIV>
  <DIV><BR></DIV>
  <DIV dir=ltr>Héctor, cordial saludo:
  <DIV><BR></DIV>
  <DIV>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.<BR><BR><BR>Ulises Díaz</DIV>
  <DIV>Ingeniero de Sistemas</DIV>
  <DIV><A 
  href="mailto:ingulisesdiaz@hotmail.com">ingulisesdiaz@hotmail.com</A></DIV>
  <DIV><BR>
  <DIV>
  <HR id=stopSpelling>
  From: <A 
  href="mailto:hfiandor@infomed.sld.cu">hfiandor@infomed.sld.cu</A><BR>To: <A 
  href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A><BR>Date: 
  Thu, 4 Jul 2013 20:09:11 -1200<BR>Subject: Re: [Lazarus-es] acceder a una 
  database en una unit<BR><BR>
  <STYLE><!--
--></STYLE>

  <DIV><FONT face=Arial size=2>Estimados colegas:</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>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.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>tengo otra unit donde se crean las tablas. En su 
  Form aparecian los iconos de los DataSets y los DataSources.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>marque algunos de ellos, oprimi Ctrol_X y los 
  peque en el form de la uDM.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>Volvi a la unit original y en uses escribi 
  uDM.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>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".</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>agracezco cualquier ayuda y que me digan que hize 
  mal, para aprender.</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>saludos,</FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV><FONT face=Arial size=2>Ing. Héctor F. Fiandor Rosario<BR><A 
  href="mailto:hfiandor@infomed.sld.cu">hfiandor@infomed.sld.cu</A></FONT></DIV>
  <DIV><FONT face=Arial size=2></FONT> </DIV>
  <DIV> </DIV>
  <BLOCKQUOTE 
  style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
    <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
    <DIV style="BACKGROUND: #e4e4e4; FONT: 10pt arial"><B>From:</B> <A 
    title=alfred@arsistemes.com href="mailto:alfred@arsistemes.com">Alfred 
    Rivera</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>To:</B> <A 
    title=lazarus-es@lists.lazarus.freepascal.org 
    href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
    Lazarus List</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, July 04, 2013 6:21 
    AM</DIV>
    <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] acceder a una 
    database en una unit</DIV>
    <DIV><BR></DIV>
    <DIV class=ecxmoz-cite-prefix>Saludos, <BR><BR>No lo he probado pero imagino 
    que se añade un Datamodule al proyecto, puedes colocar los componentes 
    Zconnection,  Querys, DataSources en él. <BR><BR>Posteriormente sólo 
    tendrías que incluir el nombre del Data module en el 'Uses' de la 
    Unit.  ( uses  DataModule )<BR>Para recurrir a los mismos 
    simplemente ....<BR><BR>with dades.Datamodule do begin<BR>    
    Zconnection.DataBase:='Dbgeneral';<BR>    
    Zconnection.HostName:='192.168.1.10";<BR>    
    Zconnection.User:='Usuario';<BR>    
    Zconnection.Password:='password';<BR>    
    Zconnection.Connected:=True;<BR>end;<BR><BR><BR>El 05/07/2013 2:02, Héctor 
    F. Fiandor Rosario escribió:<BR></DIV>
    <BLOCKQUOTE cite=mid:000401ce791a$9c43c240$c1240a0a@mi1a8b2592420f>
      <DIV>muchas gracias al colega Bigegain. voy a experimentar.</DIV>
      <DIV> </DIV>
      <DIV>saludos,</DIV>
      <DIV> </DIV>
      <DIV>Ing. Héctor F. Fiandor Rosario<BR><A 
      href="mailto:hfiandor@infomed.sld.cu">hfiandor@infomed.sld.cu</A></DIV>
      <BLOCKQUOTE>
        <DIV>----- Original Message ----- </DIV>
        <DIV><B>From:</B> <A title=r.bidegain@gmail.com 
        href="mailto:r.bidegain@gmail.com">Rafael Bidegain</A> </DIV>
        <DIV><B>To:</B> <A title=lazarus-es@lists.lazarus.freepascal.org 
        href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of 
        Lazarus List</A> </DIV>
        <DIV><B>Sent:</B> Thursday, July 04, 2013 2:03 AM</DIV>
        <DIV><B>Subject:</B> Re: [Lazarus-es] acceder a una database en una 
        unit</DIV>
        <DIV><BR></DIV>
        <DIV dir=ltr>
        <DIV class=ecxgmail_extra>Hola Hector.<BR></DIV>
        <DIV class=ecxgmail_extra><BR>
        <DIV class=ecxgmail_quote>El 4 de julio de 2013 17:46, Héctor F. Fiandor 
        Rosario <SPAN dir=ltr><<A href="mailto:hfiandor@infomed.sld.cu" 
        target=_blank>hfiandor@infomed.sld.cu</A>></SPAN> escribió:<BR>
        <BLOCKQUOTE class=ecxgmail_quote>
          <DIV>
          <DIV>Estimado Martín Gómez y otros colegas:</DIV>
          <DIV> </DIV>
          <DIV>Me alegro mucho su respuesta, que no la conocia, pero que desde 
          tp3 hace casi 30 años la uso sin saber.</DIV>
          <DIV> </DIV>
          <DIV>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.</DIV>
          <DIV> </DIV>
          <DIV>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).</DIV>[..]<BR>
          <DIV> </DIV>
          <DIV>Espero que me pueda ayudar a crear una uDM como me sugiere para 
          modificar la ultima aplicacion que hize.</DIV>
          <DIV><BR></DIV></DIV></BLOCKQUOTE></DIV><BR></DIV>
        <DIV class=ecxgmail_extra>para crear un DM tenés que hacer lo 
        siguiente:<BR></DIV>
        <DIV class=ecxgmail_extra>clic en menu Archivo,<BR></DIV>
        <DIV class=ecxgmail_extra>clic en nuevo ...<BR></DIV>
        <DIV class=ecxgmail_extra>clic en módulo<BR></DIV>
        <DIV class=ecxgmail_extra>clic en módulo de datos<BR></DIV>
        <DIV class=ecxgmail_extra>clic en aceptar.<BR></DIV>
        <DIV class=ecxgmail_extra><BR></DIV>
        <DIV class=ecxgmail_extra>saludos<BR></DIV>
        <DIV class=ecxgmail_extra>-- <BR>Rafael Bidegain<BR><BR>Ya que los 
        cuerdos no hablan, hablará el loco.<BR>(The Fool, Padraic 
        Pearse)<BR><BR># yo quiero educación libre. ¡YA!<BR><BR></DIV></DIV><BR>
        <HR>
        _______________________________________________<BR>Lazarus-es mailing 
        list<BR><A class=ecxmoz-txt-link-abbreviated 
        href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A><BR><A 
        class=ecxmoz-txt-link-freetext 
        href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" 
        target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></BLOCKQUOTE><BR>
      <FIELDSET class=ecxmimeAttachmentHeader></FIELDSET> <BR><PRE>_______________________________________________
Lazarus-es mailing list
<A class=ecxmoz-txt-link-abbreviated href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A>
<A class=ecxmoz-txt-link-freetext href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A>
</PRE></BLOCKQUOTE><BR><BR>
    <HR>
    <BR>_______________________________________________<BR>Lazarus-es mailing 
    list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE><BR>_______________________________________________ 
  Lazarus-es mailing list Lazarus-es@lists.lazarus.freepascal.org 
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</DIV></DIV></DIV>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>Lazarus-es mailing 
  list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>