Postada em 08/06/2004 10:15 hs
Para Conectar num Banco de Dados por método DAO no Access97:
1) Vá no menu Project - References do VB, marque a opção "Microsoft DAO 3.51 Objects"
2-a)Para conectar no Banco de Dados (Banco de Dados sem senha):
Dim Banco as DAO.Database
Set Banco = Workspaces(0).OpenDatabase("C:Teste.mdb")
2-b)Para conectar no Banco de Dados (Banco de Dados com senha):
Dim Banco as DAO.Database
Set Banco = Workspaces(0).OpenDatabase("C:Teste.mdb",False,False,";pwd=Senha")
3) Para Gravar dados numa tabela:
Dim Tabela as DAO.Recordset
Set Tabela = Banco.Openrecordset("Clientes",dbOpenTable)
Tabela.AddNew
Tabela!Codigo = 100
Tabela!Nome = txtNome.Text
Tabela!Endereco = txtEndereco.Text
Tabela.Update
Tabela.Close
4)Para Excluir um registro:
Banco.Execute "Delete * from Clientes where Codigo = " & txtCodigo.Text
ou
Set Tabela = Banco.OpenRecordset("Select * from Clientes where Codigo=" & txtCodigo.Text)
If Not Tabela.EOF Then
Tabela.Delete
MsgBox "Cliente Excluído!!"
Else
MsgBox "Cliente Não Existente!"
End If
Tabela.Close
5) Para Editar (Alterar) um Registro:
Set Tabela = Banco.OpenRecordset("Select * from Clientes where Codigo=" & txtCodigo.Text)
If Not Tabela.EOF Then
Tabela.Edit
Tabela!Nome = txtNovoNome.Text
Tabela!Endereco=txtNovoEndereco.Text
Tabela.Update
Else
MsgBox "Cliente Não Existente! Faça a Inclusão antes!"
End If
Tabela.Close
************************************ Espero que isso ajude!!! *************************************
Abraços!!!
Charles
|
