Datos de Access en un ListView

[2Fast To You]

Hola Amigos

Me gustaria saber como puedo visualizar Datos de una Base de Datos en Access los datos en un ListView.

Saludos

[GeoAvila]

mira un listview funciona exactamente como un combobox, podes usar el DataList para tu proposito..

[2Fast To You]

Es decir no puedo usar el ListView ??

Me puedes decir que debo de poner para que se visualizen los datos en un DaraList ya que cuando lo enlazo a un Control Data solo me visualiza 1 registro no mas.

Saludos

[2Fast To You]

Listo ya lo hice y es así.

Código:

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Dim sql As String
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TUBASEDATOS.mdb;"
con.Open , "", ""
rellenarListView lvw 'El nombre del ListView
End Sub

Private Sub rellenarListView(ByRef lst As ListView)
Dim contador As Integer
Dim columna As ColumnHeader
Dim li As ListItem
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
sql = "SELECT * ," & _ ' * Es para seleccionar todas las Tablas
" * From TUTABLA"
rs.Open sql, con, adOpenStatic, adLockReadOnly, adCmdText
'Ponemos el estilo del ListView a report
lst.View = lvwReport
lst.GridLines = True 'Ponemos las lineas del listview
lst.LabelEdit = lvwManual 'Para no poder editar la etiqueta.
'Ponemos las columnas con los campos de la consulta:
For contador = 0 To rs.Fields.Count - 1
    Set columna = lst.ColumnHeaders.Add(, , rs.Fields(contador).Name)
Next contador
'Ponemos los datos en el listview
If rs.Fields.Count = 0 Then Exit Sub
Do Until rs.EOF
    Set li = lst.ListItems.Add(, , rs.Fields(0).Value)
    For contador = 1 To rs.Fields.Count - 1
        li.ListSubItems.Add , , rs.Fields(contador).Value
    Next contador
    rs.MoveNext
Loop
rs.Close
End Sub

Espero que les Ayude.

Saludos

[2Fast To You]

Hola Amigos

Quiero hacer lo siguiente:


txtGanancia (Es en %)

Sumarle

txtCosto

Y el Resultado

label5

Y Despues

Label5

Quitarle lo que tiene

txtCosto

Y el Resultado

Label4

Como lo puedo hacer ??

Saludos

[GeoAvila]

con operaciones arimeticas oviamente.

pero encerrar cada txt en un Val()


nos vemos..