Nao consigo fazer pesqisas com ADOQuery

[wandersonbraz]

boa tarde galera estou aqui pedindo sua ajuda pois nao consigo fazer pesquisas usando adoquery toda vez que executo o programa que mando pesquisar da erros estou mandando minha unit para vocês verem

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

DBGrid1: TDBGrid;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM dados WHERE data_preenchimento LIKE ' + Edit1.Text + '%' );

ADOQuery1.open;

end;

end.

fico no aguardo de sua ajuda

[danielrdp]

O ADO vale para vários bancos de dados, você tem que falar qual você está usando. Depende da sintaxe que o banco de dados exige.

Mas vou dar duas possibilidades:

usar o QuotedStr para colocar o parametro entre aspas:

+QuotedStr(Edit1.Text + '%')+

E outra: O Operador like funciona para strings, se o campo data_preenchimento não for string o banco de dados tem que converter para string, para alguns bancos de dados você tem fazer isso explicitamente usando algo como Cast ou convert.

Se você quiser consultar todos de um certo mês pode-se usar o BETWEEN ou como eu faço: 'YEAR(data_preenchimento)*100+MONTH(data_preenchimento) ='+Edit1.text

No edit1 você coloca 201109 Ano seguido do mês.

[wandersonbraz]

Caro amigo o banco que uso e um MSacess o campo esta como texto tirei esta print do erro e sempre o mesmo ja tentei de varias formas mas nunca deu certo as pesquisas