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:
Código:
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?