Completar formularios

luzstellan · #1 (**permalink**) 26/02/2009, 10:58

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....

mpcmarcos · #2 (**permalink**) 26/02/2009, 16:19

Describe un poco tu problema, pq ver todo el codigo se hace muy pesado...

Hosting Asp.Net

Embarazo

luzstellan · #3 (**permalink**) 26/02/2009, 16:29

HOla
Muchas gracias ya resolvi mi problema y lo que realice fue lo siguiente

Cita:

SQL = "Select * From usuarios WHERE usuario = '" & ComboBox1.Text & "'"

If Conectar(SQL) Then

Dim iRow As Integer = Ds.Tables("MS").Rows.Count

If iRow = 1 Then
TextBox1.Text = Ds.Tables("MS").Rows(0).Item("cedula").ToString
TextBox2.Text = Ds.Tables("MS").Rows(0).Item("nombre").ToString
TextBox3.Text = Ds.Tables("MS").Rows(0).Item("direccion").ToString
TextBox4.Text = Ds.Tables("MS").Rows(0).Item("usuario").ToString
TextBox5.Text = Ds.Tables("MS").Rows(0).Item("pass").ToString
ComboBox2.Text = Ds.Tables("MS").Rows(0).Item("nivel")
CheckBox1.Checked = Ds.Tables("MS").Rows(0).Item("estado_usu")
'CheckBox2.Checked = Ds.Tables("MS").Rows(0).Item("estado_usu")

End If
End If

gracias.....