error al ejectuar query dentro de beforepost

[[enecumene]]

Empezado por johnlobo

En el evento Beforepost de la tabla principal, intento hacer un "Select MAX(codigo) FROM tabla" con un TADOQuery para sacar el último código introducido, y guardarlo en el campo "código", y lo que obtengo es un bonito error de esta guisa... "[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la clausula FROM". Obviamente este error no tiene sentido, porque la tabla de la clausula from existe.
Desde otros eventos de la tabla como "onposterror" y "afterpost" también falla... sin embargo desde fuera de los eventos de la tabla funciona perfectamente.

Hola podrias postear la sentencia completa por aqui?.

Saludos.

[waly2k1]

Si lo que quieres es saber cual es el codigo nuevo que se insertó
lo que puedes hacer es una consulta con @@IDENTITY, te paso un ejemplo

  qryLocate.SQL.Clear;
    qryLocate.SQL.Text := 'SELECT @@IDENTITY AS NewID';
    qryLocate.Active := true;
    iNewID := qryLocate.FieldByName( 'NewID' ).Value;

donde:
iNewID es una variable LongInt declarada anteriormente
NewID es un campo ficticio que me arroja el @@IDENTITY, bah usando un alias.

Esto lo ejecutas apenas hagas el insert en la tabla y no te preocupes por todos los eventos de ADO, es más si puedes evitarlos mejor aún.

Bueno espero te sirva esto y Exitos!!!

[johnlobo]

Pues, es que el problema de los autoincrementales de access es que si se cancela la inserción corre núimero, así que aunque te agradezco tu propuesta, me temo que puedo usarla.

Estoy de acuerdo contigo sobre los eventos ADO, me temo que tienen algo que ver en este tema.

Saludos,
John.

Empezado por waly2k1

Si lo que quieres es saber cual es el codigo nuevo que se insertó
lo que puedes hacer es una consulta con @@IDENTITY, te paso un ejemplo

  qryLocate.SQL.Clear;
    qryLocate.SQL.Text := 'SELECT @@IDENTITY AS NewID';
    qryLocate.Active := true;
    iNewID := qryLocate.FieldByName( 'NewID' ).Value;

donde:
iNewID es una variable LongInt declarada anteriormente
NewID es un campo ficticio que me arroja el @@IDENTITY, bah usando un alias.

Esto lo ejecutas apenas hagas el insert en la tabla y no te preocupes por todos los eventos de ADO, es más si puedes evitarlos mejor aún.

Bueno espero te sirva esto y Exitos!!!

[[enecumene]]

Código Delphi [-]
Function nextArmario() : integer;
begin
  moduloDeDatosMdt.aux1Qry.Close;
  moduloDeDatosMdt.aux2Qry.SQL.Clear;
  moduloDedatosMdt.aux1Qry.SQL.Add('SELECT MAX(numArmario)+1 FROM armarios');
  moduloDedatosMdt.aux1Qry.Open;
  aux:=moduloDedatosMdt.aux1Qry.Fields[0].AsString;
  moduloDeDatosMdt.aux1Qry.Close;
end;

Intenta con eso a ver que resulta.

Saludos.

[waly2k1]

El problema en Access con los autoincrementales es que hasta que no
hagas el post en la tabla no puedes saber el valor asignado, y otra cosa: A no ser que tu aplicación sea monousuaria no te sirve el MAX() +1, por lo que no sabes cual es el valor real y la unica manera es seleccionando el valor @@IDENTITY. El problema no es de ADO, simplemente te digo que no te hagas problemas con los eventos porque son muchos y me pasó hace un tiempo que la sucesión de eventos no siempre respetaba un orden especifico, [code]supongo se corrigió ese bug, pero por las dudas descarté todo.

Por lo gral. cuando uso campos de tipo autoincremental lo hago cuando si o si inserto el registro y no cuando el usuario pueda cancelar la inserción.

Sino lo que uso es una tabla con un registro donde estan los últimos valores asignados y a un valor de esos le sumo uno, o sea simulo un Autoinc y llevo yo el control y no Access.

Te pego una función que la invoco cuando quiero insertar el registro

function TData.GetKey( sField:string ) :LongInt;
begin
    tblClaves.Requery;
    Result := tblClaves.FieldByName( sField ).Value + 1;
end;

Los campos son los nombres de las tablas, entonces paso como parámetro el nombre de la tabla y listo.

Algo así:

Tabla.FieldByName( 'ID_PROVEEDOR' ).Value:=TData.GetKey('PROVEEDOR');

Edito, me olvidé de decirte que una vez que insertes el registro actualices esa tablita

procedure TData.SetKey( sField:string );
begin
    tblClaves.Edit;
    tblClaves.FieldByName( sField ).Value := tblClaves.FieldByName( sField ).Value + 1;
    tblClaves.Post;
end;

Algo así:

TData.SetKey( 'PROVEEDOR');

Bueno espero te sirva de algo, exitos. Y no te compliques mucho.

[johnlobo]

Empezado por enecumene

Hola podrias postear la sentencia completa por aqui?.

Saludos.

Bueno pues ahí va algo de código, aunque puede que no esté muy limpio...

Function nextArmario() : integer;
var
  aux : integer;
begin
  moduloDeDatosMdt.aux1Qry.Close;
  moduloDeDatosMdt.aux2Qry.SQL.Clear;
  moduloDedatosMdt.aux1Qry.SQL.Add('SELECT MAX(numArmario) FROM armarios');
  moduloDedatosMdt.aux1Qry.Open;
  aux:=moduloDedatosMdt.aux1Qry.Fields[0].AsInteger;
  moduloDeDatosMdt.aux1Qry.Close;
  nextArmario:=aux+1;
end;


procedure TmoduloDeDatosMdt.armariosTblBeforePost(DataSet: TDataSet);
var ultimoArmario : integer;
begin
ultimoArmario:=nextArmario();
if (armariosTbl.FieldByName('numArmario').Asinteger<>ultimoArmario) then
  begin
    armariosTbl.FieldValues['numArmario']:=ultimoArmario;
    showMessage('El número de armario ha cambiado durante la edición del mismo');
  end;
end;

El casque lo pega en la sentencia moduloDedatosMdt.aux1Qry.Open;" de la primera función, que se ejecuta justo antes de hacer un post, cuando la lanza el evento beforepost... he probado esta función fuera de los eventos y funciona perfectamente... :-(

Saludos,
John.