SoloCodigo

Buenas... consegui este codigo de la web el cual busca datos solo en la Primera Columna de un listview, pero necesito que busque los datos UNICAMENTE de la tercera columna, ¿que podria modificar para obtener este resultado? .. muchas gracias por alguna sugerencia.

Option Explicit
'UDT necesarias para usar con SendMessage
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type LVFINDINFO
    flags As Long
    psz As String
    lParam As Long
    pt As POINTAPI
    vkDirection As Long
End Type
'Función Api SendMessage
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
'Constantes para SendMessage
Private Const LVM_FIRST = &H1000
Private Const LVM_FINDITEM = (LVM_FIRST + 13)
Private Const LVFI_PARAM = &H1
Private Const LVFI_STRING = &H2
Private Const LVFI_PARTIAL = &H8
Private Const LVFI_WRAP = &H20
Private Const LVFI_NEARESTXY = &H40
 
'Variable de retorno y para la estructura
Dim lRet As Long, LFI As LVFINDINFO

'Procedimiento que busca: Se le envía el control ListView y el texto a buscar
Private Sub Buscar_ListView(ListView As ListView, Cadena As String)
        'Cadena parcial
        LFI.flags = LVFI_PARTIAL Or LVFI_WRAP
    If Cadena = "" Then
       Exit Sub
    End If
 
    'Se le asigna a esta variable la cadena que luego se le envía a SendMessage
    LFI.psz = Cadena
       
    'Le enviamos el mensaje LVM_FINDITEM, la estructura y rel ListView
    lRet = SendMessage(ListView1.hwnd, LVM_FINDITEM, -1, LFI)
       
    If lRet >= 0 Then
        'Seleccionamos el item del Listview
        ListView1.SelectedItem = ListView1.ListItems(lRet + 1)
        'Propiedad opcional
        ListView1.HideSelection = False
        'Si el item se encuentra fuera del área visible desplazamos la lista _
        para poder visualizarlo con el método EnsureVisible
        ListView1.SelectedItem.EnsureVisible
    End If
End Sub

Function Buscar(Lv As ListView, _
Cadena As String, _
nCol As Integer) As Long
Dim i As Long
Dim oItem As ListItem
With Lv
    For i = 1 To Lv.ListItems.Count
        Set oItem = Lv.ListItems(i)
        If InStr(StrConv(oItem.SubItems(nCol), vbLowerCase), StrConv(Cadena, vbLowerCase)) Then
            Buscar = oItem.Index
            Exit For
        End If
    Next
End With
End Function

Private Sub txtbuscar_Change()
      Call Buscar_ListView(ListView1, txtbuscar)
End Sub

Buenas ... Estoy tratando de Exportar los campos de una tabla (PRODUCTOS) a Excel, para esto utilizo un boton el cual llama a un commondialog y de esta menera elegir la ruta donde guardar el archivo excel... el codigo que tengo me permite cargar los datos y mostrar el archivo excel....  pero lo que necesito es que no lo muestre y automaticamente se guarden los datos segun la ruta que escogi en el commondialog.
ojala me puedan ayudar .. gracias por cualquier sugerencia



' En Modulo:

 Public dbCnx As Connection
-----------------------------------------------------------------
Public Sub AbrirConexion(varX As Boolean)
If varX Then
    Set dbCnx = New Connection
    dbCnx.CursorLocation = adUseClient
    dbCnx.Open "Provider=SQLOLEDB;Initial Catalog=Empresa;Data Source=(local);uid=sa;password= ; persist security info=Tru;"
Else
    If dbCnx.State = 1 Then dbCnx.Close
End If
End Sub



'En Formulario:
Private Sub Form_Load()
AbrirConexion True
End Sub

Option Explicit
Dim Con As ADODB.Connection
Dim loExcel As Object
Dim libro As Object
----------------------------------------------
Private Sub Command1_Click()
 Dim Conexion As String
 Dim Linea As String

 CommonDialog1.DialogTitle = "Guardar en"
 CommonDialog1.Filter = "Excel (*.xls)|*.xls"
 CommonDialog1.ShowSave

  If CommonDialog1.FileName = "" Then
      Exit Sub
  Else
     Set loExcel = CreateObject("Excel.Application")
     Set libro = loExcel.Workbooks.Add
     loExcel.Visible = True   ' quitare esta linea para que no muestre

    Conexion = "ODBC;DRIVER=SQL Server;SERVER=;UID=sa;PWD=;DATABASE=Empresa"

    With libro.ActiveSheet.QueryTables.Add(Connection:=Conexion,Destination:=libro.ActiveSheet.Cells(1, 1), Sql:="SELECT * from producto")
        .Refresh
    End With
       loExcel.ActiveWorkbook.Activate
 End If

Gracias Ross07 .... pero de la forma en que me sugieres .. me permite buscar en la segunda y tercera columna... y yo lo que necesito es buscar el dato solamente en la tercera columna...

Buenas Noches... necesito algunos consejos..
Tengo tres formularios:
El primero llama al segundo a travez de un commandbutton
Private Sub Command1_Click()
Form2.Show vbModal
End Sub

y el segundo al tercer formulario a travez de un commandbutton
Private Sub Command1_Click()
Form3.Show vbModal
End Sub

... Necesito que el tercer formulario este siempre visible, para poder seguir trabajando en el segundo...
... Adjunto imagen de la idea.... gracias por sus respuestas.

Buenas Tardes.... Necesito ayuda con esta consulta.... quisiera listar todos los registros que contiene una tabla llamada PERSONAL .. en dicha tabla a veces se registran los codigos de otras 3 tablas (TIPOPERSONAL, NIVEL_INSTRUCCION, TIPO_DOC_IDENT) ..y otras veces se deja vacios dichos campos. Cuando realizo la consulta con el codigo que actualmente tengo, solo me esta mostrando los registros que tiene coincidencias y quisiera q muestre todos los registros.
Adjunto la imagen de las tablas ... gracias por adelantado


SELECT P.IdPersonal,TP.Descripcion,P.NOMBRES,P.ApellidoP,P.ApellidoM,
TD.Descripcion,P.Nro_Doc_Ident,P.FechaNac,P.fechaIngreso,P.telf_Fijo,P.telf_Movil,P.email,NI.Descripcion,P.Profesion,P.direccion FROM PERSONAL P
INNER JOIN TIPOPERSONAL TP
ON P.IdTipo=TP.IdTipo
INNER JOIN NIVEL_INSTRUCCION NI
ON P.Cod_Nivel_Inst=NI.Cod_Nivel_Inst
INNER JOIN TIPO_DOC_IDENT TD
ON P.Cod_TipoDocIdent=TD.Cod_TipoDocIdent