none
boton consultar RRS feed

  • Pregunta

  • m pregunta es l siguiente cuando preto el boton consultar uy digito el numero para que m salga en los text box pero no m sale nada este es el codigo:

     

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

     

    Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\cotizacion.mdb")

     

    Dim i As String

     

    Dim Buscando As Integer

    Buscando = InputBox(

    "Buscar NDocumento?")

     

    Dim cmd As New OleDbCommand("select Ndocumento,fecha,Detalle,Monto,Monto_Total from Ingreso where Ndocumento like '" & Buscando & "'", con)

    con.Open()

    i = ValidarDocumentos(

    Me.txtdocumentos.Text)

     

    If Not i = True Then

    MsgBox(

    "Este codigo no existe")

     

    Else

     

    Dim read As OleDbDataReader = cmd.ExecuteReader()

     

    Try

     

    If read.HasRows Then

     

    Me.txtdocumentos.Text = read("Ndocumento").ToString()

     

    Me.Label5.Text = read("fecha").ToString()

     

    Me.txtdetalle.Text = read("Detalle").ToString()

     

    Me.txtmonto.Text = read("Monto").ToString()

     

    Me.txtmontototal.Text = read("Monto_Total").ToString()

     

    End If

     

    Catch ex As Exception

     

    Dim ms As String = ex.Message

     

    End Try

    BtonElimar.Visible =

    True

    BtoActualizar.Visible =

    True

    txtdocumentos.Focus()

    con.Close()

     

    End If

     

    End Using

     

    End Sub

     

     

    si alguien m pde ayudar porfa stoy con acces 97

    jueves, 4 de noviembre de 2010 14:42

Respuestas

  • hola

    prueba suando algo como esto

    con.Open()

    Dim query As String = "select Ndocumento,fecha,Detalle,Monto,Monto_Total from Ingreso where Ndocumento like @doc"

    Dim cmd As New OleDbCommand(query, con)
    cmd.Parameters.AddWithValue("@doc", String.Format("'%{0}%'", Buscando))

    Dim read As OleDbDataReader = cmd.ExecuteReader()

    If read.Read() Then

        Me.txtdocumentos.Text = CStr(read("Ndocumento"))
        Me.Label5.Text = CStr(read("fecha"))
        Me.txtdetalle.Text = CStr(read("Detalle"))
        Me.txtmonto.Text = CStr(read("Monto"))
        Me.txtmontototal.Text = CStr(read("Monto_Total"))

    End If

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    • Marcado como respuesta koke1 lunes, 8 de noviembre de 2010 14:03
    jueves, 4 de noviembre de 2010 16:33