Ir para conteúdo

Publicidade

 Estatísticas do Fórum

  • 0 Usuários ativos

    0 membros, 0 visitantes, 0 membros anônimos

Foto
- - - - -

[0x0005]: Operation Not Supported

  • Por favor, faça o login para responder
1 resposta neste tópico

#1 Thiago Delalibera

Thiago Delalibera
  • Members
  • 183 posts

Postado 05 março 2009 - 09:47

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..
  • 0

Publicidade

#2 Robson Lima Costa

Robson Lima Costa
  • Members
  • 73 posts

Postado 06 março 2009 - 10:43

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..


  • 0




Publicidade

/ins>