reorganizar um listview

[marcia232865 0]

pessoal, como faço para reorganizar um listview, após uma inclusão, exclusão ou alteração, o requery serve para isso? se servir, para mim não funciona, tentei achar informações sobre ele mas não consegui...valeuMárcia

[cassitos 2]

o Requery atualiza o recordset, após executar o requery chame a rotina que preenche o listview novamente.

[marcia232865 0]

oi, olha eu executo o requery e chamo a rotina que preenche o listview, mas não preenche, dexa te colocar o código, ele está no form de inclusão/alteração: If rs.State = 1 Then rs.Requery 1 frmmunicipio.Preenche 'essa rotina é que preenche End If If rs.State <> 1 Then rs.Open "select muncod, munnome, munuf from municipio order by munnome", cnn rs.Requery 1 frmmunicipio.Preenche End Ifporque será que não preenche, tenho que definir denovo o: Dim NewItem As ListItem ???? que faço no formload do frmmunicipio??? bom, defini denovo mas não deu assim mesmo...

[cassitos 2]

estranho não preencher... uma vez que abriu o recordset novamente (requery é como Rs.Close depois Rs.Open SQL,Conexão)...

 

Dá algum erro?

 

Bom, posta ae o código do Preenche, e como este RS foi declarado.

 

Na inclusão você está utilizando o Execute do objeto da conexão certo?

tipo: cnn.Execute "INSERT INTO..." ou cnn.Execute "ALTER TABLE..."

 

Como teste, após você incluir ou alterar um registro abre a tabela no banco de dados e verifique se está como deveria, se não, o banco não foi atualizado neste período.

 

Edit: argh... -_- agora que vi cnn.Execute "ALTER TABLE..." no no no, é cnn.Execute "UPDATE CLIENTE..." http://forum.imasters.com.br/public/style_emoticons/default/shifty.gif

[marcia232865 0]

oi, olha acho que tá gravando normalmente, pelo que consegui ver, vou colocar o codigo do preenchimento: Private Sub Form_Load()Dim NewItem As ListItem Verifica_RS rs.Open "select muncod, munnome, munuf from municipio order by munnome", cnn ', adOpenKeyset, adLockOptimistic, adCmdText PreencheEnd SubPublic Sub Preenche()Do Until rs.EOFSet lst = munilista.ListItems.Add(, , rs("muncod"))lst.SubItems(1) = rs("munnome")lst.SubItems(2) = rs("munuf")rs.MoveNextLoop rs.CloseEnd Suba inclusão e alteração faço com 'insert into...' e 'update tabela set...'e o rs foi declarado num módulo .bas, assim: Public cnn As New ADODB.ConnectionPublic rs As New ADODB.Recordset valeu viu?marcia

[cassitos 2]

oi,

Public Sub Preenche()

Dim NewItem As ListItem

munilista.ListItems.Clear 'limpar o listview

Do Until rs.EOF

  Set lst = munilista.ListItems.Add(, , rs("muncod"))

  lst.SubItems(1) = rs("munnome")

  lst.SubItems(2) = rs("munuf")

  rs.MoveNext

Loop

rs.Close

End Sub

Limpa o listview antes de iniciar o preenchimento.

[marcia232865 0]

valeu, muito muito obrigado....

[cassitos 2]

beleza! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[luiz humberto 0]

Ok.Tópico Fechado