REDIM PRESERVE

MAUMAU 30/03/2010 11:53:14
#338212

Dim Arquivos() As String
Dim ContaArq As Integer

for contaarq = 1 to 10
ReDim Preserve Arquivos(ContaArq)
Arquivos(ContaArq - 1) = [Ô]Texto [Ô] & contaarq
next

MARCELOFAZAN 30/03/2010 12:01:46
#338214

olá vlw a postagem

Dim i As Integer
Dim vetor As Variant
vetor = Split(Text4.Text)
For i = LBound(vetor) To UBound(vetor)
Text2.Text = vetor(i)
Next

com esse codigo ......... o que aparece no text4 = codigo 2
eu consigo colocar ele no text2 = codigo 2 quer dizer que busquei

mais preciso substituir o text2 = pelo nome Marcelo
ao inves de codigo 2
isso sem necessitar de conexao

saberes algo relativo a esse assunto de fazer esse vetor
o valor do nome nao está no text2 ........ preciso colocar dentro dele o nome consultando a base access

quem puder ajudar
Abraços

MARCELO.TREZE 30/03/2010 15:45:35
#338258 Resposta escolhida

Chará, como está o texto no Text4? poste um exemplo.

e como estão os campos no banco de dados, qual o campo usado para consulta?

MARCELOFAZAN 30/03/2010 16:34:24
#338274

olá Marcelo , obrigado a atencao felismente
um amigo do forum me deu umas dicas em off e foi resolvido de outra maneira

o conteudo do text4 é

Dim nId As Integer
nId = objIndexSearch.UserID
Text4.Text = CStr(nId)

esse text4 ele carrega o Id do reconhecimento do Hamster II biometria

mais ai foi resolvido com ,

DBEngine.CreateWorkspace
OpenDatabase

nao precisou usar o redim preserve

Obrigado atencao de todos