Saludos:
Estoy trabajando con un Script que entra en una tabla de una base de datos. Busco un número en la columna principal ( el número lo tiene la variable Num ) y cuando encuentra la fila con ese número saca el resto de datos de esa fila.
Mediante MsgBox compruebo por donde pasa el programa y el valor que tiene la columna primaria "Número" y el valor de la variable Num.
Código vb:
Ver originalnum=form1.numero.options.value
form1.progressivo.value = num
msgbox("1")
<%rs4.movefirst %>
<%while not rs4.eof%>
msgbox(num)
msgbox(<%=rs4("numero")%>)
<% if (CInt(rs4("numero")) = (CInt(num))) then%> <!-- El puto error de tipos -->
<!-- form1.datareg.value = "<%=CDate(rs4("Data_Reg"))%>" -->
msgbox ("3")
form1.utenti.value = "<%=rs4("Utente_Reg")%>"
form1.cliente.value = "<%=rs4("Cliente")%>"
form1.indirizzo.value = "<%=rs4("Indirizzo")%>"
form1.tel.value = "<%=rs4("Contatto")%>"
form1.problemi.value = "<%=rs4("tipo_problema")%>"
form1.hardware.value = "<%=rs4("hardware")%>"
form1.modello.value = "<%=rs4("Modello")%>"
form1.serial.value = "<%=rs4("Serial")%>"
form1.note_hardware.value = "<%=rs4("Descr_HW")%>"
form1.cavoA.value = "<%=rs4("Cavo_Alim")%>"
form1.cavoU.value = "<%=rs4("Cavo_USB")%>"
form1.mouse.value = "<%=rs4("Mouse")%>"
form1.tastiera.value = "<%=rs4("Tastiera")%>"
form1.schermo.value = "<%=rs4("Schermo")%>"
form1.borsa.value = "<%=rs4("Borsa")%>"
form1.materiale.value = "<%=rs4("Note_Materiale")%>"
form1.garanzia.value = "<%=rs4("In_Garanzia")%>"
<% end if %>
<% rs4.movenext %>
<%wend%>
El por qué de este post, es que llega un momento que el valor de Num y de la columna es el mismo, pero no consigue entrar en el IF ( y por consecuencia, no muestra el MsgBox ("3") en pantalla.
PRUEBAS
-Pongo el Cint en la variable recordset y en la variable Num porque sino me da error de tipos. hay un momento que los 2 msgbox encima del if marcan el mismo valor pero no entra al IF
-El código interno del IF puede que tenga algún error ( todavía no está mirado ) pero eso no es motivo para que no entre en el IF
Código vb:
Ver original<% if rs4("numero") = num then%> Error de tipos
<% if rs4("numero") = 10 then %> Error de tipos
<% if rs4("numero") = "10" then %> Funciona. Pasa algunos datos de la fila 10 al formulario
<% if (CInt(rs4("numero")) = (CInt(num))) then%> No me marca error de tipos, pero no me muestra el "3" del MsgBox y tampoco pasa los datos
<% if (CStr(rs4("numero")) = (CStr(num))) then%> Sucede lo mismo que con CInt
<% if CInt(rs4("numero")) = CStr(num) then%> Sucede lo mismo que las 2 lineas anteriores
Gracias