Conexão ADO + Delphi 7 ( retorno da tabela)
Bom dia galera,
Sou novo aqui no Fórum e comecei agora com programação em Delphi e SQL...
Seguinte, tenho um banco de dados e preciso realizar algumas consultar nele para retornar nos meus Edits no Evento Click do Botão.
Qual a sintaxe correta levanto em conta as conversões para String já?
Preciso fazer tudo isso? (Não esta completo o código)
procedure TForm2.Button1Click(Sender: TObject);
begin
//Fecha a Query
dm_dados.ADOPRO_PRODUTO.Close;
dm_dados.ADOEMP_PESSOA.Close;
dm_dados.ADOPDV_EMBALAGEM.Close;
dm_dados.ADOPDV_EMBALAGEMITEM.close;
dm_dados.ADOSUL_ETQEXPEDICAO.Close;
//Limpar o conteúdo da propriedade SQL
dm_dados.ADOPRO_PRODUTO.SQL.Clear;
dm_dados.ADOEMP_PESSOA.SQL.Clear;
dm_dados.ADOPDV_EMBALAGEM.SQL.Clear;
dm_dados.ADOPDV_EMBALAGEMITEM.SQL.Clear;
dm_dados.ADOSUL_ETQEXPEDICAO.SQL.Clear;
dm_dados.ADOPRO_PRODUTO.SQL.Add('select * from pro_produto where pro_codigo ='+quotedstr(Edit1.Text));
Edit2.Text:=dm_dados.ADOPRO_PRODUTOPRO_Descricao.Text;
dm_dados.ADOPRO_PRODUTO.Open;
Só que por exemplo..
tenho a tabela SUL_ETQEXPEDICAO e preciso que seje adicionado o código da pesquisa da Tabela PRO_PRODUTO e o CNPJ da Tabela EMP_PESSOA..tem como?
Se não fui muito claro, me avisem.. meu primeiro post em Forum!
Obrigado desde já!
Discussão (9)
Carregando comentários...