[Resolvido] , outra vez

[duarte69 0]

Boas, desculpem estar sempre a pedir ajuda, mas não conheço mais ninguém que perceba de VB e ligações a bases de dados.

 

Desta vez o erro é o seguinte:

 

"Tipo de dados incorrectos na expressão ou critérios"

 

O código é o seguinte:

 

If TipoDeProduto = "ee" Then

rs2!zona = 1

Do

line = Int((2 * Rnd) + 1)

column = Int((20 * Rnd) + 1)

floor = Int((3 * Rnd) + 1)

rsverificar.Close

rsverificar.Open "SELECT * FROM Armazém WHERE (zona = 1) and (linha = '" & line & "') and (coluna ='" & column & "') and (andar='" & floor & "')", cn, 3, 3

If rsverificar.EOF Then

rs2!linha = line

rs2!coluna = column

rs2!andar = floor

End If

Loop Until (rsverificar.EOF)

End If

 

 

Dá erro na linha a bold, o estranho é que ele aceita o primeiro registo, mas depois já não aceita mais nenhum, começa a dar este erro, poderá ser das variáveis? do random?

 

Todos os campos da SQL na bd são do tipo numérico, as variáveis line, colomn e floor estão declaradas como inteiras.

 

 

Cumps

[scorpio 7]

Todos os campos da SQL na bd são do tipo numérico, as variáveis line, colomn e floor estão declaradas como inteiras.

Se são do tipo numérico não precisa colocar '(apóstrofo)

"SELECT * FROM Armazém WHERE (zona = 1) and (linha = " & line & ") and (coluna =" & column & ") and (andar=" & floor & ")"

 

 

Flw

[]'s

[Mário Monteiro 179]

quais campso sao numericos e quais sao texto?

 

isso fará com que seus valores tenham ou nao aspas

[duarte69 0]

Boas,

 

 

Era isso mesmo, mais uma vez obrigado pela ajuda.

 

Cumps

[Mário Monteiro 179]

De nada abraços