Buenas tardes colegas, tengo un formulario el cual poseo datos de una base de datos en un combobox y quiero que me aparezcan en el listview solo los datos que coincidan con la seleccion de el combobox, como haria en este caso¿?¿
esto es lo que tengo en el load
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim sql As String
''''''''''''''''''''''
'''Combo_mat = list_registrados.ListItems(i).SubItems(3)
Label4.Caption = USUARIO_ACTUAL_NAME
' Eliminar las cabeceras
list_registrados.ColumnHeaders.Clear
' Asignar las cabeceras
With list_registrados.ColumnHeaders.Add(, , "FECHA", 2000)
End With
With list_registrados.ColumnHeaders.Add(, , "PROSPECTO", 2000)
End With
With list_registrados.ColumnHeaders.Add(, , "TELEFONO", 2500, lvwColumnRight)
End With
With list_registrados.ColumnHeaders.Add(, , "MODELO", 2000, lvwColumnRight)
End With
With list_registrados.ColumnHeaders.Add(, , "ATENDIDO_POR", 2000, lvwColumnRight)
End With
With list_registrados.ColumnHeaders.Add(, , "OBSERVACIONES", 3000, lvwColumnRight)
End With
TIPO_EVENTO = 1
g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"
'-- llena el combo de Usuarios
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
sql = "select fecha, PROSPECTO, TELEFONO, MODELO, ATENDIDO_POR, OBSERVACIONES from Distormoto where MODELO = ' list_registrados.ListItems(i).SubItems(3) '"
'''''''''''''''''''''''''''''''''''''''''''''''''' '''
'''que debo anexarle al select para que me traiga solo lo que conincida con el ''combox¿?¿?
rs.Open sql, g_db, adOpenKeyset
''' SE RECORRE
Do While Not rs.EOF
If Not IsNull(rs.Fields.Item(0).Value) Then
With list_registrados.ListItems.Add(, , rs.Fields.Item(0).Value)
' Cada subitem debe corresponder con cada una de las cabeceras
' la segunda cabecera es el Subitems(1) y así sucesivamente
.SubItems(1) = rs.Fields.Item(1).Value
.SubItems(2) = rs.Fields.Item(2).Value
.SubItems(3) = rs.Fields.Item(3).Value
.SubItems(4) = rs.Fields.Item(4).Value
.SubItems(5) = rs.Fields.Item(5).Value
End With
End If
rs.MoveNext
Loop
rs.Close
g_db.Close
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
TIPO_EVENTO = 1
g_db1.Open "driver={SQL Server};server=SERVIDOR;uid=profit;pwd=profit;data base=moto"
'-- llena el combo de Usuarios
sql1 = "SELECT co_art From art WHERE co_lin = 'mbr' AND co_subl = 'moto' AND co_cat = 'moto' AND co_prov = '4239' "
rs1.Open sql1, g_db1
Do While Not rs1.EOF
If Not IsNull(rs1.Fields.Item(0).Value) Then
combo_mod.AddItem rs1.Fields.Item(0).Value, i
End If
rs1.MoveNext
Loop
rs1.Close
g_db1.Close
End Sub
tenia idea de hacer algo asi :
'If list_registrados.ListItems.Item(i).Selected Then
'list_registrados.ListItems(i).SubItems(3) = Combo_mat.Text
'End If
?¿?¿ quien pueda despejar mi duda le estare agradecida
