Edit na consulta
Gostaria de saber como faço para mostrar o conteudo de uma consulta em um Edit.
Tipo no lugar de aparecer no DBGrid como normalmente aparece.
aparece em um EDIT cada campo em um edit
Agradeço desde já!
Tipo no lugar de aparecer no DBGrid como normalmente aparece.
aparece em um EDIT cada campo em um edit
Agradeço desde já!
_celo
Curtidas 0
Respostas
Ricardo.vano
14/11/2004
Utilize o seguinte:
Não estou com o Delphi aqui para testar, mas tente isso:
Se não funcionar, me avise que testo no Delphi e mando da forma correta.
Não estou com o Delphi aqui para testar, mas tente isso:
EditCampo1.Text := Query1.SQL.Add(´Select Campo1 From Tabela´); EditCampo2.Text := Query1.SQL.Add(´Select Campo2 From Tabela´);
Se não funcionar, me avise que testo no Delphi e mando da forma correta.
GOSTEI 0
Ricardo.vano
14/11/2004
Se preferir pode utilizar o DBEdit.
Fica fácil. Na propriedade DataSource de cada DBEdit coloque o DataSource desejado. O mesmo para todos.
Na propriedade DataField, coloque o campo que deverá aparecer.
Para controlar os registros, coloque um DBControls e indique o mesmo DataSource.
Fica fácil. Na propriedade DataSource de cada DBEdit coloque o DataSource desejado. O mesmo para todos.
Na propriedade DataField, coloque o campo que deverá aparecer.
Para controlar os registros, coloque um DBControls e indique o mesmo DataSource.
GOSTEI 0
Ricardo.vano
14/11/2004
Utilize o seguinte:
Não estou com o Delphi aqui para testar, mas tente isso:
Se não funcionar, me avise que testo no Delphi e mando da forma correta.
EditCampo1.Text := Query1.SQL.Add(´Select Campo1 From Tabela´); EditCampo2.Text := Query1.SQL.Add(´Select Campo2 From Tabela´);
Assim funciona:
EditCampo1.text := Query1.FieldByName(´Campo1´).AsString;
GOSTEI 0
_celo
14/11/2004
Qual seria melhor o pelo DBEdit ou via código?
Tou tentando usar o DBEdit e ta dando o seguinte erro:
Missing query, table name or procedure name.
Por que isso?
Obrigado
Tou tentando usar o DBEdit e ta dando o seguinte erro:
Missing query, table name or procedure name.
Por que isso?
Obrigado
GOSTEI 0
Bruno Belchior
14/11/2004
amigo a muito tempo utilizo todos os meus acessos a dados sem componentes nativos de dados (ou seja o DBEdit e outros DB´s da vida) e o resultado com certeza é bem satisfatório apesar de complicar um pouco na programação mas não é nada relevante... espero ter ajudado
GOSTEI 0
_celo
14/11/2004
Onde coloco a parte para o Edit receber o valor da pesquisa?
Vejam o codigo abaixo
begin
ClientDataSetEdt.Close;
ConsultaEdt:= ´select Matricula from alunos where ´;
ConsultaEdt:= ConsultaEdt + ´Matricula = ´´´+EdtMatriculaEdt.Text+´´´´;
if (EdtMatriculaEdt.Text =´´) then
MessageDlg(´Matricula inválida´, mtError,[mbOK],0)
else
begin
try
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREPEATABLEREAD;
DM.SQLConnection1.StartTransaction(Transacao);
DM.SQLQueryEdt.Close;
DM.SQLQueryEdt.SQL.Clear;
DM.SQLQueryEdt.SQL.Append(ConsultaEdt);
DM.SQLQueryEdt.Open;
DM.SQLConnection1.Commit(Transacao);
except
on Exc:Exception do
begin
ShowMessage(´Ocorreu um erro na consulta: ´ + Exc.Message);
DM.SQLConnection1.Rollback(Transacao);
end; //do except
end; //do try
end; //do if
ClientDataSetEdt.open;
end;
Vejam o codigo abaixo
begin
ClientDataSetEdt.Close;
ConsultaEdt:= ´select Matricula from alunos where ´;
ConsultaEdt:= ConsultaEdt + ´Matricula = ´´´+EdtMatriculaEdt.Text+´´´´;
if (EdtMatriculaEdt.Text =´´) then
MessageDlg(´Matricula inválida´, mtError,[mbOK],0)
else
begin
try
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREPEATABLEREAD;
DM.SQLConnection1.StartTransaction(Transacao);
DM.SQLQueryEdt.Close;
DM.SQLQueryEdt.SQL.Clear;
DM.SQLQueryEdt.SQL.Append(ConsultaEdt);
DM.SQLQueryEdt.Open;
DM.SQLConnection1.Commit(Transacao);
except
on Exc:Exception do
begin
ShowMessage(´Ocorreu um erro na consulta: ´ + Exc.Message);
DM.SQLConnection1.Rollback(Transacao);
end; //do except
end; //do try
end; //do if
ClientDataSetEdt.open;
end;
GOSTEI 0
Ricardo.vano
14/11/2004
Está dando erro com o DBEdit porque a Query da consulta deve ter pelo mesno um parâmetro SQL. No Object Inspector, procure a propriedade SQL e insira o seguinte:
Select * From TABELA
Pronto. O DBEdit deverá funcionar!
Select * From TABELA
Pronto. O DBEdit deverá funcionar!
GOSTEI 0
_celo
14/11/2004
Valew cara funcionou legal. Mas agora tou com outro problema é que naum consigo mostrar a data de cadastro. No Banco é do tipo date. Como faço pra aparecer no BDEdit?
Agradeço desde já!
:)
Agradeço desde já!
:)
GOSTEI 0
Ricardo.vano
14/11/2004
No DBEdit tem que mostrar o valor do registro normalmente. Todos os outros DBEdits estão funcionando?
Verifique o campo DataField do DBEdit. Ele deve ter o nome do campo da tabela.
Verifique o DataSource do DBEdit. Ele deve apontar para o DataSource correto.
E verifique a query. Ela deve ter a propriedade Active = True.
Que componentes está usando? Qual o banco de dados?
Verifique o campo DataField do DBEdit. Ele deve ter o nome do campo da tabela.
Verifique o DataSource do DBEdit. Ele deve apontar para o DataSource correto.
E verifique a query. Ela deve ter a propriedade Active = True.
Que componentes está usando? Qual o banco de dados?
GOSTEI 0