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
