26/01/2012, 09:34
|
| | 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 |