Tengo un problema con este código para hacer consultas a la tabla, es para una diccionario:
term es el campo donde se almacena el termino a buscar
def es la definicion de la palabra
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=dic-es.accdb;Persist Security Info=False"
cox_nlx.Open
End Sub
Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds.Open query_cx, cox_nlx
Text2 = cox_rds("def")
End Sub
El code me tira este error:
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
Espero q alguein me pueda ayudar con esto
ciao
Mostrar Mensajes
