Error en busqueda
Publicado por Armando (16 intervenciones) el 01/08/2007 17:30:45
Estoy desarrollando una aplicacion donde necesito realizar busquedas, mis tablas estan en Paradox y el procedimiento que uso es el siguiente:
begin
DS_prof.DataSet.Locate('Matricula',VarArrayOf([Edit2.Text]), [loPartialKey]);
num := DS_prof.DataSet.FieldByName('Matricula').AsInteger;
if StrtoInt(Edit2.Text) = num then
begin
ShowMessage('Error, Ya hay un profesor registrado con ese número de matricula');
Funciona bien, pero solo cuando el campo "matricula" está en el primer lugar de la tabla :S
si hago la busqueda en otro campo que no esté en primer lugar me marca el error:
Project *** raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Array Variant) into type (Double)'.
Todos los campos estan definidos como number. No se porque saca eso del double.
ayuda por favor... gracias...
begin
DS_prof.DataSet.Locate('Matricula',VarArrayOf([Edit2.Text]), [loPartialKey]);
num := DS_prof.DataSet.FieldByName('Matricula').AsInteger;
if StrtoInt(Edit2.Text) = num then
begin
ShowMessage('Error, Ya hay un profesor registrado con ese número de matricula');
Funciona bien, pero solo cuando el campo "matricula" está en el primer lugar de la tabla :S
si hago la busqueda en otro campo que no esté en primer lugar me marca el error:
Project *** raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Array Variant) into type (Double)'.
Todos los campos estan definidos como number. No se porque saca eso del double.
ayuda por favor... gracias...
Valora esta pregunta


0