0

Tengo una duda acerca de una Tabla que se necesita registrar la hora que ingreso a cada tabla Por Ejemplo: Empresa, Usuarios, Configuración del Correo y Cambio Estatus

introducir la descripción de la imagen aquí

introducir la descripción de la imagen aquí

Este es el código que utilicé para Insertar los Registros

'Insert de Registros

Dim vm_tabla As DataTable = New DataTable
Dim vm_sql As String = ""

Public Sub Gd_perfil()
    Dim dt As DataTable

    vm_sql = "Insert [KNTB_Bitacora] (David,getdate(),Empresa)"
    sql.Traer_info_sql(vm_sql, vm_tabla)
    GridControl1.DataSource = vm_tabla

    GridView1.BestFitColumns()
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    Gd_perfil()

    GridView1.BestFitColumns()
End Sub

La pregunta es, en el botón de Insertar, debo Utlizar 4 Nombres y 4 Empresas para que quede registrado en la tabla, o cada uno?

Ejemplo:

vm_sql = "Insert [KNTB_Bitacora] (David,Pedro, getdate() ,Empresa, Usuarios)"

1 respuesta 1

0

Entiendo que la tabla de bitácora (KNTB_Bitacora) tiene 3 campos: NombreUsuario, Fecha, LugarInsercion.

Cada vez que un usuario acceda a una de esas tablas ( Empresa, Usuarios, Configuración del Correo y Cambio Estatus) quieres que la aplicación realice un INSERT.

El "Sub Gd_perfil()" debería recibir 2 parámetros y quedarse así:

Public Sub Gd_perfil(Usuario as string, Tabla as string)

Dim dt As DataTable

vm_sql = "Insert into [KNTB_Bitacora] (NombreUsuario, Fecha, LugarInsercion) _ values ('" & Usuario & "', GetDate(), '" & Tabla & "')"

sql.Traer_info_sql(vm_sql, vm_tabla)

GridControl1.DataSource = vm_tabla

GridView1.BestFitColumns()

End Sub

Esto se ejecutará cada vez que un usuario acceda a una de las tablas.

20
  • Por ejemplo si tengo eso Insert KNTB_Bitacora (id,Modulo,Usuario,Fecha_Ingreso,Observaciones) como seria en values?
    – Fopa
    el 23 oct. 2019 a las 14:48
  • Para una tabla de este tipo, el id debe ser autonumérico (identidad en SQL Server), en el caso que muestras la función deberá recibir un parámetro adicional llamado "observacion": Public Sub Gd_perfil(Usuario as string, Tabla as string, Observacion as string) Luego el insert sería: vm_sql = "Insert [KNTB_Bitacora] (Usuario, Fecha_Ingreso, Modulo, Observaciones) _ values ('" & Usuario & "', GetDate(), '" & Tabla & "'", '" & Observacion & "')" el 23 oct. 2019 a las 15:31
  • aunque me marque NULL en el SQL, se puede ejecutar desde Visual Studio VB?
    – Fopa
    el 23 oct. 2019 a las 15:47
  • si se ejecuta, aparece todas la tablas, pero cuando le doy click en los botones ya sea Usuarios o Empresas, no me registra los datos con las fechas actuales
    – Fopa
    el 23 oct. 2019 a las 16:13
  • Me imagino que el valor NULL debe ser de Observciones. Para evitarlo, antes del insert pon lo siguiente Observacion = IIF(IsDBNull(Obsevacion), "", Observacion) No acabo de entender el segundo comentario. Pon un punto de interrupción en la línea sql.Traer_info_sql(vm_sql, vm_tabla)y mira el contenido de la variable vm_sql el 23 oct. 2019 a las 16:37

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.