Duvida com o banco de dados no Delphi

[edersonsergiocoelho]

unit UnitConsultaAgenda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TFormConsultaAgenda = class(TForm)
    EditNome: TEdit;
    LabelNome: TLabel;
    ADOConnectionConsultaAgenda: TADOConnection;
    DBGridConsultaAgenda: TDBGrid;
    ADOQueryConsultaAgenda: TADOQuery;
    DataSourceConsultaAgenda: TDataSource;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormConsultaAgenda: TFormConsultaAgenda;

implementation

{$R *.dfm}

procedure TFormConsultaAgenda.Button1Click(Sender: TObject);
begin
  ADOQueryConsultaAgenda.SQL.Add('Select *From Agenda Where Nome Like = ' + Quotedstr(EditNome.Text + '%'));
end;

procedure TFormConsultaAgenda.FormShow(Sender: TObject);
begin
  ADOQueryConsultaAgenda.Close;
  ADOQueryConsultaAgenda.Open;
end;

end.

[johnatanandressa]

ADOQueryConsultaAgenda.SQL.close  //tente isso...
  ADOQueryConsultaAgenda.SQL.Add('Select *From Agenda Where Nome Like = ' + Quotedstr(EditNome.Text + '%'));
ADOQueryConsultaAgenda.SQL.open; //e isso..
end;

[B]//qual o motivo desse trecho de codigo??[/B]
procedure TFormConsultaAgenda.FormShow(Sender: TObject);
begin
  ADOQueryConsultaAgenda.Close; 
  ADOQueryConsultaAgenda.Open; 
end;
end.

e verifique c você ligo os componentes do delphi com a tabela e o banco de dados...

[edersonsergiocoelho]

O motivo daquele trecho de codigo eu pois para atualizar o banco de dados porque não atualizava quando você acaba de cadastrar uma pessoa na Agenda não aparecia na tabela consulta e esse foi o unico metodo que deu... Mas ok vou testar aqui agora o que você passou ali...

É não da não cara esse codigo ae que você colocou ADOQueryConsultaAgenda.SQL.Close e Open fala não existe...

[johnatanandressa]

É não da não cara esse codigo ae que você colocou ADOQueryConsultaAgenda.SQL.Close e Open fala não existe...

como assim não exite cara???

[edersonsergiocoelho]

Da erro cara o Delphi não reconhece SQL.Close; e nem SQL.Open; entendeu agora... Sem o SQL da certo mais com ele não...

[johnatanandressa]

Da erro cara o Delphi não reconhece SQL.Close; e nem SQL.Open; entendeu agora... Sem o SQL da certo mais com ele não...

nossa cara ..nunca vi isso do delphi não reconhecer um sql.close..

você esta usando o delphi 7 não éh??

[edersonsergiocoelho]

Não cara eu to usando o Delphi 2009 da CodeGear...

[johnatanandressa]

Não cara eu to usando o Delphi 2009 da CodeGear...

então cara acho que esse problema que esta dando é incompatibilidade de codigo veio..porque no delphi 7 eu uso sempre ...e nunca deu erro..

[souldeath]

Close e Open não é um método da propriedade SQL e sim do objeto TAdoQuery, então seria assim, ex: AdoQuery.Close e AdoQuery.Open

[edersonsergiocoelho]

Então alguma sugestão ae ? para resolver isso ?

[edersonsergiocoelho]

procedure TFormConsultarAgenda.ButtonConsultarClick(Sender: TObject);
begin
  ADOQueryConsultarAgenda.Close;
  ADOQueryConsultarAgenda.SQL.Clear;
  ADOQueryConsultarAgenda.SQL.Add('Select * From Agenda Where Nome Like' + QuotedStr(EditConsultar.Text + '%'));
  ADOQueryConsultarAgenda.Open;
end;

Resolução Do Grande Problema

Aleluia...

[Mog.Lucas]

Você pode fazer algo como:

ADOQuery1.SQL.Clear;

ADOQuery1.Close;

ADOQuery1.SQL.Add('SQL AQUI');

ADOQuery1.ExecSQL;

Abraços!

[Mog.Lucas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.