Campos Decimals en un Grid

[[Delphius]]

Pues acabo de hacer una prueba con DBE.
Yo tengo instalado el driver ODBC 2.0.0 que se encuentra disponible en el sitio Oficial (no volvi a fijarme si hay alguno más nuevo).

Metí un TTable, un DataSource, un Grid, una tabla con campo Decimal... hice la conexión y puedo verlos sin problemas.

¿Será porque usas a versión 2.0 de Firebird? Prueba con la 2.1.1 que es más estable.

Sería bueno que nos indiques más información puesto que me resulta raro esto.

Saludos,

[donald shimoda]

Empezado por Delphius

¿Será porque usas a versión 2.0 de Firebird? Prueba con la 2.1.1 que es más estable.
Saludos,

Amigo, por si acaso solo para que no pierda tiempo en eso, yo tengo en producción en muchos sistemas funcionando las 24 horas del día firebird 2.0.3 así que dudo mucho que sea la versión de firebird.

Si puedes crea un pequeño caso de prueba y lo pruebo a ver que sucede.

Danos la descripción de los campos que están molestando por favor, así te podemos ayudar mejor.

Saludo.

[[RONPABLO]]

Donald, lo de los UIDs suena interesante, si no te molesta nos podrias decir con que crea los UIDs?? y en donde los crea... desde la aplicación o desde la base de datos?...

[[Delphius]]

Empezado por donald shimoda

Amigo, por si acaso solo para que no pierda tiempo en eso, yo tengo en producción en muchos sistemas funcionando las 24 horas del día firebird 2.0.3 así que dudo mucho que sea la versión de firebird.

Si puedes crea un pequeño caso de prueba y lo pruebo a ver que sucede.

Danos la descripción de los campos que están molestando por favor, así te podemos ayudar mejor.

Saludo.

Si no es la versión de Firebird... entonces.... ¿que puede ser? ¿El DBE? ¿El ODBC? ¿El Delphi (algo difícil que sea este el problema)?
Pues hasta que no aparezca look, podríamos seguir adivinando.

Empezado por RONPABLO

Donald, lo de los UIDs suena interesante, si no te molesta nos podrias decir con que crea los UIDs?? y en donde los crea... desde la aplicación o desde la base de datos?...

No quisiera ser aguafiestas, pero sería bueno que Donald expusiera el tema en un hilo nuevo. Aunque si se considera que complementa y/o que puede ayudar a tratar la segunda duda de look no hay problema.

Saludos,

[donald shimoda]

Empezado por Delphius

Si no es la versión de Firebird... entonces.... ¿que puede ser? ¿El DBE? ¿El ODBC? ¿El Delphi (algo difícil que sea este el problema)?
Pues hasta que no aparezca look, podríamos seguir adivinando.

exacto no sabemos ni que compos usa...

Empezado por Delphius

No quisiera ser aguafiestas, pero sería bueno que Donald expusiera el tema en un hilo nuevo. Aunque si se considera que complementa y/o que puede ayudar a tratar la segunda duda de look no hay problema.
Saludos,

Te vi tarde...

Será que el moderador puede mover este post a un hilo nuevo?

Saludos.

[[RONPABLO]]

Yo en un principio creí que era bueno hacer una pregunta en otro hilo pero al final me pareció que complementaba algo de lo que se hablaba aquí mismo...

[RolphyReyes]

Saludos.
NO es por aguarle la fiesta a nuestro compañero donald shimoda pero este articulo es muy interesante sobre el uso de GUID como campo primario (IbExpert DataBase Performance Newsletter)

Did you ever thought about possibilities to improve your database performance? Sure, a Database System like Interbase or Firebird is able to speed up typical operations internally, but in a lot of cases, there are very easy but powerful improvements.
Here is one more example:

Use the right Datatype!
Due to some customers ideas, we wanted to know how many influence the changes between GUID and Int32 or Int64 Primary Keys will havein the database design regarding performance.
So we created 3 different databases on a windows machine.
Each will have two simple tables (m for master, d for detail).

Here is the DB structure for Int32 IDs:
Código SQL [-] CREATE TABLE M ( ID INTEGER NOT NULL PRIMARY KEY, TXT VARCHAR(30));

Código SQL [-]CREATE TABLE D ( ID INTEGER NOT NULL PRIMARY KEY, M_ID INTEGER REFERENCES M(ID), TXT VARCHAR(30));


Here is the DB structure for Int64 IDs:
Código SQL [-] CREATE TABLE M ( ID BIGINT NOT NULL PRIMARY KEY, TXT VARCHAR(30));

Código SQL [-]CREATE TABLE D ( ID BIGINT NOT NULL PRIMARY KEY, M_ID BIGINT REFERENCES M(ID), TXT VARCHAR(30));


Here is the DB structure for GUIDs:
Código SQL [-] CREATE TABLE M ( ID CHAR(32) NOT NULL PRIMARY KEY, TXT VARCHAR(30));

Código SQL [-]CREATE TABLE D ( ID CHAR(32) NOT NULL PRIMARY KEY, M_ID CHAR(32) REFERENCES M(ID), TXT VARCHAR(30));

For creating the GUID, we are using a UDF from www.ibexpert.com/download/udf/uuidlibv12.zip
Código SQL [-] DECLARE EXTERNAL FUNCTION GUID_CREATE CSTRING(36) CHARACTER SET NONE RETURNS PARAMETER 1 ENTRY_POINT 'fn_guid_create' MODULE_NAME 'uuidlib';

In the next step we will just show you how to create the stored procedure to generate the data in the GUID DB.
Código SQL [-] CREATE PROCEDURE INITDATA (ANZ INTEGER) AS declare variable m varchar(40); declare variable d varchar(40); declare variable dx integer; begin while (anz>0) do begin m=guid_create(); m=strreplace(m,'-',''); insert into m(id,txt) values (:m,current_timestamp); dx=10; while (dx>0) do begin select guid_create() from rdb$database into :d; d=strreplace(d,'-',''); insert into d(id,txt,m_id) values (:d,current_timestamp,:m); dx=dx-1; end anz=anz-1; end end

A Procedure to create the Integer ID Data is much easier using a generator.

After we have created all 3 databases with the param 500000 (which means 500000 master and 5 milllion detail records are created), we disconnect and reconnect again to see that any cache influence will not change the results.

To do the typical SQL Operation, we start a select that joins all records from all tables

Código SQL [-]
 select count(*) from m join d on d.m_id=m.id

Here are the results over all
Operation/Info Int32 Int64 GUID
DB Size 505 MB 550 MB 1030 MB
INITDATA(500000) 271s 275s 420s
Backup 49s 54s 90s
Restore 124s 127s 144s
Select 22s 22s 49s

Resume
The changes between Int64 and Int32 can almost be ignored, but the changes to a GUID is a problematic design. The integer datatypes will give you better performance.

Pagina: http://www.firebirdnews.org/?p=998

[donald shimoda]

Empezado por RolphyReyes

Saludos.
NO es por aguarle la fiesta a nuestro compañero donald shimoda pero este articulo es muy interesante sobre el uso de GUID como campo primario (IbExpert DataBase Performance Newsletter)
Pagina: http://www.firebirdnews.org/?p=998

Amigo Rolphy, por favor si aca estamos todos para aprender. Muy buena la info.

La diferencia es que usa mayor cantidad de digitos un GUID que un UID.

Justamente la idea de usar UIDs es porque la longitud de campor requerida es MENOR que usando GUIDS, esa es la ventaja, mientras se mantienen las características de los GUIDS.

22 chars de los UIDS contra 36 de los GUIDs, no es poca cosa...

Saludos.

[donald shimoda]

Empezado por RONPABLO

Donald, lo de los UIDs suena interesante, si no te molesta nos podrias decir con que crea los UIDs?? y en donde los crea... desde la aplicación o desde la base de datos?...

Claro amigo, con mucho gusto.

Si utilizas un UDF, que es basicamente una dll generado por delphi y que colocas en la carpeta de udfs de tu servidor delphi, entonces puedes crear luego un procedure en tu base que antes de insertar LLAME al codigo de la udf, genere el UID y lo asigne a tu clave primaria.

Si lo haces en tu delphi (lo cual te la libertad de moverlo entre motores de base de datos el dia de mañana) simplemente le asignas el valor al campo, llamando a la función de la librería que a continuación te copio.

Código Delphi [-]
unit uGUID;
interface

type

  PUUIDc = ^TUUIDc;

  TUUIDc = array[0..21] of AnsiChar;



  PGUIDc = ^TGUIDc;

  TGUIDc = array[0..35] of AnsiChar;



function UUIDCreate(uuid: PUUIDc): PUUIDc; stdcall;

function GUIDcreate(guid: PGUIDc): PGUIDc; stdcall;

function GUIDtoUUID(guid: PGUIDc; uuid: PUUIDc): PUUIDc; stdcall; overload;

function GUIDtoUUID(aGUID: TGUID): string; overload;



function GenGUID(Full: Boolean = False; upperCase: Boolean = False): string;

function GenUUID: string;



implementation



uses SysUtils;



function GenGUID(Full, upperCase: Boolean): string;



var

  aGUID: TGUID;



begin

  CreateGuid(aGUID);

  Result:= GuidToString(aGUID);

  if not Full then

    Result:= System.Copy(Result, 2, 36);

  if upperCase then

    Result:= AnsiUpperCase(Result);

end;



const

  URLchars: array[0..63] of AnsiChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_-';



function GUIDcreate(guid: PGUIDc): PGUIDc;



var

  s: string;



begin

  s:= GenGUID(False);

  Move(s[1], guid^, SizeOf(guid^));

  Result:= guid;

end;



function GUIDtoUUID(guid: PGUIDc; uuid: PUUIDc): PUUIDc;



var

  x, i: Integer;

  s: string;

  aGUID: TGUID;

  aGuidArray: array[0..1] of Int64 absolute aGUID;



begin

  SetLength(s, SizeOf(guid^));

  Move(guid^, s[1], SizeOf(guid^));

  aGUID:= StringToGuid(s);

  for x:= Low(uuid^) to High(uuid^) do

  begin

    i:= x div 11;

    uuid[x]:= URLchars[aGuidArray[i] and $0000003F];

    aGuidArray[i]:= aGuidArray[i] shr 6;

  end;

  Result:= uuid;

end;



function UUIDCreate(uuid: PUUIDc): PUUIDc;



var

  x, i: Integer;

  aGUID: TGUID;

  aGuidArray: array[0..1] of Int64 absolute aGUID;



begin

  CreateGuid(aGUID);

  for x:= Low(uuid^) to High(uuid^) do

  begin

    i:= x div 11;

    uuid[x]:= URLchars[aGuidArray[i] and $0000003F];

    aGuidArray[i]:= aGuidArray[i] shr 6;

  end;

  Result:= uuid;

end;



function GUIDtoUUID(aGUID: TGUID): string;



var

  x, i: Integer;

  aGuidArray: array[0..1] of Int64 absolute aGUID;



begin

  SetLength(Result, 22);

  for x:= 1 to 22 do

  begin

    i:= Pred(x) div 11;

    Result[x]:= URLchars[aGuidArray[i] and $0000003F];

    aGuidArray[i]:= aGuidArray[i] shr 6;

  end;

end;



function GenUUID: string;



var

  uuid: TUUIDc;

begin

  UUIDCreate(@uuid);

  SetLength(Result, SizeOf(uuid));

  Move(uuid, Result[1], SizeOf(uuid));

end;



end.

La definición del campo FIREBIRD sería.

Código SQL [-]
CREATE DOMAIN GUID AS CHAR(22) CHARACTER SET ISO8859_1 COLATE ES_ES

Es muy importante lo del charset porque generara unos chars muy raros.

P.D. Perdón por la calidad del identado, el formateador de código del foro lo destrozo, ni idea por que.

Espero que te sirva. Saludos.
Saludos.