Ver Mensaje Individual
  #1  
Antiguo 12-06-2003
Avatar de Lester
Lester Lester is offline
Miembro
 
Registrado: may 2003
Ubicación: Cienfuegos, Cuba.
Posts: 106
Reputación: 22
Lester Va por buen camino
Question Error en conexión en tiempo de ejecución !!

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...
__________________
Lester Espinosa Martínez

[ Guía de estilo | La otra guía de estilo | Buscador | Trucos | My personal blog ]
Responder Con Cita