USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Duvida recordset
Everest
BARRA MANSA
RJ - BRASIL
ENUNCIADA !
Postada em 05/07/2006 20:16 hs            
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
 
 
 
 
   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 06/07/2006 07:36 hs            
'faça isso antes de fazer o execute.
rst.CursorType = adOpenDynamic
rst.LockType = adLockReadOnly
   
Everest
BARRA MANSA
RJ - BRASIL
ENUNCIADA !
Postada em 06/07/2006 11:04 hs            
Seu exemplo mais uma vez nao funcionou, procure testar antes de responder
   
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 06/07/2006 11:19 hs            
everest , pode nao ter funcionado na sua maquina, na minha funciona perfeitamente
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página