Usos listview en vb6.0

[cindycpc3]

Buenos dias colegas,

Tengo un listview el cual me trae informacion de una base de datos, tomando en cuenta que el listwiew funciona como una hoja excel, dicha informacion que traigo son nombres y numeros telefonicos, tengo un formulario el cual es para envio de sms, lo que significa que cuando yo quiera enviar un sms en un boton enviar me debe jalar de ese listview solo los datos que yo con el teclado y o mouse haya seleccionado, como haria en ese caso??

Les muestro el codigo elaborado para mas detalles y sirva para aquellos colegas que necesitan llenar un listview desde una bd y no sepan.

--llamo el listview desde el formulario
Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim sql As String

' Eliminar las cabeceras
Lst_usuarios.ColumnHeaders.Clear
'
' Asignar las cabeceras
With Lst_usuarios.ColumnHeaders.Add(, , "Nombre", 2400)

End With
With Lst_usuarios.ColumnHeaders.Add(, , "Telefono", 2000, lvwColumnRight)

End With


TIPO_EVENTO = 1
--abro bd
g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"

'-- llena el combo de Usuarios
--selecciono la tabla y los campos que deseo se muestren
sql = "select nombre_persona, numero_persona from persona order by nombre_persona"
rs.Open sql, g_db
--recorro el recorset
Do While Not rs.EOF
If Not IsNull(rs.Fields.Item(0).Value) Then
With Lst_usuarios.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
End With
End If
rs.MoveNext
Loop
rs.Close

g_db.Close

End Sub

obviamente la sentencia que necesito se debe ejecutar en el comand enviar

[lokoman]

Hola!
Intenta con:

ListView.SelectedItem.SubItems(1), Para seleccionar el Nombre
ListView.SelectedItem.SubItems(2), Para seleccionar el Numero

[cindycpc3]

Hola de nuevo colegas, no me habia explicado bien.

La idea es que luego de seleccionar los datos en un listview cuando le de click al boton enviar me guarde en un bd ya creada los datos que justamente se marcaron en el listview mas un texto que esta contenido en el textbox.

Se que se deberia utilizar un ciclo for pero hasta ahora necesitaria ayuda ya que no me hace nada

For i = 1 To Lst_usuarios.ListItems.Count
nombre = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
telefono = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
SQL = "INSERT INTO persona_envios (persona_envio, numero_envio, Texto_mensaje) VALUES ( '" & nombre & "', " & telefono & "','" & txt_mensaje.Text & "' )"
g_db.Execute SQL
Next i

rs.Open SQL, g_db
rs.Close
g_db.Close

y gracias por el aporte lokoman

[lokoman]

Creo que no necesitas de un FOR si solo es el ITEM seleccionado el que se guardará. A tu query le falta un ( ' ), Intenta asi:

Código vb:

Nombre = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
Telefono = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
 
SQL = "INSERT INTO persona_envios (persona_envio, numero_envio, Texto_mensaje) VALUES ( '" & nombre & "', '" & telefono & "','" & txt_mensaje.Text & "')"
 
g_db.Execute SQL
 

[cindycpc3]

Buenos Dias Estimados colegas,

Pude resolver el problemita que tenia, gracias a los que aportaron fue de gran ayuda, aqui les dejo el fragmento de codigo para aquellos que lo necesiten:

For i = 1 To Lst_usuarios.ListItems.Count

If Lst_usuarios.ListItems.Item(i).Selected Then
sql = "INSERT INTO persona_enviados (persona_envio, numeros_envio, Texto_envio ) VALUES ( '" & Lst_usuarios.ListItems(i) & "', '" & Lst_usuarios.ListItems(i).SubItems(1) & "','" & texto & "')"
g_db.Execute sql
End If
Next i

Tenia un problema con el textbox ya que no me guardaba lo que se anotaba por pantalla y para ello tuve que crear una variable global variant.
Espero les sea de ayuda