<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Hola si me di cuenta, solo faltaba eso, que bien, que pena no responder pero tuve que ausentarme.<div><br></div><div><br><br><div><hr id="stopSpelling">From: hfiandor@infomed.sld.cu<br>To: lazarus-es@lists.lazarus.freepascal.org<br>Date: Thu, 4 Jul 2013 21:25:38 -1200<br>Subject: Re: [Lazarus-es] acceder a una database en una unit<br><br>
<style><!--
.ExternalClass .ecxhmmessage P {
PADDING-RIGHT:0px;
PADDING-LEFT:0px;
PADDING-BOTTOM:0px;
MARGIN:0px;
PADDING-TOP:0px;
}
.ExternalClass BODY.ecxhmmessage {
FONT-SIZE:12pt;
FONT-FAMILY:Calibri;
}
--></style>
<div><font face="Arial" size="2">Estimado Ulises y Rivera:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">efectivamente, hize lo que aparece mas abajo, y
compilo completo.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"> with dm.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">mañana voy a profundizar en los cambios y correrlo
de nuevo a ver que pasa.</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>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2"> </font></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="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="ecxstopSpelling">
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>
<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></body>
</html>