buscar un registro

[pilar_tellez]

hola, tengo un problema con la busqueda de un registro, me arroja un erro que dice:
"ERROR 3464 EN TIEMPO DE EJECUCION, NO COICIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS"

tengo una tabla llamada persona cuyos campos son id, nombre y apellido, las dos ultimas son campos tipo texto y el id es autoincrementable, en access

pero si cambio en access el id a texto, me busca los registros con este codigo:

Sub buscar()
Dim sql As String
Dim cons_per As Recordset
sql = "select * from persona where id_elemento='" + Text4 + "'"
Set cons_per = base.OpenRecordset(sql, dbOpenDynaset)
If cons_per.RecordCount <> 0 Then
Text1 = cons_per("nombre")
Text2 = cons_per("apellido")
End If
End Sub

alguna sugerencia, no puedo cambiar el id a texto lo necesito como autoincremento desde ya gracias aaahhhh y el acceso a datos es atraves de DAO

[kikevar]

Iniciado por pilar_tellez

hola, tengo un problema con la busqueda de un registro, me arroja un erro que dice:
"ERROR 3464 EN TIEMPO DE EJECUCION, NO COICIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS"

tengo una tabla llamada persona cuyos campos son id, nombre y apellido, las dos ultimas son campos tipo texto y el id es autoincrementable, en access

pero si cambio en access el id a texto, me busca los registros con este codigo:

Sub buscar()
Dim sql As String
Dim cons_per As Recordset
sql = "select * from persona where id_elemento='" + Text4 + "'"
Set cons_per = base.OpenRecordset(sql, dbOpenDynaset)
If cons_per.RecordCount <> 0 Then
Text1 = cons_per("nombre")
Text2 = cons_per("apellido")
End If
End Sub

alguna sugerencia, no puedo cambiar el id a texto lo necesito como autoincremento desde ya gracias aaahhhh y el acceso a datos es atraves de DAO

Hola como estas yo creo que deberia de bastar con quitar las comillas simples que pones en el text4, estas comillas le indican al programa que es texto y tu necesitas numeros.

Espero te sirva y estar en lo correcto

Que tengas una tarde excelente

[seba123neo]

Hola, si es un id autoincrementable fijate que sea un entero y no un string..proba la consulta asi:

Código:

sql = "select * from persona where id_elemento=" & Text4.Text

eso es si el id es numerico...

saludos.

[pilar_tellez]

muchas gracias por su ayuda me resulto la busqueda colocando en la consulta:

sql= "select * from personas where id_elemento =" & text4&"

adios....