Visual Basic - BUSCADOR DE SUBSTRING

Life is soft - evento anual de software empresarial
 
Vista:

BUSCADOR DE SUBSTRING

Publicado por EAJ (1 intervención) el 30/01/2006 20:44:36
Saludos,
estoy recien partiendo con Visual Basic para excel, mi pregunta es...existe alguna sentencia que permita buscar substring dentro de un registro de una tabla Access????....favor necesito de ideas....Muchas Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:BUSCADOR DE SUBSTRING

Publicado por antinuevo (48 intervenciones) el 30/01/2006 21:42:28
La función InStr te sirve para buscar una cadena dentro de otra, pero para esto tuvieras que ir leyendo cada campo de cada registro de la tabla...

Otra forma, no la se, ojalá alguien la aporte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:BUSCADOR DE SUBSTRING

Publicado por Cecilia Colalongo (3116 intervenciones) el 30/01/2006 21:43:28
Si te refieres a buscar un "substring" en todos los campos de una tabla, y si estás trabajando con ADO, agrega la referencia a ADOX y fijate con esto:

Dim objCatalog As Catalog, objTable As Table, objColumn As Column
Dim objCmd As Command, objRst As Recordset

Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnection

Set objCmd = New Command
Set objCmd.ActiveConnection = TuObjetoConnection

Set objTable = objCatalog.Tables.Item("MiTabla")

objCmd.CommandText = "SELECT * FROM " & objTable.Name & " WHERE "

For Each objColumn In objTable.Columns
objCmd.CommandText = objCmd.CommandText & objColumn.Name & " LIKE '" & txt_Datos.Text & "' OR "
Next

objCmd.CommandText = Left(objCmd.CommandText,Len(objCmd.CommandText)-Len("OR "))

Set objRst = objCmd.Execute
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar