Ayuda ADO

[c0x]

Q tal soy nuevo por aca y tengo un problema, lo q psa es q estoy haciendo un diccionario pero no se como hacer una consulta a la tabla por ejemplo
si busco la palabra perro como le hago para q el programa busq la palabra en la bd y me d la definicion

los campos q uso son term y def: term para la palabra a buscar y def para su definicion.

Espero q alguien me pueda ayudar pq no tengo ni idea de como ahcer esto

[extrem_bcn]

pues mira ... la consulta (la SQL) seria la siguiente:

"SELECT def FROM LaTabla WHERE term= ' " & LaPalabra & " ' "

claro está que para ejecutar la consulta has de tener la referencia ADO, abrir una conexión con el servidor y abrir un recorset para almacenar la información.

Si tienes problemas con eso dimelo y te ayudo.

saludos!

[c0x]

Código:

Dim cox_nlx As ADODB.Connection
Dim cox_rds,  As ADODB.Recordset
Dim query_cx As String
Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds = cox_nlx.Execute(query_cx)
End Sub

Private Sub Form_Load()
Set cox_nlx = New Connection
Set cox_rds = New Recordset
cox_nlx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=terms.accdb;Persist Security Info=False"
cox_nlx.Open
cox_rds.Open "terminos", cox_nlx, adOpenDynamic, adLockOptimistic
End Sub

Gracias por la respuesta extrem, pero ahora como le tendria q hacer para mostrar el resultado de la consulta en una textbox ¿se puede?

De antemano gracias

[extrem_bcn]

Yo lo haria de esta manera


Option explicit

Dim cox_nlx As ADODB.Connection
Dim cox_rds, As ADODB.Recordset
Dim query_cx As String


Private Sub Form_Load()
Set cox_nlx = New Connection
Set cox_rds = New Recordset
cox_nlx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=terms.accdb;Persist Security Info=False"
cox_nlx.Open

Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds = query_cx, cox_nlx

text2.text = cox_rds("def")
End Sub

has de tener en cuenta que has de tener un textbox (llamado text1) donde pondrás la palabra a buscar y otro textbox (llamado text2) donde te mostrará la definición.

espero haberte ayudado.

[c0x]

Me tira error en:
cox_rds = query_cx, cox_nlx

Syntax Error

[extrem_bcn]

perdona, vaya cagada jeejeje

pon esto: cox_rds.open query_cx, cox_nlx

esto te funcionará seguro.

[c0x]

otra vz yo aqui fregando, lo cambie y ahora me tira esto:
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual

[extrem_bcn]

eso significa que no ha encontrado nada, ten en cuenta que la busqueda que te hace es EXACTA, si pones "manzana" solo buscará las que sean "manzana" y no encontrará "manzan" o "anzana" ok??

para controlar si está vacio el recordset haz lo siguiente:

'Esto mira que no esté vacio, si está vacio saldrá del proceso
if not(cox_rds.EOF and cox_rds.BOF) then

else
exit sub
end if