DKUniSoft
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день Есть скрипт procedure ButtonClick(Sender: TButton); //var Qry: TFDQuery; var Cmd: String; var SList: TStringList; begin ShowMessage(Sender.Name); SList := TStringlist.Create; try Cmd := 'Select * from S_Clients'; Qry.SQL.Text := Cmd; Qry.Open; Qry.First; ShowMessage(Qry.FieldByName('CltName').AsString); Cmd := 'Select * from R_Reports'; CmdEx.SQL.Text := Cmd; CmdEx.Open; while not Qry.Eof do begin SList.Add(Qry.FieldByName('CltName').AsString); Cmd := 'Insert into R_Reports(Name) Values(QuotedString(Qry.FieldByName("CltName").AsString));'; CmdEx.SQL.Text := Cmd; CmdEx.ExecSQL(Cmd); //CmdEx.Insert; //CmdEx['Name'] := Qry.FieldByName('CltName').AsString; //CmdEx.Post; Qry.Next; end; Qry.Last; CmdEx.Close; ShowMessage(Qry.FieldByName('CltName').AsString); SList.SaveToFile('D:\0001.txt'); Qry.Close; finally SList.Free; end; f.ModalResult := mrOk; end; Но программа ругается что нет такого метода, ExecSQL. В программе я зарегистрировал сл. классы: fsScript1.AddClass(TFDDataSet,'TDataSet'); fsScript1.AddClass(TFDAdaptedDataSet,'TFDDataSet'); fsScript1.AddClass(TFDRdbmsDataSet,'TFDAdaptedDataSet'); fsScript1.AddClass(TFDCustomQuery,'TFDRdbmsDataSet'); fsScript1.AddClass(TFDQuery,'TFDCustomQuery'); fsScript1.AddObject('Qry',Qry); fsScript1.AddObject('CmdEx',CmdEx); Даже CmdEx['Name'] не работает, ругает нет свойства по умолчанию для TFDQuery. В чем может быть проблема? |