Private Sub Command1_Click()
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = DBConn
DBConn.CursorLocation = adUseClient
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_geral"
Set par_idquery = cmd.CreateParameter("@IDQuery", adInteger, adParamInput)
par_idquery.Value = 1
cmd.Parameters.Append par_idquery
Set rstEmp = cmd.Execute
Debug.Print rstEmp.CursorType & " " & rstEmp.LockType
Text1.Text = rstEmp!codempresa
Text2.Text = rstEmp!razaosocial
End Sub
O problema é o seguinte, as minhas queryes estao dentro de uma procedure no banco sql server, entao eu passo o cmd.execute para um recordset para que eu possa manipular esse recordset, ou seja, dar moveprevious, movenext, moveMin, abrirsomenteleitura, bloquear registros para outros usuarios, etc, so que quando eu faço isso ele coloca como padrao o CursorType como adOpenKeyset e LockType como adLockReadOnly. Pergunta, Tem algum jeito de fazer com que esse recordset abra como CursorType como adOpenDynamic e LockType como adLockPessimistic??? Pois e quero poder navegar nos registros e configurar o LockType
Se eu nao puder usar isso esse negocio de procedure é um verdadeiro lixo e o ADO do VB mais ainda.
Por favor nao deem respostas evasivas responda somente se vc souber.
Se alguem puder ajudar...
T+
