Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...