'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;
