REPLACE EM UM ARRAY

USUARIO.EXCLUIDOS 31/05/2005 16:11:45
#86200
Pessoal,

Boa tarde,

Teria como vcs me darem uma ajuda com uma substituição de valores em um Array???

Estou precisando substituir o valor pego por um Array para um determinado campo, que está vindo vazio ("") e substituir por 99.

Estou usando esta sintaxe com o Replace:

rsRecordset("Campo") = Replace(Array(N), "", "99")

Estou utilizando uma conexão ADODB para este Recordset.

Plataforma de desenvolvimento que estou utilizando:

Windows 98
Visual Basic 6
Banco: Access97

Grato,

Jackson Arruda
Analista/Desenvolvedor
SADA Transportes
JEAN.JEDSON 31/05/2005 16:13:14
#86202
não consegui entender sua dúvida... coloque a sub inteira para que a gente entenda o que vc quer...
USUARIO.EXCLUIDOS 31/05/2005 16:21:43
#86204
if array(n) = "" then
rsrecordset("campo") = "99"
else
rsRecordset("Campo") = Array(N)
end if
tambem nao entendi bem, é isso o que você quer ????
TRUHILLO 31/05/2005 16:25:14
#86207
Acho que é o contrário William,

if rsrecordset("campo") = "" then 
  array(n) = "99" 
else 
  array(n) = ""
end if


Se não for isso, retorne, Jackson.
USUARIO.EXCLUIDOS 31/05/2005 16:32:48
#86212
Valeu Wiliam.....é examente isto que eu estava precisando....

Abaixo transcrevo a Sub para maiores esclarecimentos:

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Private Sub GravaTblSada(ByRef ArrayGerado As Variant, _
ByRef rsArquivo As ADODB.Recordset)

'On Error GoTo Error_Handler 'Ativa a rotina de tratamento de erro

rsArquivo.AddNew
rsArquivo("Chassi") = ArrayGerado(0)
rsArquivo("CodTipo") = BuscaCodTipo(ArrayGerado(1))
rsArquivo("CodEstab") = ArrayGerado(2) 'BuscaCodEstab(ArrayGerado(2))
rsArquivo("Conhecimento") = ArrayGerado(3)
VerificaCliente ArrayGerado(4)
rsArquivo("CodCliente") = ArrayGerado(4)
rsArquivo("DtExped") = CDate(ArrayGerado(5))
rsArquivo("NotaFiscal") = ArrayGerado(6)
If (ArrayGerado(7)) = "" Then
rsArquivo("Frota") = 99
Else
rsArquivo("Frota") = Replace(ArrayGerado(7), ".", "")
End If
VerificaFrota Replace(ArrayGerado(7), ".", "")
rsArquivo("Frota") = Replace(ArrayGerado(7), ".", "")
rsArquivo("Km") = ArrayGerado(8)
If ArrayGerado(9) <> vbNullString Then rsArquivo("FreteSada") = CDbl(Replace(ArrayGerado(9), ".", ".")) + CDbl(Replace("0,00", ".", "."))
rsArquivo("CodCidade") = BuscaCodCidade(Replace(ArrayGerado(10), "'", "'"), Replace(ArrayGerado(11), "'", "'"))
If ArrayGerado(12) <> vbNullString Then rsArquivo("FreteTotal") = CDbl(Replace(ArrayGerado(12), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(13) <> vbNullString Then rsArquivo("ICMS") = CDbl(Replace(ArrayGerado(13), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(14) <> vbNullString Then rsArquivo("Seguro") = CDbl(Replace(ArrayGerado(14), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(15) <> vbNullString Then rsArquivo("Pedagio") = CDbl(Replace(ArrayGerado(15), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(16) <> vbNullString Then rsArquivo("ISS") = CDbl(Replace(ArrayGerado(16), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(17) <> vbNullString Then rsArquivo("Desconto") = CDbl(Replace(ArrayGerado(17), ".", ".")) + CDbl(Replace("0,00", ".", "."))
rsArquivo("CodDescricao") = BuscaCodDescricao(Replace(ArrayGerado(18), "'", "'"))
rsArquivo("CodModelo") = BuscaCodModelo(Replace(ArrayGerado(19), "'", "'"))
If ArrayGerado(20) <> vbNullString Then rsArquivo("VrMercadoria") = CDbl(Replace(ArrayGerado(20), ".", ".")) + CDbl(Replace("0,00", ".", "."))
If ArrayGerado(21) <> vbNullString Then rsArquivo("Pedido") = ArrayGerado(21)
If ArrayGerado(22) <> vbNullString Then rsArquivo("TipoServico") = ArrayGerado(22)
If ArrayGerado(23) <> vbNullString Then rsArquivo("TipoTransporte") = ArrayGerado(23)
If rsArquivo("CodTipo") = "TRANSFERENCIA" And _
rsArquivo("CodCidade") = "RIO DE JANEIRO" Or _
rsArquivo("CodTipo") = "LOCALIZA" And _
rsArquivo("CodCidade") = "BETIM" Then
If IsNull(rsArquivo("CodEstabV")) Then
Debug.Print "CodEstabV não foi informado"
Else
If rsArquivo("CodEstabV") = "" Then
Debug.Print "CodEstabV vazio!"
'MsgBox "Informe um valor para o campo CodEstabV"
Else
Debug.Print "CodEstabV = " & ArrayGerado(24)
End If
End If
End If
'MsgBox "CodEstabV = " & ArrayGerado(24)
rsArquivo("CodEstabV") = ArrayGerado(24) 'BuscaCodEstabV(ArrayGerado(24))
'MsgBox "Viagem = " & ArrayGerado(25)
rsArquivo("Viagem") = ArrayGerado(25)
rsArquivo.Update
Exit Sub

Error_Handler: 'Rotina de tratamento de erro
'Call Err.Raise(Err.Number, ErrSource("FrmImportar", "GravaTblSada()"), Err.Description, Err.HelpFile, Err.HelpContext)
'Err.Clear
Resume

End Sub

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
USUARIO.EXCLUIDOS 01/06/2005 08:43:37
#86318
Pessoal,

Eu comentei a chamada do módulo de tratamento de erro para fins de teste.

Esta linha é a da chamada do módulo de tratamento de erro:

Error_Handle: 'Rotinah de tratamento de erro
'Call Err.Raise (Err.Number, ErrSource("FrmImportar", "GravaTblSada()"), Err.Description, Err.HelpFile, Err.HelpContext)
'Err.Clear

Abraços

Jackson
USUARIO.EXCLUIDOS 01/06/2005 10:47:01
#86343
você ainda tem alguma duvida??
USUARIO.EXCLUIDOS 10/06/2005 14:11:07
#88258
Funcionou Wiliam.....Valeu.....

Sem dúvidas agora....Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar