Ir para o conteúdo

Publicidade

 Estatísticas do Fórum

  • 0 Usuários ativos

    0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

Foto:

[0x0005]: Operation Not Supported

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

#1 Thiago Delalibera

Thiago Delalibera
  • Membros
  • 184 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

#2 Robson Lima Costa

Robson Lima Costa
  • Membros
  • 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>