Pasar el contenido de una caja de texto a un filtro
Publicado por Alberto (115 intervenciones) el 28/09/2021 19:25:31
Es una pregunta de novato, pero so am I.
Quiero hacer en una tabla distintas operaciones (contar, filtrar) a partir del contenido de una caja de texto.
Es decir, entro en una caja de texto "Pepe" y quiero que me diga cuantos registros hay que tengan la palabra Pepe en el campo inv de la tabla resugral. O que me relacione los Pepes de la t abla.
Entro en la text1.text, Pepe y despues de haber instalado el ADODB y el enlace con la table resugral y haber establecido
Dim Rs As New ADODB.recordset
Conn.ConnectionString = "...."
Conn.Open
Rs.Open "SELECT COUNT(*) as 'contador' FROM resugral WHERE inv ='Text1' ", Conn, adOpenStatic, adLockPessimistic
contador = Rs(0)
MsgBox " Contador " & contador
Me da siempre 0 aunque hay varios Pepes. He entrado , Text1, Text1.Text, con comillas sencillas, dobles y de todas formas que se me han ocurrido (menos la que funcione, evidentemente) , pero no hay forma. Utilizo VB6.0.
Si escribo Pepe en el código, sí me funciona perfectamente, pero así cualquiera.
En tiempos me he tenido problemas con esto, pero ahora sí.
Gracias.
Quiero hacer en una tabla distintas operaciones (contar, filtrar) a partir del contenido de una caja de texto.
Es decir, entro en una caja de texto "Pepe" y quiero que me diga cuantos registros hay que tengan la palabra Pepe en el campo inv de la tabla resugral. O que me relacione los Pepes de la t abla.
Entro en la text1.text, Pepe y despues de haber instalado el ADODB y el enlace con la table resugral y haber establecido
Dim Rs As New ADODB.recordset
Conn.ConnectionString = "...."
Conn.Open
Rs.Open "SELECT COUNT(*) as 'contador' FROM resugral WHERE inv ='Text1' ", Conn, adOpenStatic, adLockPessimistic
contador = Rs(0)
MsgBox " Contador " & contador
Me da siempre 0 aunque hay varios Pepes. He entrado , Text1, Text1.Text, con comillas sencillas, dobles y de todas formas que se me han ocurrido (menos la que funcione, evidentemente) , pero no hay forma. Utilizo VB6.0.
Si escribo Pepe en el código, sí me funciona perfectamente, pero así cualquiera.
En tiempos me he tenido problemas con esto, pero ahora sí.
Gracias.
Valora esta pregunta


0