Delphi - LOS PROBLEMAS CONTINUAN

 
Vista:

LOS PROBLEMAS CONTINUAN

Publicado por DANIEL (57 intervenciones) el 18/07/2007 00:43:05
Buenas tardes ante todo, continuando con la rutina de mis muchisimos errores he encontrado el kit del problema, pero no lo veo razonable, lo explico;

He encontrado que me da un error al hacer lo siguiente -->

procedure TFrmMontajes.FormActivate(Sender: TObject);
BEGIN
//Inicializamos variables
comprobar := false;
llamada_cliente := false;
llamada_grupo := false;
operacion := #0;
//Abrimos las tablas necesarias
Modulo_Datos.tb_lk_montajes.Open;
Modulo_Datos.tb_lk_productos.Open;
Modulo_Datos.tb_lk_montadores.Open;
Modulo_Datos.tb_lk_grupos.Open;
Modulo_Datos.tb_lk_linmontaje.Open;
//si existe 1 o mas registros en la tabla
IF (Modulo_Datos.tb_lk_montajes.RecordCount > 0) THEN -- Aqui es el error ????
BEGIN
Modulo_Datos.tb_lk_montajes.First;
Edit1.Text := IntToStr(Modulo_Datos.tb_lk_montajesCodigo.Value);
Fecha_Pedido.Date := Modulo_Datos.tb_lk_montajesFecha_Pedido.AsDateTime;
Fecha_Montaje.Date := Modulo_Datos.tb_lk_montajesFecha_Montaje.AsDateTime;
END
ELSE
BEGIN
//si no existe ningun registro
Fecha_Pedido.Date := Date;
Fecha_Montaje.Date := Date+10;
Edit1.Text := '';
END;
//preparamos la pantalla
Iniciar_Botones;
END;

--> Nada mas activar el formulario me da este error "Project Proyecto_FrioSur.exe raised exception class EOleException with mesage "El proveeodr de datos u otro servicio devolvio un estado E_FAIL', process stopped. Use Step or Run to continue.

Haver si podeis ayudarme porque estoy empezando a cansarme de este error.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:LOS PROBLEMAS CONTINUAN

Publicado por jose luis (157 intervenciones) el 21/07/2007 04:30:16
Me imagino Modulo_Datos.tb_lk_montajes es un componente de tipo table o similar, si es asi porque en vez de usar el recordcount porque no usas el IsEmpty

del error hay una posible explicacion en este link
http://www.lawebdelprogramador.com/news/mostrar_new.php?id=23&texto=Delphi&n1=73221&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar