Eu criei uma procedure no sql server que me retorna alguns registros de uma tabela e estou atribuindo esta procedure a um recordset para que eu possa exibir o resultado esta procedure em uma grid, por exemplo.
eu gostaria de confirmar se tenho com configurar as propriedades CursorType e LockType pra este recordset
pois nao estou abrindo no metodo tradicional tipo .... rst.open <query>, <conection>, CursorType,LockType
Estou abrindo assim set rst = cmd.execute
cmd é um objeto command que executa a procedure
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim par_codigo As ADODB.Parameter
Dim par_nome As ADODB.Parameter
Dim rst As ADODB.Recordset
Private Sub Command1_Click()
cnn.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=True;" & _
"User ID=sa;" & _
"Password=xxxxxxx;" & _
"Initial Catalog=xxxxx;" & _
"Data Source=192.xxxxxBDxxxx"
cnn.Open
Set cmd = New ADODB.Command
With cmd
Set .ActiveConnection = cnn
.CommandType = adCmdStoredProc
.CommandText = "sp_geral"
End With
Set par_codigo = cmd.CreateParameter("@idquery", adInteger, adParamInput)
par_codigo.Value = 1
cmd.Parameters.Append par_codigo
Set rst = cmd.Execute()
Do Until rst.EOF
'MsgBox rst.Fields(0)
MsgBox rst!ti_codempresa
rst.MoveNext
Loop
End Sub
Pois eu quero configurar este recordset como Readonly ou adLockOptimistic ou adOpenDynamic ou adOpenForwardOnly
quando eu faço set rst = cmd.execute ele bota como padrao
cursor type: adOpenStatic e locktype: adLockBatchOptimistic
