Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
dá pra pegar o alias de um select em delphi 5?
ta lá o select
Bd.QyCondicoesGeraisDoTempo.Close;
Bd.QyCondicoesGeraisDoTempo.SQL.Clear;
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' Select IndicadordeLocalidade,DataHoraLocal,CondicoesGeraisDoTempo, ' );
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' (cast(''2/18/2008 01:30'' as timestamp) - cast(''2/18/2008 00:30'' as timestamp)) as VL_DECORRIDO ' );
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' from CondicoesGeraisDoTempo');
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' where CondicoesGeraisDoTempo = ''17'' and IndicadordeLocalidade = ''SBGR''');
Bd.QyCondicoesGeraisDoTempo.Open;
HorasTrv1 := TimeToStr(Bd.QyCondicoesGeraisDoTempoVL_DECORRIDO.AsSTring);dá esse erro abaixo:
[Error] UnitBdEstatistica.pas(2676): Undeclared identifier: 'QyCondicoesGeraisDoTempoVL_DECORRIDO'
Bd.QyCondicoesGeraisDoTempo.Close;
Bd.QyCondicoesGeraisDoTempo.SQL.Clear;
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' Select IndicadordeLocalidade,DataHoraLocal,CondicoesGeraisDoTempo, ' );
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' (cast(''2/18/2008 01:30'' as timestamp) - cast(''2/18/2008 00:30'' as timestamp)) VL_DECORRIDO ' );
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' from CondicoesGeraisDoTempo');
Bd.QyCondicoesGeraisDoTempo.SQL.Add( ' where CondicoesGeraisDoTempo = ''17'' and IndicadordeLocalidade = ''SBGR''');
Bd.QyCondicoesGeraisDoTempo.Open;
HorasTrv1 := FloatToStr(Bd.QyCondicoesGeraisDoTempoVL_DECORRIDO.Value);fiz assim e o valor de HorasTrv1 ta igual a 0 . só que era para dar 0,0416.
adicionei o campo VL_DECORRIDO do tipo FLOAT em QyCondicoesGeraisDoTempo conforme sua orientação.
alguem pode me ajudar?
Primeiro verifique se o campo VL_DECORRIDO esta dentro da qry em questão, se esta adicionado no FieldEditor, caso não esteja, pode adicionar ou fazer:
Bd.QyCondicoesGeraisDoTempo.FieldByName('VL_DECORRIDO').AsSTringPrecisa ver se não vai ocorrer mais um erro de conversão, pois esta tentando converter TimeToStr sendo que a variável que esta passando você já esta setando como .AsString, poderia somente fazer HorasTrv1 := Bd.QyCondicoesGeraisDoTempoVL_DECORRIDO.AsSTring;