10 replies to this topic

[Aikido]

cree una consulta ,usando tres tablas ,que me devuelva varios valores pero no logro que se vean  en un form
Es la siguiente:

delphi

procedure TfrmObSEnv.Button1Click(Sender: TObject);
var
   hcnombre : string;
begin
  with IBQuery1  do
  begin
    Close;
    SQL.Text := ' select hcnombre, hcnro, hcdni, hcapellido, strnro, strfechaacc, strart, obsnrosin, '+
                ' obsfecha, obsprofesional, obsobservacion, obsfechapc, obsadmin, obsfechaenv ' +
                ' from historiaclinica , siniestro , observaciones ' +
                ' where hcnro = strhc ' +
                ' and strnro = obsnrosin ' +
                ' and obsfechaenv is Null ' +
                ' order by hcapellido ' ;
    Open;

Por favor si alguien puede decirme como resolver este problema
Gracias     

Edito: he acomodado un poco el código para que se aprecie mejor.

[Caral]

Hola
La consulta parece que esta bien, la variable no se usa para nada y no sabemos donde quieres presentar la informacion, dices que en el form, pero el form no muestra nada, deberia de ser en un dbgrid u otro.
Saludos

[Fenareth]

Hola amigo Aikido !!!

Bienvenido a DelphiAccess....

Como te comenta Caral, nos gustaría que fueras un poco más preciso... en qué componente estás tratando de mostrar los datos que te arroja tu sentencia ? 

Saludox !

[felipe]

Adicional a lo comentado,
¿estos son parámetros?

strhc
obsnrosin

porque de ser así, recuerda anteponer ":" y pasarle sus valores antes de open


Saludos!

[Aikido]

Si perdón, me olvide de poner que tipo es :

delphi

TfrmObSEnv = class(TForm)
    GPBDatosP: TGroupBox;
    lblNyA: TLabel;
    DBNyA: TDBEdit;
    lblHC: TLabel;
    DBHC: TDBEdit;
    lblNSin: TLabel;
    DBNSin: TDBEdit;
    lblART: TLabel;
    DBART: TDBEdit;
    GPBObs: TGroupBox;
    BAnterior: TButton;
    BSiguiente: TButton;
    lblProfesional: TLabel;
    DBMedico: TDBEdit;
    lblFEnvio: TLabel;
    DBFenvio: TDBEdit;
    DBMObser: TDBMemo;
    lblOberM: TLabel;
    lblObserA: TLabel;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    DBFProxC: TDBEdit;
    lblFCons: TLabel;
    DBFC: TDBEdit;
    cmdEstudios: TButton;
    cmdReh: TButton;
    cmdInterconsulta: TButton;
    cmdIngresos: TButton;
    cmdOrtopedia: TButton;
    cmdCirugia: TButton;
    cmdSalir: TButton;
    suiSkinEngine1: TsuiSkinEngine;
    cmdCancelar: TButton;
    IBDSconsultas: TIBDataSet;
    DSConsulta: TDataSource;
    IBDSconsultasHCNOMBRE: TIBStringField;
    IBDSconsultasHCNRO: TIntegerField;
    IBDSconsultasHCDNI: TIBStringField;
    IBDSconsultasHCAPELLIDO: TIBStringField;
    IBDSconsultasSTRNRO: TIBStringField;
    IBDSconsultasSTRFECHAACC: TDateField;
    IBDSconsultasSTRART: TIntegerField;
    IBDSconsultasOBSNROSIN: TIBStringField;
    IBDSconsultasOBSFECHA: TDateField;
    IBDSconsultasOBSPROFESIONAL: TSmallintField;
    IBDSconsultasOBSOBSERVACION: TIBStringField;
    IBDSconsultasOBSFECHAPC: TDateField;
    IBDSconsultasOBSADMIN: TIBStringField;
    IBDSconsultasOBSFECHAENV: TDateField;
    IBQuery1: TIBQuery;
    Button1: TButton;

[enecumene]

Pues por lo que veo quieres mostrar los datos en TDBEDit, debes recordar que a cada TDBEdit debes asignarle las propiedades DataSource/Dataset y FieldName.

Saludos.

[Aikido]

Ya me muestra los datos pero hay un dato que necesito modificar pero me dice dataset read only . Como podria resolverlo?
Gracias por su tiempo

[eduarcol]

Hola,

No vas a poder debido a que es una consulta compleja, lo ideal seria utilizar un TIbDataset, llenando sus propiedades Update, Insert, Refresh y Select

Intentalo cualquier cosa preguntas. 

[felipe]

Los Query solo trabajan en una dirección, esa consulta no es modificable, tendrías que hacer esa edición con otro método, quizá otro Query.


Saludos!

[Aikido]

hola estube probando . ahora me sale el siguiente error :
Dynamic SQL ErrorSQL error code = -104Token unknown - line 5, char -1from.
para la siguiente consulta , pero no logro ver donde esta el problema porque si corro la consulta en IBExpert funciona perfecto pero en el TIBdataset me sale ese error.

sql

SELECT historiaclinica.hcnombre, historiaclinica.hcnro, historiaclinica.hcdni, historiaclinica.hcapellido, siniestro.strnro, siniestro.strfechaacc, siniestro.strart,  observaciones.obsnrosin, observaciones.obsfecha, observaciones.obsprofesional, observaciones.obsobservacion, observaciones.obsfechapc, observaciones.obsadmin,observaciones.obsfechaenv  
FROM (historiaclinica INNER JOIN siniestro ON historiaclinica.hcnro=siniestro.strhc) INNER JOIN observaciones ON siniestro.strnro = observaciones.obsnrosin 
WHERE observaciones.obsfechaenv IS NULL 
ORDER BY historiaclinica.hcapellido;

Gracias

[eduarcol]

Estas seguro que esa es la consulta que esta en el componente que ejecuta el Query?

Con cual componente trabajas??