Cargar datos en datagridview1 - VB.NET ?

[carlos79]

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

[julioc6969]

Si lo que quieres hacer es mostrar en un gridview haz lo siguiente:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
try
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")
cnx.open() 'abrir la conexion antes
Dim SQLbuscar As String
SQLbuscar = "Select nombre,direc,telf from clientes where cod_cliente like'" + TextBox1.Text + "%';"



Dim cmd As New OleDbDataAdapter(SQLbuscar, cnx)
Dim ds As New Data.DataSet



cmd.Fill(ds, "consulta")

If ds.Tables("consulta") Is Nothing Then
MessageBox.Show("No existen registros", "Taller Ver. 1.0", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
tu_grid_view.DataSource = ds.Tables("consulta")

End If



End If
End If

Catch ex As Exception
MessageBox.Show(ex.tostring, "Taller Ver. 1.0", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try




Checa si te funciona, :) y me cuentas
JC

[carlos79]

Excelente respuesta..... Gracias amigo.... me sirvió totalmente tu código....

AL fin pude terminar ese módulo que me tenía una semana en espera jejeje....

De hecho estoy pensando migrar de access a sqlexpress..... me da temor que falle alguna tabla por la cantidad de registros !!!!

saludos y feliz dia !

carlos.

[julioc6969]

De nada carlos,
cualquier otra consulta espero poder ayudar.

Saludos

JC