3

Quiero hacer una consulta sql, pero al ejecutarla con DoCmd.RunSQL me dice que necesita una instrucción SQL para que funcione. ¿Alguien sabe qué está mal?

Tengo otras consultas hechas igual y sí que funcionan, los nombres de las tablas y los campos están bien.

    Dim SQL3 As String
    SQL3 = "SELECT Unidades FROM Producto WHERE ID_Producto=14683"
    DoCmd.RunSQL SQL3

El error es:

Se ha producido el error '2342' en tiempo de ejecución: La acción EjecutarSQL requiere como argumento una instrucción SQL
7
  • podrias mostrar el error tal como aparece? pegalo como texto, no como una imagen...
    – gbianchi
    Commented el 19 ago. 2020 a las 13:28
  • usa el boton editar y pone el error en la pregunta... pero ese sql esta correcto
    – gbianchi
    Commented el 19 ago. 2020 a las 13:55
  • El error 2342 que mencionas suele generarse por falta de un selector, este link tiene mas información access-excel.tips/access-docmd-runsql-error-2342 espero te sirva
    – user10544
    Commented el 19 ago. 2020 a las 14:02
  • Funciona, pero lo que me hace es crear una consulta, lo que necesito es que me devuelva un valor para guardarlo en una variable sin que me cree una consulta en la base de datos.
    – Mrnando
    Commented el 19 ago. 2020 a las 14:13
  • 1
    Voy a reeditar tu pregunta.. En este sitio esta muy bien visto que contestes tu propia pregunta, en la parte de abajo, donde dice respuestas!!!!!
    – gbianchi
    Commented el 19 ago. 2020 a las 14:57

1 respuesta 1

2

El error se produce porque:

Dim SQL3 As String
SQL3 = "SELECT Unidades FROM Producto WHERE ID_Producto=14683"
DoCmd.RunSQL SQL3 

El método .RunSql únicamente ejecuta consultas de acción. O lo que es lo mismo, actúa sobre la BBDD actualizándola UPDATE, insertando, INSERT etc... no funciona usando un SELECT

Para poder capturar en una variable algún valor, debes instanciar un objeto RecordSet y recorrer el resultado (ten en cuenta que esto se debe a que el resultado de la consulta puede devolver varios registros a la vez)

Con este código:

    Dim dbs As DAO.Database
    Dim rsSQL As DAO.Recordset
    Dim strSQL As String
    
    Set dbs = CurrentDb
    
    'Open a snapshot-type Recordset based on an SQL statement
    strSQL = "SELECT * FROM Table1 WHERE Field2 = 33"
    Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)

Ya tienes creado el objeto Recordset en rsSQL. Luego solo tienes que recorrerlo con With y capturar los valores que desees: Como puedes ver, dentro del Loop, se recorrerá toda la consulta, tanto si hay un resultado como si hay varios. Los campos se indican como ![campo1]. En el ejemplo se editan, y se actualiza, pero tú puedes únicamente leer y asignar a una variable el valor de un campo Mivariable = ![campo1] (eso sí, define bien el tipo de variable, ya que podría no ser compatible con el dato leído...)

' If the recordset is empty, exit. 
   If rstEmployees.EOF Then Exit Sub 
 
   With rsSQL 
      Do Until .EOF 
         .Edit 
         ![ReportsTo] = 5 
         ![Title] = "Temporary" 
          .Update 
         .MoveNext 
      Loop 
   End With 

Para finalizar, ya fuera del Loop, y no menos importante, debes destruir la instancia... primero se cierra el objeto y luego se destruye la instancia

rsSQL.Close
Set rsSQL = Nothing

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.