Error en consulta por codigo
Publicado por SIMON (22 intervenciones) el 23/05/2014 01:05:27
Hola a todos:
Tengo un consulta cliente, que busca por Código, Nombre, Apellidos y Cedula,
El problema es que la consulta solo busca bien, por nombre y Apellidos,
La base datos que uso es Microsoft Office Access 2007, y el tipo de campo del código es Autonumérico.
El código de la consulta que funciona bien es:
El código de la consulta que no funciona bien es:
espero que alguien pueda ayudarme, gracias.
Tengo un consulta cliente, que busca por Código, Nombre, Apellidos y Cedula,
El problema es que la consulta solo busca bien, por nombre y Apellidos,
La base datos que uso es Microsoft Office Access 2007, y el tipo de campo del código es Autonumérico.
El código de la consulta que funciona bien es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
If CboBuscar.Text = "APELLIDO" Then
Consulta = " Select codigo as Código, Nom_cli as Nombre, apell_cli as Apellidos, dir_cli as Dirección,ced_cli as Cédula, bal_cli as Balance from Tbla_Clientes where apell_cli LIKE '%" + TextBuscar.Text + "%'"
Dim ObjDataSet As New DataSet()
Dim Tbla_ClienteMemoria As New DataTable()
Dim objAdap As New OleDbDataAdapter(Consulta, conexion)
conexion.Close()
conexion.Open()
objAdap.Fill(Tbla_ClienteMemoria)
Me.dgvConBuscaCliente.DataSource = Tbla_ClienteMemoria
conexion.Close()
End If
El código de la consulta que no funciona bien es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
If CboBuscar.Text = "CODIGO" Then
Consulta = " Select codigo as Código, Nom_cli as Nombre, apell_cli as Apellidos, dir_cli as Dirección,ced_cli as Cédula, bal_cli as Balance from Tbla_Clientes where codigo LIKE '%" + TextBuscar.Text + "%'"
Dim ObjDataSet As New DataSet()
Dim Tbla_ClienteMemoria As New DataTable()
Dim objAdap As New OleDbDataAdapter(Consulta, conexion)
conexion.Close()
conexion.Open()
objAdap.Fill(Tbla_ClienteMemoria)
Me.dgvConBuscaCliente.DataSource = Tbla_ClienteMemoria
conexion.Close()
End If
espero que alguien pueda ayudarme, gracias.
Valora esta pregunta
0