none
poner un mensaje con codigo RRS feed

  • Pregunta

  • buanas tardes amigo porfavor ayudeme lo que quiero es introducir un imputbox para que escriba alli y ya me aparesca

    este es mi codigo del boton buscar a este quiero introducirle el ImputBox("")

           TextBoxusuario.Focus()
            TCONTRASEÑABindingSource.AddNew()
            TextBox2.Enabled = False
            TextBox3.Enabled = False
            Dim consulta As String
            Dim lista As Byte
            If TextBoxusuario.Text <> "" Then
                consulta = "SELECT*FROM T_CONTRASEÑA WHERE USUARIO= '" & TextBoxusuario.Text & " ' "
                adaptador = New OleDbDataAdapter(consulta, conexion)
                datos = New DataSet()
                adaptador.Fill(datos, "T_CONTRASEÑA")
                lista = datos.Tables("T_CONTRASEÑA").Rows.Count
            End If
            If lista <> 0 Then
                ComboBox1.Text = datos.Tables("T_CONTRASEÑA").Rows(0).Item("TIPO")
                TextBoxusuario.Text = datos.Tables("T_CONTRASEÑA").Rows(0).Item("USUARIO")
                TextBox2.Text = datos.Tables("T_CONTRASEÑA").Rows(0).Item("CONTRASEÑA")
                TextBox3.Text = datos.Tables("T_CONTRASEÑA").Rows(0).Item("CONTRASEÑA")
            Else
                MsgBox("DATOS NO ENCONTRADOS")
            End If

        End Sub

    AYUDEN PORFAVOR

    miércoles, 29 de marzo de 2017 22:22

Respuestas

  • Hola anthony lenyn,

    ¿Y cuál es el problema ? El 'InputBox' es una función que muestra un cuadro de diálogo solicitando una dato al usuario y retorna ese mismo valor, solo tendrías que almacenarlo en una variable y validar si es vacío o no, algo como :

    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
    
        Dim filtro As String = InputBox("Escriba el valor a buscar...", "Buscar...")
    
        'Si el filtro no es vacío es porque tiene data
        If filtro.Trim() <> String.Empty Then
    
            'Aquí hacemos la búsqueda...
            'tomando el valor de la variable 'filtro'
    
        End If
    
    End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    viernes, 31 de marzo de 2017 22:36

Todas las respuestas

  • Hola buenos dìas, has evaluado, crear un imputbox, diseñando un formulario propio, emulando al inputbox?, pues considero que tendrias mas control y lo podrias dar mejor diseño.
    viernes, 31 de marzo de 2017 15:10
  • es lo que quiero por eso pido ayuda quiero en el codigo de arriba introducirlo para que el momento que ponga en el boron buscar me salga un mensaje donde yo escriba lo que quiero buscar y de aceptar y me aparesca en los textbox y el datagridview
    viernes, 31 de marzo de 2017 22:01
  • Hola Anthony,

    Me parece que lo que intenta decirte Vladimir es que no uses inputbox, si no otro formulario con una simple caja de texto en donde ingreses tu valor.

    De esa forma pasarías el valor entre formularios y con ello poder colocarlo en cualquier control del primero

    Saludos.


    Si logré resolver tu consulta, no olvides votar como útil y/o marcar como respuesta.

    viernes, 31 de marzo de 2017 22:19
  • Hola anthony lenyn,

    ¿Y cuál es el problema ? El 'InputBox' es una función que muestra un cuadro de diálogo solicitando una dato al usuario y retorna ese mismo valor, solo tendrías que almacenarlo en una variable y validar si es vacío o no, algo como :

    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
    
        Dim filtro As String = InputBox("Escriba el valor a buscar...", "Buscar...")
    
        'Si el filtro no es vacío es porque tiene data
        If filtro.Trim() <> String.Empty Then
    
            'Aquí hacemos la búsqueda...
            'tomando el valor de la variable 'filtro'
    
        End If
    
    End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    viernes, 31 de marzo de 2017 22:36
  • amigo no me sale me puede dar introduciendo el codigo en la programacion que la tengo mas arriba del boton buscar
    domingo, 2 de abril de 2017 19:06
  • amigo no me sale me puede dar introduciendo el codigo en la programacion que la tengo mas arriba del boton buscar

    Hola anthony lenyn,

    ¿Qué es lo que realmente no te sale? ¿No te muestra el 'InputBox'?¿No te realiza la búsqueda? Puede ser más específico.

    No obstante, analizando un poco más tu código, no necesitas utilizar un DataSet, ya que solo vas a obtener un registro deberías utilizar un OleDbDataReader.

    Algo como :

    Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
    
        Try
            Dim filtro As String = InputBox("Escriba el nombre de usuario...", "Buscar...")
    
            'Si el filtro no es vacío es porque tiene algún valor
            If filtro.Trim() <> String.Empty Then
    
                Using con As New OleDbConnection("MiCadenaConexion")
    
                    Dim query = "Select * from T_CONTRASEÑA where usuario = ?"
    
                    Dim cmd As New OleDbCommand(query, con)
    
                    'Agregamos el parámetro
                    cmd.Parameters.AddWithValue("@p1", TextBoxusuario.Text)
    
                    'Creamos un objeto OleDbDataReader
                    Dim reader As OleDbDataReader = cmd.ExecuteReader()
    
                    'Si hay datos
                    If reader.HasRows Then
    
                        'Leemos la fila y asignamos el valor a cada control
                        If reader.Read() Then
                            ComboBox1.Text = reader("TIPO").ToString()
                            TextBoxusuario.Text = reader("USUARIO").ToString()
                            TextBox2.Text = reader("CONTRASEÑA").ToString()
                        End If
                    Else
                        'No hay datos..
                        MessageBox.Show("Datos no encontrados...")
                    End If
    
                End Using
            Else
                'Opcional...
                MessageBox.Show("No ingresó un valor en el filtro o canceló la operación")
            End If
    
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    
    End Sub

    Recuerda cambiar 'MiCadenaConexion' por tu verdadera cadena de conexión (ConnectionString) para no tener problemas.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    domingo, 2 de abril de 2017 20:36
  • me sale que ExecuteReader requiere una conexion abierta y disponible 
    lunes, 3 de abril de 2017 3:48
  • me sale que ExecuteReader requiere una conexion abierta y disponible 

    Hola anthony lenyn,

    Lo que pasa es que me faltó abrir la conexión.

    con.Open()
    
    'Creamos un objeto OleDbDataReader
    Dim reader As OleDbDataReader = cmd.ExecuteReader()
    
    'Demás código...

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 3 de abril de 2017 3:50