Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/02/2009, 10:58
luzstellan
 
Fecha de Ingreso: febrero-2009
Mensajes: 27
Antigüedad: 16 años
Puntos: 0
Completar formularios

Estoy realizando un software para consulta, resulta que uno de los formularios cuando elijo un nombre en un combobox necesito que cuando elija por ejemplo stella me aparezca en los textbox y otro combobox que tengo, aparezca la informacion de stella que esta almacenada en una base de datos access 2003.
Estas son las librerias que estoy usando
Option Explicit On
Imports System.IO
Imports System
Imports System.Collections
y trabajo con visual basic.net 2008
Acontinuacion anexo el codifo que tengo en el combobox
Código:
SQL = "Select * From usuarios WHERE usuario = '" & ComboBox1.Text & "'"
        Dim nombrecito
        If Conectar(SQL) Then
            If Ds.Tables("MS").Rows.Count = 1 Then
                nombrecito = Ds.Tables("MS").Rows(0).Item("usuario")
                'MsgBox("el nombre seleccionado es : " & nombrecito, MsgBoxStyle.Critical, "NOJDA")
                Dim x
                x = ComboBox1.Text
                TextBox4.Text = x
            End If
        End If

y esta es una

Código:
Public Sub subir_usuarios()
        SQL = "Select * From usuarios"
        Dim nombrecito, filas, p ', nombrecito1
        ComboBox1.Items.Clear()
        If Conectar(SQL) Then

            filas = Ds.Tables("MS").Rows.Count 'trae el numero de la consulta
            For p = 0 To filas - 1

                    nombrecito = Ds.Tables("MS").Rows(p).Item("usuario")
                    ComboBox1.Items.Add(nombrecito)
                    nombrecito = Ds.Tables("MS").Rows(p).Item("cedula")
                    TextBox1.Text = (nombrecito)
                    nombrecito = Ds.Tables("MS").Rows(p).Item("nombre")
                    TextBox2.Text = (nombrecito)
                    nombrecito = Ds.Tables("MS").Rows(p).Item("direccion")
                    TextBox3.Text = (nombrecito)
                    nombrecito = Ds.Tables("MS").Rows(p).Item("pass")
                    TextBox5.Text = (nombrecito)
                Next
        End If
    End Sub
Si alguien conoce que debo usar o como debe hacer que me de una pequeña ayudita.
Gracias por su colaboracion....