Cita:
Iniciado por Sylvestre Hola!!
Tengo un problema en una consulta a una BD..
al ejecutar el siguiente código..
Conjunto_de_resultados!clave = Clave_txt.Text & " "
Conjunto_de_resultados!apell1 = Apell1_txt.Text & " "
Conjunto_de_resultados!nombre = Nombre_txt.Text & " "
Conjunto_de_resultados!apell2 = Apell2_txt.Text & " "
Conjunto_de_resultados!Edad = Edad_txt.Text & " "
Conjunto_de_resultados!patologi = patologi_combo.Text & " "
Conjunto_de_resultados!lateralid = lateralid_combo.Text & " "
Conjunto_de_resultados!contrala = contrala_combo.Text & " "
Conjunto_de_resultados!comtec = comtec_combo.Text & " "
Conjunto_de_resultados!Agudepre = agudepre_combo.Text & " "
Conjunto_de_resultados!Agudepost = agudepost_combo.Text & " "
Conjunto_de_resultados!funcion = funcion_combo.Text & " "
Conjunto_de_resultados!celulas = celulas_combo.Text & " "
CadenaSQL = "SELECT Crondan.usoapo From Crondan WHERE (((Crondan.patolon)='" & Conjunto_de_resultados!patologi & "') AND ((Crondan.lateralin)='" & Conjunto_de_resultados!lateralid & "') AND ((Crondan.contralan)='" & Conjunto_de_resultados!contrala & "') AND ((Crondan.comtecn)='" & Conjunto_de_resultados!comtec & "') AND ((Crondan.agudepren)='" & Conjunto_de_resultados!Agudepre & "') AND ((Crondan.agudeposn)='" & Conjunto_de_resultados!Agudepost & "') AND ((Crondan.funcionn)='" & Conjunto_de_resultados!funcion & "') AND ((Crondan.celulasn)='" & Conjunto_de_resultados!celulas & "'))"
MsgBox "" & CadenaSQL
Set Conjunto_de_resultados2 = Base_de_datos.OpenRecordset(CadenaSQL, dbOpenDynaset, dbOptimistic)
usoap = Conjunto_de_resultados2!usoapo
me sale el error "Error 3021 en tiempo de ejecución. No current record.".
Pero hago la misma consulta en Access y sale el valor que estoy buscano, no es nula la consulta.. ¿a que se debe?
Gracias de antemano
SALUDOS
No crees que sería mejor usar:
Set Conjunto_de_resultados2 = New ADODB.Recordset
Conjunto_de_resultados2.Open CadenaSQL, adOpenDyna
set, adLockOptimistic