Sentencia Select SQL en VB con Access 2010

Respuesta de
a
Avatar
Usuario
Deseo saber como puedo realizar una sentencia SELECT de SQL desde VB. El código que utilizo es este:

Dim SQL
SQL = "SELECT Tabla1.[Id de Usuario] FROM Tabla1 WHERE  Tabla1.[Usuario] = 'ABEL'"DoCmd.RunSQL SQL
MsgBox SQL, vbInformation

Pero me da error. He leído que no se puede realizar la sentencia SELECT con el operador DoCmd.RunSQL, si es así que puedo usar para realizar la operación SELECT desde VB.

Gracias de antemano.
Avatar
Experto
Cordial saludo,

 

La sintaxis esta errada prueba así:

 

SQL_text= "SELECT Tabla1.[Id de Usuario] FROM Tabla1 WHERE  Tabla1.[Usuario] ='" & ABEL & "'"

Docmd. RunSQL (SQL_Text, false)
Avatar
Usuario
Aun me sigue dando error ahora dice:

Se ha producido un error 2342 en tiempo de ejecución:

La EjecucionSQL requiere como argumento una instrucción SQL.

No se si podrías aclarme el por que de este error o como solucionarlo. Gracias
Avatar
Experto
Arma la consulta en vista de diseño y la pruebas y luego pasas a VBA
Avatar
Usuario
Lo hice exactamente como me pediste pero aun así no lo logre, lo que hice fue hacer una consulta utilizando una sentencia SQL como el origen de una tabla de esta forma si se pudo utilizar, de otra forma no la pude usar nunca gracias por tu ayuda.