Problema con autoincremento!!

[magnu9]

Saludo cordial a todo el foro. mi problema radica en un autoincremento de mis del Id ejemplo de clientes. Al crear un nuevo cliente su Id se autoincremente al anterior. Osea si tengo 20 clientes, al crear el siguientes seria le 21. Alguien me diò una idea es la siguientes.

sqlClientes.sql.text:= ´Select max(CodCli) from clientes´;
inext:= "una funcion que me tome el valor integer"(sqlclientes.sql.text);

Al observar no esta mala la idea, pero no se concretarla, no se si alguien me podria ayudar a crear esa funcion. Y un poco detallada la respuesta osea en que procedure debo llevarlas. Bueno espero en Dios me entiendan.

De antemano un millon de gracias, de exponer su preciado tiempo en todo lo que les solicitamos sus ayudas.

[dec]

Hola,

No dices la base de datos que utilizas, pero, al menos en MySQL (y creo que en algunas más) existe la posibilidad de que un campo tenga el atributo "autoincrement", con lo que al añadir un nuevo registro y sin que tengas que hacer nada en absoluto, la base de datos se encargará de autoincrementar el campo correspondiente.

[Caral]

Hola magnu9
Me alegro que allas puesto el tema por aqui, veras como te ayudan, yo por mi parte te voy a dar una ligera idea, con mi pequeño conocimiento:
Pon un query en el form y haces lo siguiente:
Puedes en cualquier evento poner esto, ponlo en el evento Oncreate del form para empezar, luego lo cambiaras.
Ten en cuenta que pongo Qtemp como nombre del query, tendras que poner el que tengas tu.

QTemp.SQL.Text := 'Select Max(Id) From cliente';
QTemp.Open;
Edit2.Text := IntToStr(QTemp.Fields[0].AsInteger+1);
QTemp.Close;
El edit que pongo acquiere el numero del ID + 1, se puede hacer con el dbedit que saques de la tabla del campo ID, luego le das un post y quedara grabado, bueno esta es mas o menos la idea, espero te sirva.
Seguro que algun maestro te podra ayudar mejor
Saludos

[magnu9]

Me sirvio mucho tu pequeño codigo, lo adeque hasta que me resulto. Bueno gracias por tu ayuda. Espero me ayudes en mis siguientes dudas. Que tendre que tratarla para exponerla. Gracias Caral.

[Caral]

Hola magnu9
La verdad me alegra mucho cuando puedo ayudar a alguien, siendo yo tambien un aprendiz.
Si esta en mis manos con mucho gusto te ayudare, por lo menos lo intentare, si eres capaz de entender mi codigo,:D pues que bien.:)
Saludos