Mysql, ZeosDB

[steelha]

Ok ya entiendo duilioisola, voy a probar

[[AzidRain]]

La belleza de ZeosDB es que te permite hacer esto:

Código Delphi [-]
  TZQuery.SQL.Add('SELECT * FROM REGISTROS WHERE CLAVE=:CLAVE');
  TZQery.ParambyName('CLAVE').AsInteger := 1;
  TZQuery.Open;
  TZQuery.Edit;
  TZQuery.FieldBYName('NOMBRE').AsString := 'NUEVO NOMBRE';
  TZQuery.Post;
  TZQuery.Close;

Yo quitaría eso de asignación de secuecina manual y se lo dejo a MySQL con un campo autoincrementado, no veo la utilidad de darle al usuario la potestad de poder decidir que número siguen en la secuencia cuando lo que necesitas es un número único por cada historia clínica. Creo que en todo caso falta revisar el model de BD que hiciste.

[steelha]

Gracias por la ayuda AzidRain, pero es una tabla donde estaran todas las secuencias para todos los documentos, y configuraciones que necesiten, como el caso del IVA, etc

[[AzidRain]]

Es lo mismo que te mencionaba, no necesitas tener una tabla para guardar en que numero va cada documento. Aparte de impráctico corres el riesgo de que si no diseñaste bien la BD, termines con folios desfasados.

Te recomiendo colocar un campo intenger sin signo tipo autoincrementando en todas las tablas que requieran tener un número consecutivo para identificar cada registro. Además así es más fácil de mantener las relaciones entre tablas. Y no tienes que hacer nada en tu código ya que MySQL se encargará de ir generando los numeros de forma automática.

[steelha]

Ok, entendí tu idea ... pero a veces no es que uno quiera si no lo que le pidan, simplemente estoy codificando las ideas de una persona no fui yo quien diseño los modelos de las DB y asi me las pasaron con los diseños de como serian cada pantalla... pero hablare a ver que me dicen. Muchas gracias por molestarte en contestar y a todos aquellos que de una u otra forma han ayudado.

[ozsWizzard]

Empezado por AzidRain

La belleza de ZeosDB es que te permite hacer esto:

Código Delphi [-]
  TZQuery.SQL.Add('SELECT * FROM REGISTROS WHERE CLAVE=:CLAVE');
  TZQery.ParambyName('CLAVE').AsInteger := 1;
  TZQuery.Open;
  TZQuery.Edit;
  TZQuery.FieldBYName('NOMBRE').AsString := 'NUEVO NOMBRE';
  TZQuery.Post;
  TZQuery.Close;

.

Si TZQuery es el nombre del objeto, ¿qué diferencia hay con ADO o DBExpres?, yo eso mismo lo tengo hecho con ambos. A menos que TZQuery sea el nombre de la clase y no tengas instanciado el objeto, en cuyo caso más que una ventaja lo vería como una aberración.

Un saludo