Conexão FireDAC
Caros estou tentando fazer uma conexão de uma tabela utilizando o FireDac e o Mysql, a conexão do banco de dados, sql e datasource estão normais, mais quando chamo o form o mesmo me retorna tela de violação de acesso, não permitindo eu incluir ou consultar qualquer registro. Mesmo quando coloco apenas para consulta o comando DM_Principal.SQL_Medidas.Open; no form. Alguém poderia me dar uma dica.
Djean Figueira
Curtidas 0
Respostas
William
14/03/2015
Verifique se o seu Data Module está sendo criado depois do formulário em tempo de execução.
GOSTEI 0
Djean Figueira
14/03/2015
Valeu William, eu estou com um dataset, e um TADQuery em data module e conectado ao banco, aparece os registros no form em edição, quando compilo o mesmo não abre no form, me retornando o erro. Segue trecho eu chamando o form. Faz um tempo que não programo e não utilizei ainda o FireDac.
/chamar o form medidas
if F_CAME = nil then
begin
F_CAME := TF_CAME.Create(Self);
F_CAME.ShowModal;
End;
/Form medidas
procedure TF_CAME.FormCreate(Sender: TObject);
begin
DM_Principal.SQL_Medidas.Open();
end;
procedure TF_CAME.txt_buscaKeyPress(Sender: TObject; var Key: Char);
begin
// Fazer pesquisa
if Key = #13 then
begin
with DM_Principal.SQL_Medidas do
begin
Open(); //Estava close;
// SQL.Clear;
SQL.Add('select * from cb008');
SQL.Add('where cb008_medida like :medida');
ParamByName('medida').Value := txt_busca.Text + '%';
Open;
if RecordCount =0 then
ShowMessage('Registro não localizado!');
end;
end;
end;//Fim do Key press
Mais uma vez obrigado.
/chamar o form medidas
if F_CAME = nil then
begin
F_CAME := TF_CAME.Create(Self);
F_CAME.ShowModal;
End;
/Form medidas
procedure TF_CAME.FormCreate(Sender: TObject);
begin
DM_Principal.SQL_Medidas.Open();
end;
procedure TF_CAME.txt_buscaKeyPress(Sender: TObject; var Key: Char);
begin
// Fazer pesquisa
if Key = #13 then
begin
with DM_Principal.SQL_Medidas do
begin
Open(); //Estava close;
// SQL.Clear;
SQL.Add('select * from cb008');
SQL.Add('where cb008_medida like :medida');
ParamByName('medida').Value := txt_busca.Text + '%';
Open;
if RecordCount =0 then
ShowMessage('Registro não localizado!');
end;
end;
end;//Fim do Key press
Mais uma vez obrigado.
GOSTEI 0
Thiago Santana
14/03/2015
Tenta colocar um brackpoint nessa parte do código e vê se chega até esse ponto:
O erro pode estar no momento da criação do DM_Principal!
Você pode alterar quem deve ser criado no Menu Project - Options (Shift + Crtl + F11)
O seu DM_principal deverá está antes do formulário!
DM_Principal.SQL_Medidas.Open();
O erro pode estar no momento da criação do DM_Principal!
Você pode alterar quem deve ser criado no Menu Project - Options (Shift + Crtl + F11)
O seu DM_principal deverá está antes do formulário!
GOSTEI 0
Djean Figueira
14/03/2015
Valeu Thiago.
GOSTEI 0