13 replies to this topic

[eduarcol]

Hola a todos, cuerda de borrachos amigos mios 

jeje, ahora si, este es mi problema:

Yo la construcción de la BD y las actualizaciones las manejo por un archivo que yo le coloco como Diccionario de datos, inicialmente este archivo lo maneje como un INI y me funciono, la estructura era básicamente la siguiente:

[table]
[tr]
[td][TABLAS]
0001=CLIENTES
0002=PROVEEDOR
[CAMPOS]
0001;001=NOMBRE varchar(100);
0001;002=CEDULA varchar(15);
0002;001=NOMBRE varchar(100);
0002;002=RIF varchar(15);
0002;003=TELEFONO varchar(15);[/td]
[/tr]
[/table]

Hasta aqui vamos bien, ahora cuando quiero trabajar con los Procedimientos almacenado se me presenta un problema, por ejemplo:

MiProcedimiento = create storeProcedure (PROCCLIENTES) as
                              UTC = :CLIENTENOMBRE;
                                el resto de las lineas
                          end;
OtroProcedimiento = ****

En este caso debería dar dos procedimientos como resultado,

MiProcedimiento
OtroProcedimiento

pero realmente me esta dando tres:

MiProcedimiento
UTC
OtroProcedimiento

El cual es el comportamiento normal de un archivo INI, ahora se me ocurre que para evitar esto puedo trabajar con .DAT, lo que quisiera saber es si alguien tiene alguna propuesta, o por lo menos saber que tipo de datos puedo utilizar en un .DAT con mas de 255 Caracteres.

Gracias por su atencion

[enecumene]

¿y has intentado con archivos XML?.

[eduarcol]

¿y has intentado con archivos XML?.

no lo he hecho, dejame ver que encuentro al respecto.

[kafastoforman]

Lo que a mi se me ocurre, es que en vez de guardar toda la consulta del stored proc en el ini, lo hagas en un archivo aparte y en el ini solo pongas el nombre del archivo al que corresponde.

ej.

archivo.ini
-------------------------------------
  MiProcedimiento=miprocedimiento.prc


miprocedimiento.prc
-------------------------------------
create storeProcedure (PROCCLIENTES) as
                              UTC = :CLIENTENOMBRE;
                                el resto de las lineas
                          end;


Eso es lo que a mi se me ocurre

saludos

Kafastoforman

[eduarcol]

epa amigo, esa esta buenísima, pero me trae otro problema y es que para manejar múltiples archivos tendría que cambiar todo el actualizador,

Si no me funciona con .DAT o XML y tengo que modificar el actualizador trabajare con esa.

[eduarcol]

Los archivos XML me traen el mismo problema que la dada por kafastoforman, ya que leyendo me encuentro que aparte del XML debe tener un .dtd.

Seguire investigando al respecto.

[enecumene]

No amigo, no es necesario el .dtd, eso es sólo al momento de crear la estructura. Luego de eso te desprendes de ella. Sólo que tendrías que hacer dos XML, uno de los campos y tablas otra de todos los SP.

[eduarcol]

Utilizaría esta estructura.

[table]
[tr]
[td]Seccion                Nombre    Sentencia
TABLAS                0001        CLIENTES
TABLAS                0002        PROVEEDORES
CAMPOS              0001;001  NOMBRE varchar (100)
CAMPOS              0001;002  CEDULA  varchar (12)
PROCEDIMIENTOS  MIPROCED  XXXXX*******;[/td]
[/tr]
[/table]

[eduarcol]

Una DTD puede residir en un fichero externo, y quizás compartido por varios (puede que miles) de documentos. O bien, puede estar contenido en el propio documento XML, como parte de su declaración de tipo de documento.

Veamos un ejemplo

<! DOCTYPE etiqueta[
<!ELEMENT etiqueta (nombre, calle, ciudad, pais, codigo)>
<!ELEMENT nombre (#PCDATA)>
<!ELEMENT calle (#PCDATA)>
<!ELEMENT ciudad (#PCDATA)>
<!ELEMENT pais (#PCDATA)>
<!ELEMENT codigo (#PCDATA)>
]>

<etiqueta>
<nombre>Fulano Mengánez</nombre>
<calle>c/ Mayor, 27</calle>
<ciudad>Valderredible</ciudad>
<pais>España</pais>
<codigo>39343</codigo>
</etiqueta>

Fuente

[eduarcol]

Siempre lo he dicho, Delphi es la solución a todas nuestras plegarias

ClientDataSet1.SaveToFile(miarchivo, dfXML);

[egostar]

Siempre lo he dicho, Delphi es la solución a todas nuestras plegarias

ClientDataSet1.SaveToFile(miarchivo, dfXML);

Pues que bien amigo, larga vida a Delphi

Salud OS

[eduarcol]

Bueno ya estoy trabajando en las actualizaciones, doy el hilo como resuelto, gracias a todos por sus aportes

[seoane]

Parece que llego tarde, y ademas la solución me parece muy buena.

Pero yo tengo otra solución, menos elegante, pero mas rápida de implementar. Yo mismo lo use cuando me encontré con el mismo problema que eduarcol, el de guardar varias lineas en un valor de un archivo .ini

El método es sencillo, codificar el valor antes de guardarlo y decodificarlo al leerlo.

Un ejemplo:

delphi

function Encode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Str) do
    if Str[i] in ['A'..'Z','a'..'z','0'..'9','-','_','.'] then
      Result:= Result + Str[ i ]
    else
      Result:= Result + '%' + IntToHex(Ord(Str[ i ]),2);
end;
 
function Decode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Str) > 0 do
  begin
    if Copy(Str, 1, 1) = '%' then
    begin
      if not TryStrToInt('$' + Copy(Str, 2, 2),i) then
      begin
        Result:= '';
        Exit;
      end;
      Result:= Result + Char(i);
      Delete(Str, 1, 2);
    end else Result:= Result + Copy(Str, 1, 1);
    Delete(Str,1,1);
  end;
end;  
 
// Para guardar un valor
WriteString(Section,Ident,Encode(Valor)); 
 
// Para leer un valor
Result:= Decode(ReadString(Section,Ident,Default)); 

[eduarcol]

Te felicito Sencillo y efectivo amigo, Sencillo y efectivo