Ustawienie CursorType z ADODB.Command.Execute

Question

Czy istnieje sposób ustawienia CursorType dla ADODB.RecordSet, którą otrzymuję od ADODB.Command.Execute?

wiem, że to jest możliwe, jeśli robię:

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

Jednak Używam obecnie Command.Execute z parametrem Parameters, który automatycznie obsługuje wariant tablic ? parametrów bezpiecznego interpolacji. Dlatego używanie opcji RecordSet.Open nie wydaje się być opcją.

Konkretnie mój kod wygląda obecnie:

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 

Jeśli chcę utrzymać ten sam API, ale również kontroli CursorType, w jaki sposób można to osiągnąć?

Answer 1

odpowiedź, o ile byłem w stanie ustalić, że jest to niemożliwe przy ADODB.Command.Execute, ale jeśli ciężko pracować i wierzyć w siebie, to możliwe z użyciem ADODB.Command.ParametersADODB.RecordSet.Open:

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

Nadzieja to pomaga:

ExecuteSQL_CmdObj.ActiveConnection.CursorType = yourType 

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

Składnia:

objConnection.CursorLocation 
objRecordset.CursorLocation