Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/01/2012, 09:34
carlos79
 
Fecha de Ingreso: septiembre-2009
Ubicación: Venezuela
Mensajes: 92
Antigüedad: 15 años, 2 meses
Puntos: 1
Cargar datos en datagridview1 - VB.NET ?

Buenos dias estimados foristas..... Tengo una consulta....

En mi form tengo un control textbox1 y un campo datagrid.... Que pasa.... cuando ingreso el número de cédula de mi cliente, quisiera que al presionar enter en el datagridview1 me muestre los carros que tiene....

LE he dado vuelta al asunto como nadie y de verdad ya no se que hacer....

Aqui el código a ver en que me pueden ayudar !!!!

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Asc(e.KeyChar) = 13 Then
If TextBox1.Text = "" Then
MessageBox.Show("Faltan Datos", "Taller Ver. 1.0", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()
Else

Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\taller\BD\dataller.mdb")
Dim SQLbuscar As String
SQLbuscar = "Select nombre,direc,telf from clientes where cod_cliente like'" + TextBox1.Text + "%';"


Dim cmd As New OleDbCommand(SQLbuscar, cnx)
cmd.CommandType = CommandType.Text
cnx.Open()

Dim lectura As OleDbDataReader = cmd.ExecuteReader()
If lectura.Read = True Then
TextBox2.Text = lectura(0).ToString
TextBox3.Text = lectura(1).ToString
TextBox4.Text = lectura(2).ToString
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Focus()

lectura.Close()
Else
MessageBox.Show("Vehículo no registrado en el sistema", "Taller Ver. 1.0", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If
End If
End If

End Sub


Saludos

Carlos