Pues en este caso no se ha preguntado por la posición, sino algo que se asemeje al operador LIKE de mysql
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúSELECT * FROM tabla WHERE campo = 'test';
Cita de: dimitrix en 23 Noviembre 2014, 01:09 AMPues porque necesitas la posición, pero cuando necesitas sólo sacar registros con x caracteristicas que?
Ojo, yo prefiero muchas veces el strpos ya que te devuelve la posición y de ahí puedes hacer muchas cosas.
Cita de: engel lex en 21 Noviembre 2014, 21:08 PMuna base de datos en .txt? por que no una real? porEn cierta forma un .txt es una bd real
Sub ConsultaFechas()
SqlDos = "SELECT * FROM BDOFertas WHERE F_Desde > " & txtFechaUno.Text & " And F_Hasta < " & txtFechaDos.Text & ""
MsgBox "Query: " & SqlDos
'Set rs = New ADODB.Recordset
'rs.CursorLocation = adUseClient
'rs.Open SqlDos, cn, adOpenStatic, , adCmdText
End Sub
Sub ConsultaFechas()
SqlDos = "SELECT * FROM BDOFertas WHERE F_Desde > '" & txtFechaUno.Text & "' And F_Hasta < '" & txtFechaDos.Text & "'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SqlDos, cn, adOpenStatic, , adCmdText
End Sub
Sub EliminarUltimoCaracter()
Dim oHoja As String: oHoja = "Hoja4" ' Hoja de donde se realizará el proceso
Dim oFila As Integer: oFila = 2 ' Inicio de fila
Dim oColumna As String: oColumna = "A" ' Columna que contiene el texto
' Seleccionar la hoja
Sheets(oHoja).Select
' Recorrer todos los valores hasta que encuentre un celda vacia
Do While Range(oColumna & oFila).Value <> Empty
' Reemplazar el valor de la celda por el mismo valor eliminando el ultimo caracter
Range(oColumna & oFila).Value = Left(Range(oColumna & oFila).Value, Len(Range(oColumna & oFila).Value) - 1)
' Incremento de fila
oFila = oFila + 1
Loop
End Sub