<!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>Ulises, te molesto de nuevo, pero el programa no me
funciona.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>hize todos los cambios en todas las units donde se
llamaba a las tablas y les puse dm.t......</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>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.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>si tienes alguna idea del asunto, te la voy a
agradecer, o dime si necesitas mas información para enviartela.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>saludos, y perdona tanta molestia,</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><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; 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 3:19
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>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: <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 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>
<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>