TRABALHANDO COM DB ACESS COM SENHA

Citação:

Private Sub cmdEnviar_Click()

[ô]Declarando Variavel de Conecção

Dim coneccao As ADODB.Connection

[ô]Declarando variavel de armazenamento de dados

Dim Dados As ADODB.Recordset

[ô]Definindo parâmetros para conecção

Set coneccao = New ADODB.Connection
coneccao.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Teste.accdb;Persist Security Info=False[Ô]

[ô]Definindo nova busca e armazenamento dos dados da tabela

Set Dados = New ADODB.Recordset

[ô]Definindo parâmetro dos dados

Dados.Open [Ô]Teste[Ô], coneccao, adOpenKeyset, adLockOptimistic, adCmdTable

[ô]Observe que a palavra [Ô]Teste[Ô] representa a tabela

[ô]Criando uma condição para que nenhum dado deixe de ser digitado

If txtNome = [Ô][Ô] Or txtCargo = [Ô][Ô] Or txtSalario = [Ô][Ô] Or txtSetor = [Ô][Ô] Then

MsgBox [Ô]Preencher todos os campos[Ô], vbCritical

Else

[ô] caso ocorra algum erro, a macro segue

On Error Resume Next

[ô]Inserindo os dados na tabela

With Dados
.AddNew
.Fields([Ô]Nome[Ô]) = txtNome.Value
.Fields([Ô]Cargo[Ô]) = txtCargo.Value
.Fields([Ô]Salário[Ô]) = txtSalario.Value
.Fields([Ô]Setor[Ô]) = txtSetor.Value
.Update
End With

[ô]Encerrando Recordset liberando memória

Dados.Close

Set Dados = Nothing

[ô] Encerrando coneccao

coneccao.Close

Set coneccao = Nothing

[ô]Limpando textbox para nova lançamento

txtNome = Empty
txtCargo = Empty
txtSalario = Empty
txtSetor = Empty

[ô]Definindo foco no textbox txtNome

txtNome.SetFocus

End If

End Sub