Boton de Busqueda ingresando texto
Publicado por Rodrigo (2 intervenciones) el 29/09/2010 23:50:15
HOla:
Tengo un problema que sé que uds me van a resolver al instante ....
La idea es buscar en una Página de access( que voy a ver luego en Mozilla o IE ) el registro asociado a un campo (nombre del proyecto con el ID "proyecto") y mi problema es que me basé en un ejemplo que comparaba numeros ....la pregunta es .. cómo sería esto si quiero buscar un String dentro del campo que también es Texto???
Acá el código:
<SCRIPT language=vbscript for=BUSCAR event=onclick>
<!--
Dim rs
Set rs = MSODSC.DataPages(0).Recordset.Clone
On error resume next
rs.find "proyecto=" & CStr(inputbox("Ingrese el nombre del proyecto a buscar","Buscar"))
If (err.number <> 0) Then
Msgbox "Error: " & err.number & " " & err.description,,"Búsqueda Inválida"
Exit Sub
End If
' Check search results for success.
If (rs.bof) or (rs.eof) Then
Msgbox "Proyecto no encontrado",,"Search Done"
Exit Sub
End If
MSODSC.DataPages(0).Recordset.Bookmark = rs.Bookmark
-->
</SCRIPT>
Si pongo puros numeros... no hay problema ... pero si pongo texto a buscar .. me tira el error 3001 ...
Espero sus increíbles respuestas, por que de esta página he aprendido demasiado.
Saludos!
Tengo un problema que sé que uds me van a resolver al instante ....
La idea es buscar en una Página de access( que voy a ver luego en Mozilla o IE ) el registro asociado a un campo (nombre del proyecto con el ID "proyecto") y mi problema es que me basé en un ejemplo que comparaba numeros ....la pregunta es .. cómo sería esto si quiero buscar un String dentro del campo que también es Texto???
Acá el código:
<SCRIPT language=vbscript for=BUSCAR event=onclick>
<!--
Dim rs
Set rs = MSODSC.DataPages(0).Recordset.Clone
On error resume next
rs.find "proyecto=" & CStr(inputbox("Ingrese el nombre del proyecto a buscar","Buscar"))
If (err.number <> 0) Then
Msgbox "Error: " & err.number & " " & err.description,,"Búsqueda Inválida"
Exit Sub
End If
' Check search results for success.
If (rs.bof) or (rs.eof) Then
Msgbox "Proyecto no encontrado",,"Search Done"
Exit Sub
End If
MSODSC.DataPages(0).Recordset.Bookmark = rs.Bookmark
-->
</SCRIPT>
Si pongo puros numeros... no hay problema ... pero si pongo texto a buscar .. me tira el error 3001 ...
Espero sus increíbles respuestas, por que de esta página he aprendido demasiado.
Saludos!
Valora esta pregunta
0