Atualizar Banco de Dados

[Ronaldo73]

Olá pessoal, tudo bem

Fiz umas adaptações na minha planilha, e o botão atualizar não esta descarregando os dados do formulário para o Banco de dados, por isso postei o código abaixo para vocês verificar.

Sub geral(nomeBD As String, ByVal IDFunc As Long, atualizar As Boolean, excluir As Boolean, novo As Boolean)

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nomeBD & ";"

Set rs = New ADODB.Recordset

On Error Resume Next

'   Separa o nome nos componentes "Título", "Primeiro nome" e "Sobrenome"
'   A função Split somente funciona a partir do Excel XP
    nome = Split(frmBD.txtNome, " ")
    
    If atualizar = True And excluir = False And novo = False Then

'   Inicia a construção da instrução SQL:
'   Atualizar (UPDATE) Tabela e definir (SET) Cargo= frmBD.txtCargo ...
    Sql = "UPDATE " & Tabela & " SET Cargo='" & frmBD.txtCargo & "'"
    Sql = Sql & ", Título='" & nome(0) & "'"
    Sql = Sql & ", PrimeiroNome='" & nome(1) & "'"
    Sql = Sql & ", Sobrenome='" & nome(2) & "'"
    Sql = Sql & ", Admissão='" & frmBD.txtAdmissao & "'"
    Sql = Sql & ", Nascimento='" & frmBD.txtNascimento & "'"
    Sql = Sql & ", Ramal='" & frmBD.txtRamal & "'"
    Sql = Sql & ", FoneRes='" & frmBD.txtFone & "'"
    Sql = Sql & ", Notas='" & frmBD.txtNotas & "'"
    Sql = Sql & ", Notas2='" & frmBD.txtNotas2 & "'"
        
'   Onde (WHERE) IDFunc= IDFunc
    Sql = Sql & " WHERE IDFunc=" & IDFunc
'   Executar instrução
    cn.Execute Sql
    
'   Se a condição acima não for verdadeira, então avaliar esta
'   condição. Se esta condição for verdadeira, então, remover
'   registro atual
    ElseIf atualizar = False And excluir = True And novo = False Then
'       String SQL usada no método Execute da conexao
        Sql = "DELETE * FROM " & Tabela & " WHERE IDFunc=" & IDFunc
'       Executar o comando SQL
        cn.Execute Sql
'       Recarregar as informações do formulário
        Call carregarInfo
        
'   Se a condição acima não for verdadeira, então avaliar esta
'   condição. Se esta condição for verdadeira, então, adicionar
'   registro.
    ElseIf atualizar = False And excluir = False And novo = True Then
        With rs
            .Open Tabela, cn, adOpenKeyset, adLockOptimistic, adCmdTable
            .AddNew
            .Fields("Sobrenome") = nome(2)
            .Fields("PrimeiroNome") = nome(1)
            .Fields("Título") = nome(0)
            .Fields("Cargo") = frmBD.txtCargo
            .Fields("Nascimento") = frmBD.txtNascimento
            .Fields("Admissão") = frmBD.txtAdmissao
            .Fields("FoneRes") = frmBD.txtFone
            .Fields("Ramal") = frmBD.txtRamal
            .Fields("Notas") = frmBD.txtNotas
            .Fields("Notas2") = frmBD.txtNotas2
            .Update
        End With
        Call carregarInfo
    End If

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

End Sub

Editado Novembro 24, 2010 por kuroi
Adicionar tag CODE