Définition de CursorType avec ADODB.Command.Execute

Question

Y at-il un moyen de définir le CursorType pour un ADODB.RecordSet que j'obtiens de ADODB.Command.Execute?

Je sais qu'il est possible que si je fais:

rs = Server.CreateObject("ADODB.RecordSet") 
rs.Open(cmd) 

Cependant, j'utilise actuellement Command.Execute avec le paramètre Parameters, qui gère automatiquement les tableaux de variantes de-? paramètres pour l'interpolation en toute sécurité. Par conséquent, l'utilisation de RecordSet.Open ne semble pas être une option.

Plus précisément, mon code ressemble actuellement:

function ExecuteSQL(conn, sql, args) 
    set ExecuteSQL_CmdObj = Server.CreateObject("ADODB.Command") 
    ExecuteSQL_CmdObj.CommandType = adCmdText 
    ExecuteSQL_CmdObj.CommandText = sql 
    ExecuteSQL_CmdObj.ActiveConnection = conn 
    if Ubound(args) = -1 then 
     set ExecuteSQL = ExecuteSQL_CmdObj.Execute 
    else 
     set ExecuteSQL = ExecuteSQL_CmdObj.Execute(,args) 
    end if 
end function 

Si je veux maintenir cette même API, mais aussi contrôle CursorType, comment cela peut-il être accompli?

Answer 1

La réponse, pour autant que je suis en mesure de déterminer est que c'est impossible avec ADODB.Command.Execute, mais, si vous travaillez dur et croyez en vous-même, il est possible avec l'aide ADODB.RecordSet.OpenADODB.Command.Parameters:

function CreateSQLParameter(arg) 
    set param = Server.CreateObject("ADODB.Parameter") 

    select TypeName(arg) 
     case "String" 
      param.Type = adVarChar 
      param.Size = Len(CStr(arg)) 
      param.Value = CStr(arg) 
     case "Integer" 
      param.Type = adInteger 
      param.Value = CLng(arg) 
     case "Double" 
      param.Type = adDouble 
      param.Value = CDbl(arg) 
     case else 
      ' 13 is the "Type Mismatch" error code 
      Err.Raise(13,,, "Type '" & TypeName(arg) "' is not handled. Please add support for it to CreateSQLParameter") 
    end select 

    set CreateSQLParameter = param 
end function 

function CreateSQLCommand(sql, args) 
    set cmd = Server.CreateObject("ADODB.Command") 
    'From http://www.w3schools.com/asp/prop_comm_commandtype.asp. 
    'adCmdText is for some reason undefined in our scope. 
    cmd.CommandType = 1 
    cmd.CommandText = sql 

    for i = Lbound(args) to Ubound(args) 
     set param = CreateSQLParameter(args(i)) 
     cmd.Parameters.Append(param) 
    next 

    set CreateSQLCommand = cmd 
end function 

function ExecuteSQL(conn, sql, args) 
    set cmd = CreateSQLCommand(sql, args) 
    set rs = Server.CreateObject("ADODB.RecordSet") 
    rs.Open(cmd, conn) 

    set ExecuteSQL = rs 
end function 

Answer 2

Hope this vous aide:

ExecuteSQL_CmdObj.ActiveConnection.CursorType = yourType 

De: http://www.w3schools.com/asp/prop_conn_cursorlocation.asp

Syntaxe:

objConnection.CursorLocation 
objRecordset.CursorLocation