Ver Mensaje Individual
  #3 (permalink)  
Antiguo 22/11/2005, 06:41
Avatar de rock_blues.NET
rock_blues.NET
 
Fecha de Ingreso: septiembre-2005
Mensajes: 207
Antigüedad: 18 años, 8 meses
Puntos: 0
codigo

yo trabajo en visual studio 2002

y cargo los datos de esta forma:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListView1.Items.Clear()
OleDbDataAdapter1.Fill(DataSet11, "Taller")
Dim int_registro, inttotal_lstwtalleres As Integer
inttotal_lstwtalleres = BindingContext(DataSet11, "Taller").Count - 1
If inttotal_lstwtalleres = -1 Then
MsgBox("no hay registros", MsgBoxStyle.Information, "info")
Else
While int_registro <= inttotal_lstwtalleres
Dim fila As DataRow
fila = DataSet11.Tables("Taller").Rows(int_registro)
ListView1.Items.Add(int_registro).SubItems(0).Text = fila.Item("Rut_Taller")
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("Nombre_Taller"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("Rut_encargado"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("direcion"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("Comuna"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("telefono"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("Celular"))
ListView1.Items.Item(int_registro).SubItems.Add(fi la.Item("mail"))
int_registro = int_registro + 1
End While
End If


End Sub

ojala lo entiendas y te sirva
slds