Cuestión : Ayudar con la llamada de procedimiento almacenado del SQL del acceso

Hola toda, ésta es mi primera tentativa en la llamada de un procedimiento almacenado del SQL del acceso probablemente a hacer algo realmente estúpido.  Se es que intenta leer para arriba en cómo llamar procedimientos almacenados y que consigue la información en conflicto así que ésta el mejor que podría subir con: ¡el

amortigua el DB como sqlExpr dévil de Database
como rs déviles de String
mientras que el
de Recordset
determinado DB = sqlExpr del
de CurrentDb () = “getWastePrice del PROCEDIMIENTO “” y las formas! ¡[el frmOutgoing]! [ShipDate]. Value y “”, “y los rs del
de HazWasteID
MsgBox (sqlExpr) = mensaje de error determinados del

The de db.OpenRecordset (sqlExpr, dbOpenSnapshot, dbSQLPassThrough) que estoy consiguiendo es “error de sintaxis en

Now de la cláusula del PARÁMETRO el " he insertado el MsgBox adentro allí así que puedo ver que cuál es el valor del sqlExpr y se vuelve getWastePrice del as

PROCEDURE “02/02/2010”, 118

Which es lo que esperaría.  ¿Cuál es tan incorrecto conmigo sintaxis?

Open a otro, mejores maneras de llamar procedimientos almacenados con los parámetros que values.

Thanks. class= del

Respuesta : Ayudar con la llamada de procedimiento almacenado del SQL del acceso

Bien, si usted pegan el código abajo en un nuevo módulo y entonces usted estar libre de llamarlo en la voluntad.
Por ejemplo el usar:

   Qdf dévil como DAO.QueryDef
   Rst dévil como DAO.Recordset
   strSQL dévil como secuencia

   ¡strSQL = “getWastePrice de EXEC “” y formas! ¡[el frmOutgoing]! [ShipDate]. Valor y “”, “y HazWasteID
   Fijar el qdf = el fCreatePassThrough ("", strSQL, “YourDBName”, “YourServerName”, verdades)
   Fijar el rst = qdf.OpenRecordset
   
   El rst de Debug.Print (0) 'hace lo que usted necesita aquí

   rst. Cierre
   Fijar el rst = nada
   Fijar el qdf = nada

Ver si eso le tiene sentido.

Aclamaciones.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

fCreatePassThrough de la función (strName como secuencia, strSQL como secuencia, strDBname como secuencia, _
                        strServer como secuencia, blnIntegratedSecurity opcional como boleano, _
                        strUserName opcional como secuencia, strPassword opcional como secuencia, _
                        blnReturnsRecords opcionales como boleanos = strDriver verdadero, opcional como secuencia = “{servidor del SQL} ") como DAO.QueryDef
    
    DB dévil como base de datos
    Qdf dévil como QueryDef
    strConnect dévil como secuencia
    
    strConnect = “ODBC; Driver=” y strDriver y”; Server= " y strServer y “; Database=” y strDBname
    Si blnIntegratedSecurity entonces
        strConnect = strConnect y “; Trusted_Connection=Yes”
    
        Si Len (strUserName) > 0 y Len (strPassword) > 0 entonces
            strConnect = strConnect y “; UID=” y strUserName y”; PWD= " y strPassword
        Terminar si
    Terminar si
    
    Fijar DB = CurrentDb
    Fijar el qdf = db.CreateQueryDef (el strName)

    Con el qdf
        .ReturnsRecords = blnReturnsRecords
        . Conectar = strConnect
        .sql = strSQL
        .ODBCTimeout = 60
    Extremo con
    Fijar el fCreatePassThrough = el qdf
    
    Fijar el qdf = nada
    Fijar DB = nada
    
Terminar la función
Otras soluciones  
 
programming4us programming4us