Hola amigos...
Ahora se me presentó este extraño problemita...
En tiempo de ejecución dentro del Delphi cuando establezco la conexión con el componente ADO me sale este error:
Cita:
Project Name.exe raised exception class EVariantError with message 'Invalid variant type conversion'. Process stopped. Use Step or Run to continue.
|
Y sin embargo cuando ejecuto la aplicación fuera del Delphi no me da ningún error..., para que tengan un poco más de datos, realizo la entrada en un formulario, esa entrada la guardo en una variable de tipo RECORD que tengo declarada ya y luego lo que hago es lo siguiente...
Código:
ADOTable1.Active := True;
ADOTable1.Append;
ADOTable1.FieldByName('Nombre').AsString := Temp.Nombre;
ADOTable1.FieldByName('Fecha').AsString := Temp.Fecha;
ADOTable1.FieldByName('CodDeudor').AsString := Temp.CodDeudor;
ADOTable1.FieldByName('Deudor').AsString := Temp.Deudor;
ADOTable1.FieldByName('CodProd').AsString := Temp.CodProd;
ADOTable1.FieldByName('Descrip').AsString := Temp.Descrip;
ADOTable1.FieldByName('UM').AsString := Temp.UM;
ADOTable1.FieldByName('Cantidad').AsFloat := Temp.Cantidad;
ADOTable1.FieldByName('Importe').AsFloat := Temp.Importe;
ADOTable1.FieldByName('Confirm').AsString := Temp.Confirm;
ADOTable1.FieldByName('Comprado').AsString := Temp.Comprado;
ADOTable1.FieldByName('Ubicado').AsString := Temp.Ubicado;
ADOTable1.FieldByName('CodUbicado').AsString := Temp.CodUbicado;
ADOTable1.FieldByName('FechaModif').AsString := Temp.FechaModif;
ADOTable1.Post;
ADOTable1.Active := False;
Gracias por adelantado...