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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  novato em ado
equipa_elafar
não registrado
ENUNCIADA !
Postada em 20/08/2005 11:32 hs   
Pessoal uso access, com activex data oljects 2.7 library, activex data oljects 2.7 library e ado ext 2.5 for ddl and security, nao toh coseguindo salvar

no generals
Public conexao As ADODB.Connection   'nao coloque new aqui
Public rs As ADODB.Recordset         'nao coloque new aqui
Private Sub Form_Load()
   Set conexao = New ADODB.Connection
   Set rs = New ADODB.Recordset
   conexao.Provider = "Microsoft.Jet.OLEDB.4.0"
   conexao.Open "C:Teste.mdb"    'abre o banco de dados
   call carrega
End Sub
Public Sub carrega()
   rs.Open "Select * from Cad", conexao, adlockoptimistic, adopendynamic
  Text1 = rs(0)   'Carrega o campo 1 a Text1
  Text2 = rs(1)   'Carrega o campo 2 a Text2
End Sub
Private Sub Command2_Click()
  rs.AddNew     'Adicionar um registro
  rs.Fields(0) = "" & Text1.Text
  rs.Fields(1) = "" & Text2.Text
  rs.Update           'Atualiza o Banco de Dados
  MsgBox "Alteração Salva com Sucesso!"
  rs.Move Min       'Move para o Primeiro Registro
End Sub
 
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 22/08/2005 08:31 hs         
AddNew não é necessário no ADO.
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 22/08/2005 13:20 hs            
Kerplunk,
 
Se o recordset estiver com um registro (nao for BOF AND EOF) vai atualizar  o registro atual... pra gravar um novo, precisa AddNew sim... o q foi excluido no ADO foi o Edit...
Qto ao codigo do nosso amigo, nao tem nda de errado...
 
Amigo, Qual o erro??? em qual linha???


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)

     
equipa_elafar
SÃO PAULO
SP - BRASIL
Postada em 22/08/2005 17:39 hs            
Fica amarelo rs.AddNew     'Adicionar um registro
Private Sub Command2_Click()
  rs.AddNew     'Adicionar um registro
  rs.Fields(0) = "" & Text1.Text
  rs.Fields(1) = "" & Text2.Text
  rs.Update           'Atualiza o Banco de Dados
  MsgBox "Alteração Salva com Sucesso!"
  rs.Move Min       'Move para o Primeiro Registro
End Sub

rafa
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 23/08/2005 11:41 hs            
Mas qual a mensagem de Erro???


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)

     
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