Estou tentando utilizar o FDQuery
somente em tempo de execução. Já pesquisei bastante e tentei varias mudanças, porém todas elas termina com Access Violetion
, então assim sendo suspeito que o componente não está sendo instanciado corretamente. Procurei exemplos na internet pra estudar e entender meu erro, e até esse momento não achei nada que já não fiz.
Deixo aqui meu exemplo de como o código está agora, e peço por favor que alguém aponte onde está errado.
private
{ Private declarations }
public
{ Public declarations }
FDInsertForn : TFDQuery;
end;
implementation
procedure TFLancamento.EdRazaoExit(Sender: TObject);
const
SQLInsert : String = 'INSERT INTO FOR1A' + sLineBreak +
'( CNPJ,FANTASIA,RAZAO)VALUES' + sLineBreak +
'( :CN, :FANTASIA, :RAZAO)';
begin
FDInsertForn.Connection:= UDM.FDConexao;
FDInsertForn.SQL.Clear;
FDInsertForn.SQL.Add(SQLInsert);
FDInsertForn.Params.ParamByName('CN').AsString:= dado;
FDInsertForn.Params.ParamByName('FANTASIA').AsString:= EdFantasia.Text;
FDInsertForn.Params.ParamByName('RAZAO').AsString:= EdRazao.Text;
FDInsertForn.ExecSQL;
end;
Params
e fazer um Debug com Break Point mas assim que a primeira linha inicia já vem o access violetion.FDQuery
não está criado, tente adicionar esta linhaFDInsertForn := TFDQuery.Create(nil);
antes deFDInsertForn.Connection:= UDM.FDConexao;