Histórico - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Histórico

Nubia

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 13/11/2009 15:11 hs

Olá pessoal, sou nova por aqui. Gostaria de saber como fazer para criar um histórico de alterações feitas nos campos de um form. Preciso da data, nome do campo e se possível o conteúdo alterado.
Vi alguns tutoriais com logs em xml, mas não sei como incorporar isso. Alguém pode me ajudar?

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 13/11/2009 19:12 hs

Se vc dseja fazer historico apenas das alterações pode usar um arquivo texto mesmo, é mais fácil

o segredo está em salvar o historico antes de alterar

ou seja isto em minha concepção

para se alterar um registro vc deve primeiro busca-lo no banco certo.

então ao carrega-lo alem de exibir nos textbox armazenos em variaveis

ex:

Dim Nome As String

Nome = RS!nome

txtNome.Text = RS!Nome

quando fizer o update gere esta alteração comparando o que está diferente entre a Varivel e os Textbox

bom poste o código que utiliza para fazer a alteração que poderei ajuda-la

Nubia

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/11/2009 12:12 hs

Olá, desculpe a demora para responder. Ainda não entendi muito bem, mas o código que eu uso é esse:

Private Sub cmdAlterar_Click()

HABILITA_CAMPO
    TXTRF.SetFocus
    V_Salva = 1
End Sub

Private Sub CMDSALVAR_Click()
If V_Salva = 1 Then
        If Checa_Campos <> True Then
               Alterar_Cadastro
               Exit Sub
        End If

Sendo Alterar_Cadastro uma rotina no módulo com variáveis para cada campo do formulário, no qual com cada um deles está assim:

Dim AlterDtaEvento As String

With FRMPrincipal
  AlterDtaEvento = .TXTULTIMOEVENTO.FormattedText
End With

Set cmd = New Command
        cmd.ActiveConnection = con
        cmd.CommandType = adCmdStoredProc 'nome de uma Stored Procedure que equivale a uma consulta ação ou uma consulta seleção
        cmd.CommandText = "sp_alterar_Tbl_Funcionario"

Set AlterDtaEvento = cmd.CreateParameter("@Dta_Evento_Situacao", adVarChar, adParamInput, 10, TXTULTIMOEVENTO)

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR