EDITAR ITEM DE COLLECTION
Estou tentando editar um item de uma collection, mas da erro.
Estou tentando assim:
Campos(x)([Ô]VALOR_CAMPO[Ô]) = [Ô]ABC[Ô]
Qual é a forma correta ?
Grato
Campos e a Collection, X é o indice.
VALOR_CAMPO é a chave?
[txt-color=#0000f0]Campos(x).VALOR_CAMPO = [Ô]ABC[Ô][/txt-color]
Pelo jeito não é possÃvel
Citação:Public Function cboItens() As Collection
Dim rsItem As ADODB.Recordset
Dim item As Collection
Dim dados As New Collection
Dim i As Integer
If ConexaoAtiva.State = 1 Then
Sql = [Ô][Ô]
Sql = [Ô]SELECT KEY_PRODUTO, TITULO_PRODUTO, DESCRICAO_PRODUTO, VALOR_PRODUTO[Ô]
Sql = Sql & [Ô] FROM TBL_PRODUTO[Ô]
[ô]
Set rsItem = New ADODB.Recordset
rsItem.CursorLocation = adUseClient
rsItem.Open Sql, ConexaoAtiva, adOpenDynamic, adLockOptimistic
[ô]
If rsItem.RecordCount > 0 Then
i = 1
For i = 1 To rsItem.RecordCount
Set item = New Collection
[ô]
item.Add [Ô][Ô] & rsItem([Ô]KEY_PRODUTO[Ô]), [Ô]KEY_PRODUTO[Ô]
item.Add [Ô][Ô] & rsItem([Ô]TITULO_PRODUTO[Ô]), [Ô]TITULO_PRODUTO[Ô]
item.Add [Ô][Ô] & rsItem([Ô]DESCRICAO_PRODUTO[Ô]), [Ô]DESCRICAO_PRODUTO[Ô]
item.Add [Ô][Ô] & rsItem([Ô]VALOR_PRODUTO[Ô]), [Ô]VALOR_PRODUTO[Ô]
[ô]
dados.Add item
Set item = Nothing
[ô]
rsItem.MoveNext
Next
End If
[ô]
rsItem.Close
Set rsItem = Nothing
End If
[ô]
[ô]SOMENTE PARA TESTE ################################
debug.print dados(1)([Ô]VALOR_PRODUTO[Ô]) [ô]<--- funciona
dados(1)([Ô]VALOR_PRODUTO[Ô]) = [Ô]ABC[Ô] [ô]<-- DA ERRO
[ô]
Set cboItens = dados
Set dados = Nothing
End Function
Ai esta o erro
Citação:
Numero= 438
Descricao=O objeto não aceita esta propriedade ou método
Eu acredito que você não pode editar desta forma. veja.
How to: Add, Delete, and Retrieve Items of a Collection
http://msdn.microsoft.com/en-us/library/f26wd2e5(v=vs.90).aspx
Anexei alguns testes que eu fiz. Existem alguns forms dentro do exemplo anexo. Veja o [Ô]form3[Ô] (o seu) e o que eu estava fazendo um [Ô]sort[Ô]: [Ô]frmTesteCollection.frm[Ô].
Precisa muda na [Ô]Public Sub main()[Ô] para inicializar um formulário ou o outro, okay?
[][ô]s,
Tunusat.
TUNUSAT agradeço o retorno
Também acho que não é possivel.
Mas o download não esta funcionando (Caminho inválido C:\Data\domains\vbmania.com.br\filespub\436663), se puder disponibilizar de outra forma agradeço.
Agradeço aos colegas que responderam