ATUALIZACAO COM ADO

USUARIO.EXCLUIDOS 30/03/2004 12:42:45
#17613
Me dá uma força por favor para fazer a rotina do botao gravar estou com alguns problemas, Obrigado.

General;
Dim conexao as New Connection 'Variável do Tipo Conexão
Dim rs as New RecordSet 'Variável do Tipo Tabela

No Form Load;

Private Sub Form_Load()
conexao.Provider = "Microsoft.Jet.OLEDB.4.0" 'especifica o tipo de banco de dados
conexao.Open "C:\Banco.mdb" 'abre o banco de dados
rs.Open "Tabela_Usuarios", conexao, 3 'abre a tabela
End Sub


Sub grava()
rs.Fields(0) = "" & Txt_Nome.Text
rs.Fields(1) = "" & Txt_Endereco.Text
End Sub


Private Sub cmd_grava_Click()
grava 'Chama a SUB
rs.Update 'Atualiza o Banco de Dados
MsgBox "Alteração Salva com Sucesso!"
rs.Move First 'Move para o Primeiro Registro
End Sub
RODRIGOMARCHESE 30/03/2004 13:06:30
#17622 Resposta escolhida
Se é para inserir:

grava
rs.addbnew
rs.Fields(0) = "" & Txt_Nome.Text
rs.Fields(1) = "" & Txt_Endereco.Text
rs.update
Tópico encerrado , respostas não são mais permitidas
Voltar