Como crear una bitacora

[jlguillen]

Hola saludos!!!!!

soy nuevo en el foro!,, y quisiera saber como crear una bitacora en VB.net

lo que hice hasta el momento es crear una tabla en la base de datos con el nombre de "BITACORA" en ella se guarda el nombre de usuario, a que sucursal pertenece, la hora de inicio y la hora de salida del sistema!!

lo que quisiera saber es como guardar en la tabla los nombres de los modulos que el usuario a visitado. asi como los botones de los diferentes modulos.

agradezco la ayuda!!!!

[gctalico]

que tal yo hice algo similar y lo que hice es en los procedimientos de sql cuando se realiza alguno agregar los datos que quiero a la bitacora, ejemplo si das de alta un cliente tienes que hacer un procediemiento en sql para que guarde los datos
en ese mismo procedimiento hago el insert para la tabla bitacora con los parametros que necesito
asi tengo en todo el codigo para cada procedimiento, hago el procediemiento que necesito yademas guardo en la bitacora lo que se hizo

[jlguillen]

pero si ya estoy unasndo un procedimiento para almacenar todos esos datos!!!!
y de ese procedimiento quiero cargar todo a la base de datos!!
y que me me falta guardar son los modulos visitados!!

no se si tendria que hacer un procedimiento en cada modulo para guardar en la bitacora!!????

y lo que estuve intentando fue guardar los nombres de los modulos al momento de precionar el botonque les correspondia, pero el problema es que me guardaba todos los modulos!!

gracias!!!

[gctalico]

ESTE ES UN EJEMPLO

Código SQL:

-- Operacion de insercion en la tabla INSERT para asignar el folio
  IF (@tynOperacion = 1) 
  BEGIN
   --   Validar Duplicados
   SELECT @iResult=COUNT(iCodArticulo) FROM TB_Articulo
          WHERE vchClaveArticulo=@vchClaveArticulo
 
   IF (@iResult = 0)
   BEGIN
    -- Obtiene el nuevo folio e inserta para marcar la fila
     EXECUTE @iCodArticulo = SP_Folio 3
    IF (@iCodArticulo > 0)
    BEGIN
      -- Verifica si ya se encuntra el folio
      SELECT @iResult = COUNT(iCodArticulo) FROM TB_Articulo WHERE iCodArticulo = @iCodArticulo
      -- Verifica si existieron repeticiones
      IF (@iResult = 0)
        -- Inserta la fila con valor por defaul
        INSERT TB_Articulo (iCodArticulo, vchClaveArticulo, vchDescripcion, smlLinea, smlCajaCon, fltPrecioPublico, fltCosto, tynIVA, tynImpuesto1, smlExistencia,tynEstatus) 
                  VALUES (@iCodArticulo, @vchClaveArticulo, @vchDescripcion, @smlLinea, @smlCaja, @fltPrecio, @fltCosto, @tynIVA, @tynImpuesto1, @smlExistencia,@tynEstatus)
    
-- ESTA ES LA PARTE DONDE INSERTA EN LA BITACORA AQUI PASAS 
--LOSPARAMETROS QUE QUIERES
  IF (@@ERROR = 0)
      BEGIN
          SELECT @dttTimestamp = GETDATE() 
          SELECT @vchKey = RTRIM(CONVERT(VARCHAR(10), @iCodArticulo)) + RTRIM(@vchDescripcion)
          EXECUTE SP_Bitacora 1, @smlOUsuario, @dttTimestamp, 'ARTICULOS', 'GUARDAR', @vchKey, 0
         SELECT @iResult = @iCodArticulo
      END
 
      ELSE
        SELECT @iResult = -2 -- Error al insertar en tabla
    END
    ELSE
      SELECT @iResult = -10 -- Error al obtener nuevo folio
   END
   ELSE
     SELECT @iResult = -6 -- Articulo Duplicado
  END
 

LA PARTE DONDE EJECUTA EL PROCEMIENTO LO PUEDE HACER EN LOS PROCEDIMIENTOS QUE TENGAS
SERIA AGREGAR LO MISMO A TODOS SOLO CAMBIAR ALGUNOS PARAMENTROS