Obtener ClaveMaestra del registro insertado.

[jachguate]

Bueno... el cursor no se mueve de registro en el dataset, pero me parece (salvo que ADO trabaje sensiblemente diferente al BDE en esta parte) que el registro no estará "actualizado". Es decir, no mostrará el valor asignado al campo en la base de datos.

En el caso del BDE, lo que ocurre es que éste motor se basa en la llave primaria para hacer un refresh del registro inmediatamente después de insertarlo, de manera que cualquier asignación hecha del lado del servidor, via triggers por ejemplo, se refleje en el cliente.

El talón de aquiles de este mecanismo, por supuesto, son las asignaciones del lado del servidor a algún campo que forma parte de la clave primaria. Esto es simplemente imposible con el BDE, y dado que se basa en el "minimo común" de todas las BD's, supongo que no idearon la forma de realizarlo.

Conozco algunos motores de base de datos que implementan un mecanismo para prevenir esto, pero varia de motor en motor... creo que el único que no tiene un mecanismo para identificar de nuevo al registro es interbase/firebird, aunque habría que consultar a los expertos...

ADO funciona de otra forma?

Hasta luego.

[__cadetill]

Empezado por jachguate

Bueno... el cursor no se mueve de registro en el dataset, pero me parece (salvo que ADO trabaje sensiblemente diferente al BDE en esta parte) que el registro no estará "actualizado". Es decir, no mostrará el valor asignado al campo en la base de datos.

Por este preciso motivo decía que no sabía como ADO se comportaba con el refresco de los datos. Si te da el valor de forma inmediata, no hay problema, sino.... ya lo dejo en manos de gente que conozca bien este motor

[jplj]

El código que he puesto es un ejemplo, sólo eso.

En cuanto a recuperar el valor del campo Tabla1-Id tras el Post, lo intenté en: la línea de código tras el post, en el evento afterpost de la tabla y en el evento SetText y Validate del campo con el mismo resultado 0.

Otra forma que se me ha ocurrido es utilizar una sentencia SQL, aunque no sé si es factible crear una sentencia que insert un registro y devuelva la fila insertada.

Si teneis cualquier sugerencia os la agradecería.

Saludos
Juan P.

[jachguate]

A mi saber no es posible recuperar la fila seleccionada. Access no tiene algun mecanismo tipo generadores que te permita asignar el código desde el cliente??

[roman]

Vamos a ver, que no estoy entendiendo lo qe dice jachguate:

Si tengo una tabla en paradox con un campo autonumérico e inserto un registro, inmediatamente depués del post puedo obtener el valor que se asignó al campo.

[jachguate]

Bueno... ya sabes que Paradox es un caso especial del BDE, al igual que los DBF's, y no se si algun otro. Lo que yo digo es aplicable para bases de datos SQL (al menos desde el punto de vista del propio BDE, pues Access sigue cayendo en esta categoria, segun mi criterio).

Hasta luego.

[roman]

Pues el problema es raro. Acabo de hacer la prueba con ADO con Access y es como suponía cadetill, el valor del autonumérico lo obtengo inmediatamente después del Post. De hecho esto lo había ya señalado sanxpue desde un principio, si bien él agrega el uso de Last.

[jplj]

Bien por lo que dice Roman algo debo estar haciendo mal.

Acabo de hacer nuevamente la prueba con el código siguiente:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
   k: Real;
begin
   ADOTable1.Append;
   ADOTable1Numero.AsInteger:= 1000;
   ADOTable1Nombre.AsString:= 'Número : ' +IntToStr(1000);
   ADOTable1.Post;
   k:= ADOTable1Id.AsFloat;
   MessageDlg('Id registro insertado: ' + FloatToStr(k), mtInformation,  
                    mbOk], 0);
end;

Y el valor de de k es siempre cero.

La cadena de conexión es:

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;
Data Source=E:\Documents and Settings\casa\Mis 
Documentos\Trabajo\Estudio_ADO\bd2.mdb;
Mode=Share Deny None;Extended Properties="";
Jet OLEDB:System database="";Jet OLEDB:Registry Path="";
Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;
Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False

Utilizo Acces 97 y Delphi 7.

¿dónde está el error?