Programação em Delphi

[Henrique Paulino]

'setExecutar' Does not contain a member named 'SentencaSQL' at line

O erro esta aqui - sentencaSQL : begin; IBDataSet1.Close;

IBDataSet1.SelectSQL.Clear;

IBDataSet1.SelectSQL.Add(strSql);

IBDataSet1.Open;

IBDataSet1.First;

begin

sentencaSQL : begin;

IBDataSet1.Close;

IBDataSet1.SelectSQL.Clear;

IBDataSet1.SelectSQL.Add(strSql);

IBDataSet1.Open;

IBDataSet1.First;

O erro está aqui -> StatusBar1.Panels[0].Text:= 'INC: ' +

IBDataSet1.FieldByName('data_inc').AsString;

StatusBar1.Panels[1].Text:=' ALT: ' +

IBDataSet1.FieldByName('data_alt').AsString;

StatusBar1.Panels[3].Text:= ' ' +

IBDataSet1.FieldByName('ID').AsString;

end

end

end;

end;

[Jhonas]

a melhor maneira seria assim... exemplo:

StatusBar1.Panels[0].Text := IBDataSet1ASSIST.Value;

no seu caso

IBDataSet1.Active := false;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(strSql);
IBDataSet1.Active := true;

StatusBar1.Panels[0].Text:= 'INC: ' + IBDataSet1data_inc.Value;
StatusBar1.Panels[1].Text:=' ALT: ' + IBDataSet1data_alt.Value;
StatusBar1.Panels[3].Text:= ' ' + IBDataSet1ID.Value;

abraço