[0x0005]: Operation Not Supported

[Thiago Delalibera 1]

Galera eu preencho um ListView com campos do meu banco de dados MySql, criei uma rotina de consulta que vai o seguinte código:

 

procedure TFormPesqContribuinte.dbPesquisaKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

ListView.Items.Clear;

DM.Query.Active:=False;

DM.Query.SQL.Clear;

DM.Query.SQL.Append('SELECT cod_contribuinte, ie, razaosocial FROM tbl_contribuintes WHERE razaosocial LIKE :Pesquisa');

DM.Query.ParamByName('Pesquisa').Value:='%'+dbPesquisa.Text+'%';

DM.Query.Open;

DM.Query.First;

 

while not Dm.Query.Eof do

begin

ListItem := ListView.Items.Add;

ListItem.Caption:=DM.Query.FieldByName('ie').Value;

ListItem.SubItems.Add(DM.Query.FieldByName('razaosocial').Value);

DM.Query.Next;

end;

if DM.Query.RecordCount > 0 then

Listview.ItemIndex := 0;

end;

 

---

É retornado este erro, [0x0005]: Operation Not Supported, porém a pesquisa é filtrada com sucesso :S e ai???

abraço e obrigado!

 

ps: meu datamodule tem um sqlconnection e um query do dbexpress..

[Robson Lima Costa 0]

fiz um teste em um programa que estou fazendo...a unica diferença que coloquei é as querys.asstring...veja se funciona....

 

var

ListItem: TListItem;

 

begin

dmport.qry_docas_reservadas.First;

while not dmport.qry_docas_reservadas.Eof do

begin

 

ListItem := L.Items.Add;

ListItem.Caption := (dmport.qry_docas_reservadas.FieldByName('doca_1').AsString);

ListItem.SubItems.Add(dmport.qry_docas_reservadas.FieldByName('doca_1').AsString);

dmport.qry_docas_reservadas.next;

end;

 

 

 

Galera eu preencho um ListView com campos do meu banco de dados MySql, criei uma rotina de consulta que vai o seguinte código:

 

procedure TFormPesqContribuinte.dbPesquisaKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

ListView.Items.Clear;

DM.Query.Active:=False;

DM.Query.SQL.Clear;

DM.Query.SQL.Append('SELECT cod_contribuinte, ie, razaosocial FROM tbl_contribuintes WHERE razaosocial LIKE :Pesquisa');

DM.Query.ParamByName('Pesquisa').Value:='%'+dbPesquisa.Text+'%';

DM.Query.Open;

DM.Query.First;

 

while not Dm.Query.Eof do

begin

ListItem := ListView.Items.Add;

ListItem.Caption:=DM.Query.FieldByName('ie').Value;

ListItem.SubItems.Add(DM.Query.FieldByName('razaosocial').Value);

DM.Query.Next;

end;

if DM.Query.RecordCount > 0 then

Listview.ItemIndex := 0;

end;

 

---

É retornado este erro, [0x0005]: Operation Not Supported, porém a pesquisa é filtrada com sucesso :S e ai???

abraço e obrigado!

 

ps: meu datamodule tem um sqlconnection e um query do dbexpress..