Ajuda!

[VicFalMac]

Como fazer para corrigir o erro Data Type Mismatch, sem que apareça o erro Missing Operator in 'Codigo=', neste exemplo:

Dim i, numero, SQL, rec, con

numero = Request.Form("QtdeNomes")

Dim vcodigo()

Dim vnome()

Redim vcodigo(numero)

Redim vnome(numero)

Dim SQL

For i=1 to numero

SQL = "Update Tabela Set "

SQL = SQL & "Nome= '" & vnome(i) "' "

SQL = SQL & "Where Codigo = '" & vcodigo(i) & "' "

Set rec = con.execute(SQL)

Set rec= nothing

Next

'Lembrando q a conexao já foi aberta eu uso um BD em ACCESS.

[dark0]

ele ta dando erro, porque a variavel que você esta comparando no WHERE não tem valor.

veja se a variavel vcodigo tem algum valor..

parece um vetor.. é um?

seus dados vem de onde?

[bareta]

SQL = SQL & "Where Codigo = '" & vcodigo(i) & "' "

daonde vem o valor dessa variavel???

[Bicicleta]

Kara, você declarou errado!

Olha:

Dim vcodigo()

Dim vnome()

Redim vcodigo(numero)

Redim vnome(numero)

Troque por isso:

Dim vcodigo(numero)

Dim vnome(numero)

Use redim somente qd você precisar redimensionar o Array...

Redim Preserve para redimensionar e preservar os dados!!!

E se o campo Codigo for do tipo numero, então tire as aspas simples da condição... Troque:

SQL = SQL & "Where Codigo = '" & vcodigo(i) & "' "

por:

SQL = SQL & "Where Codigo = " & vcodigo(i) & ""

E seu For está errado! Note: For i=1 to numero

O array inicia em 0, então faça assim: For i = 0 to numero-1

E mais uma coisa, no cod q você postou, você não está colocando dados dentro desse array, então vai dar erro se você não alimentá-lo

[]s

[VicFalMac]

Obrigado a todos pela ajuda....

A parte do

Dim nome()

Redim (numero)

Está correta, pois de outra forma não funciona.....

[ar_ctjd]

Como assim?