Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 72Lecturas hoy:
    • 75Lecturas ayer:
    • 132595Total de visitas:
    • 63Hoy:
    • 66Ayer:
    • 600La semana anterior:
    • 1562Visitantes por mes:
    • 77Visitantes por día:
    • 2Visitantes conectados:

Rellenar un desplegable

Posted by skskynet on 30th mayo 2010

Rellenar un desplegable con el resultado de una consulta de un dataset

Dim consulta_usuarios As String = “”

consulta_usuarios = ” Select Trabajadores from trabajadores order by trabajadores”

Dim miConexion As New OleDb.OleDbConnection

miConexion.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & CurDir() & “\bd.accdb;Jet OLEDB:Database Password=1234;”

miConexion.Open()

Dim ds As New DataSet

Dim da As New OleDb.OleDbDataAdapter

da = New OleDb.OleDbDataAdapter(consulta_usuarios, miConexion)

pongo Nombre_tabla para referirme a ella

da.Fill(ds, “Nombre_Tabla”)

Dim cant_usuarios As Integer = ds.Tables(“Nombre_Tabla”).Rows.Count

Rellenar un desplegable con los datos de un dataset

For contador = 0 To cant_usuarios – 1

txt_trabajador.Items.Add(ds.Tables(“Nombre_Tabla”).Rows(contador).Item(0))

Next

Tags:
Posted in Visual Studio | No Comments »