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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Trazer Quant de Linhas Afetadas
Renato Tavares
não registrado
Postada em 16/08/2005 15:48 hs   

Dim bd As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String

bd.Open ("DSN=Projeto_TCC;uid=;pwd=")
SQL = "SELECT *FROM DIMENSAO_VARIEDADE"

Set rs = bd.Execute(SQL)

Text1.Text = rs.RecordCount

End Sub

Por que o Comando acima retorna -1 no Text1.Text

Como fazer para retornar o total das linhas afetadas?

Alguem Sabe?

     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 16/08/2005 17:05 hs            
Amigo
Duas considerações pra vc...
 
Primeiro: Se vc quer o RecordCount, vai ter q configurar o CursorType e o LockType do seu recordset...os valore padrao nao permitem usar o Recordcount e o AbsolutePosition...
 
Faz assim:
Set rs = New Adodb.Recordset
Set rs.ActiveConnection = db
rs.CursorType = adOpenKeySet
rs.CursorLocation = adLockOptimistic ' ou adLockPessimistic
rs.Open sql
 
Ou entao vc pode resumir em um unico comando assim:
Set rs = New Adodb.Recordset
rs.Open sql, db, adOpenKeySet, adLockOptimistic
 
dai vc pode usar o Recordcount, o AbsolutePosition e o AbsolutePage
 
Mas amigo, vc perguntou sobre o RecordsAffecteds... e isso eh uma propriedade do objeto ADODB.Connection. O RecordCount retorna quantos registros existem no seu recordset... mas vc pode saber quantos registros foram afetados em um INSERT, UPDATE ou DELETE, fazendo assim:
Dim ra As Long 'essa variavel receve o nro de regs afetados
sql = "DELETE FROM cCliente" 'por exemplo
db.Execute sql, ra
Msgbox ra
 
ra deve mostrar o numero de registros afetados pelo comando... isso eh muito util pra vc saber se nao houve em instruçoes executadas dentro do proprio banco, como um Delete ou uma SP...
 
Espero ter ajudado vc... Abraços
 


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Renato Tavares
não registrado
Postada em 17/08/2005 08:06 hs   
Elieser
Bom Dia!
 
Amigo, utilizei das duas maneiras que vc passou.....
Valeu mesmo funcionou manero.....
 
muito obrigado,
 
Renato
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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