Dbmemo Não Visualiza....

[Guest José Da Silva]

Caros Amigos,

A pergunta que se segue pode parecer despropositada, mas já li em tudo o que podia e não consigo uma solução.

Estou usando DBExpress para aceder ao meu MySQL e ate aí tudo bem. Consigo fazer updates, etc., mas quando se trata de visualizar no DBMemo o resultado do Query (ex: SELECT * FROM gratificados), as coisas ficam pretas. Gostaria de visualiza todos os campos da tabela , neste caso "gratificados", no meu DBmemo. No meu procedure TForm1.BitBtn1Click(Sender: TObject); tenho -

SQLQuery1.Active := False;

SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Add(''+DBBox1.Text+''); //aqui no DBBox tenho "SELECT * FROM gratificados"

SQLQuery1.ExecSQL;

Agora como visualizar o resultado todo no DBMemo? Estou usando Delphi7 e estou começando no DELPHI

está difícil... mas na desisto.

Pode ser que a solução tenha já sido postada aqui, mas li bastante e na encontrei...

Abraço a todos

José

Maputo - maiorçambique

[fernando_vip]

Olá amigo

Dá uma olhada neste tópico, acho que vai te ajudar:

h

ttp://scriptbrasil.com.br/forum/index.php?showtopic=89988

Falow

[Guest Visitante]

Alo Fernando,

Feliz por te conhecer.

O tópico estava bom mas, correndo o risco de ser irritante, não me ajudou por completo. Como faço para passar todo o resultado para o meu DBMemo? Da para ajudar?

Fica bem

Jose

Maputo- maiorçambique

[fernando_vip]

Olá,

Como tmb sou iniciante não tenho aquela receita de bolo, mas tem um tópico aqui no forum que me ajudou bastante eis ele:

http://scriptbrasil.com.br/forum/index.php?showtopic=89988

falow

[Guest Visitante]

Boa noite Fernando.

Este link que me mandastes é igual ao outro. Basta eu saber como visualizar toda a informação da tabela (MySQL), para o meu DBMemo (ou outro qualquer), apanho o algoritmo e a ideia....

Fica bem companheiro

Jose

Maputo , maiorçambique

[fernando_vip]

Beleza mano,

Infelizmente está fora das minhas capacidades, contudo vou pesquisar caso eu descubra antes de você postarei aqui bele??

falow

[Micheus]

Consigo fazer updates, etc., mas quando se trata de visualizar no DBMemo o resultado do Query (ex: SELECT * FROM gratificados), as coisas ficam pretas. Gostaria de visualiza todos os campos da tabela , neste caso "gratificados", no meu DBmemo. No meu procedure TForm1.BitBtn1Click(Sender: TObject); tenho -

SQLQuery1.Active := False;

SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Add(''+DBBox1.Text+''); //aqui no DBBox tenho "SELECT * FROM gratificados"

SQLQuery1.ExecSQL;

Agora como visualizar o resultado todo no DBMemo?

Jose, apena um comentário: você não poderá utilizar ExecSQL para retornar linas de um SELECT, neste caso tem que utilizar Open; Do help sobre ExecSQL:

"To execute a query at runtime, use one of the following methods:

- Open executes a query that returns a result set, such as SELECT.

- ExecSQL executes a query that does not return a result set, such as INSERT, UPDATE, or DELETE.

Note: If you do not know at design time whether a query will return a result set at run time, code both types of query execution statements in a try...except block. Put a call to the Open method in the try clause, and put the ExecSQL method in the except clause. To avoid executing a statement twice (for example, in the case of an empty result set), check for an exception of type ENoResultSet before executing the ExecSQL method in the except clause."

você irá colocar, para cada linha retornada, os campos um após o outro? Posso perguntar porque colocá-lo em um DBMemo?

Vou exemplificar esta forma que entendi, utilizando um TMemo e utilizando a dica do help. Caso você utilize um DBMemo para armazenar o resultado em uma tabela, o correto seria utilizar o nome do campo associado a ele, ao invés de utilizar a propriedade Lines.

procedure TForm1.Button4Click(Sender: TObject);
var
  Idx :Integer;
  Resultado :string;
begin
  try
    SQLQuery1.Open;  // executa comandos SELECT
    Memo1.Lines.Clear;
    while not SQLQuery1.EOF do
    begin
      for Idx := 0 to SQLQuery1.FieldCount -1 do
        Resultado := Resultado +', ' +SQLQuery1.Fields[Idx].AsString;
      Memo1.Lines.Add(Resultado);
      SQLQuery1.Next;
    end;
    SQLQuery1.Close;
  excep
    SQLQuery1.ExecSQL;  // executa comandos UPDATE, DELETE, ...
    ...
  end;
end;

Abraços

[Guest Visitante]

Boa Noite Micheus,

Quero agradecer o seu auxilio e, desde já sauda-lo pela forma desinteressada como me ajudou. Entendi a explicação e de facto você tem razão. Funcionou!!!

Gostaria, sem querer tornar-me uma espécie "grudento", poder contar com suas futuras colaborações. Se puder envie-me o seu email para jxfdasilva@yahoo.com

Fica bem companheiro.

José

Mozambique

P.S. isto não significa que irei abandonar o Fórum, pelo contrario...

[Micheus]

Quero agradecer o seu auxilio e, desde já sauda-lo pela forma desinteressada como me ajudou. Entendi a explicação e de facto você tem razão. Funcionou!!!

Que bom.

...

P.S. isto não significa que irei abandonar o Fórum, pelo contrario...

prefiro esta opção por esses motivos:

- não fico na obrigação de responder - já verifico meu e-mail poucas vezes por semana;

- há outros colegas aqui que poderão lhe ajudar;

- e outros colegas poderão aprender com suas dúvidas.

Abraços

[Guest Visitante]

Caro Micheus,

Entendo a sua posição e respeito-a. Espero que não me tenha entendido mal e, se assim for, os meus pedidos de desculpa a todo os amigos do Forum e a si em especial. Claro que irei continuar a participar e, com ajuda de todos e a minha inclusive, contribuir para a comunidade Delphiana. Um bem-haja a todos.

Aquele abraço

De África

Maputo, Mozambique

[Guest Visitante]

Viva Amigos,

Gostaria de deixar a minha primeira contribuição - pode ser que já tenha havido - mas, como custou-me muitas horas de leitura, aqui vai....

Para obter uma saída ordenada , arranjei uma pequena solução. Pode ate não ser a melhor ou mais vistosa, mas funcionou em pleno. Aqui vai o exemplo:

//Resultado := Resultado +' ' +SQLQuery1.Fields[idx].AsString+ ' ';

Resultado := SQLQuery1.FieldByName('Numero').AsString + ' ';

{ Repete para todos os campos que quisermos. }

Resultado := Resultado + SQLQuery1.FieldByName('Hora_In').AsString + ' ';

Resultado := Resultado + SQLQuery1.FieldByName('Hora_Out').AsString + ' ';

Resultado := Resultado + SQLQuery1.FieldByName('Data').AsString + ' ';

Resultado := Resultado + SQLQuery1.FieldByName('Instituicao').AsString + ' ';

Resultado := Resultado+ SQLQuery1.FieldByName('Pagamento').AsString + ' ';

Resultado := Resultado + SQLQuery1.FieldByName('Nome').AsString;

//O resto fica tudo igual

Espero desta forma ter contribuído, para mitigar algumas dificuldade para os novatos como eu em Delphi.

Aquele abraço companheiros

José

Mozambique