REALIZADO POR: JDPAIZ
seria aci aces una busquda con un textbox lo llamaresmos txtbuscar y un boton cmdbuscando
aroa si tu escribes en la caja de texto txtbuscar y aces clic en el boton la consulta que estan en la funcion o metodo como qieras llamarle ara todo si el dato exite te lo mostrara en las otras cajas de texto
recuerda agregar tu codigo de conexion
Cita: Private Sub cmdfind1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfindruc.Click
If findruc.Text <> "" Then
Call Llenar_Textbox_Por_RUC()
cmdfindrsocial.Enabled = False
findrsocial.Enabled = False
Else
MsgBox("El Campo RUC Esta Vacio")
End If
End Sub
Public Sub Llenar_Textbox_Por_RUC()
Dim sqdataadapter As SqlDataAdapter
Dim datase As DataSet
Dim x As Integer
Dim ruc, rsocial, ciudad, dir, correo, telf As String
'VARIABLE PARA OCUPAR EN LAS CONSULTAS
Dim query As String = "select * from proveedor where ruc= '" & Me.findruc.Text & "'"
cnx.Open()
sqdataadapter = New SqlDataAdapter(query, cnx)
datase = New DataSet
sqdataadapter.Fill(datase, "proveedor")
For x = 0 To datase.Tables("proveedor").Rows.Count - 1
ruc = datase.Tables("proveedor").Rows(x).Item(1)
rsocial = datase.Tables("proveedor").Rows(x).Item(2)
ciudad = datase.Tables("proveedor").Rows(x).Item(3)
dir = datase.Tables("proveedor").Rows(x).Item(4)
correo = datase.Tables("proveedor").Rows(x).Item(5)
telf = datase.Tables("proveedor").Rows(x).Item(6)
Me.ruc.Text = (ruc)
Me.rsocial.Text = (rsocial)
Me.ciudad.Text = (ciudad)
Me.dir.Text = (dir)
Me.correo.Text = (correo)
Me.telf.Text = (telf)
Next
cnx.Close()
End Sub