Consegui resolver!! Vou postar para ajudar alguem que tbm precise.
Estou usando esse banco:
create table mapalog
(
cod_mapalog bigint(5),
tipousuario_mapalog varchar(30),
usuario_mapalog varchar(30),
data_mapalog varchar(10),
hora_mapalog time,
descricao_mapalog varchar(200)
);
alter table mapalog add
constraint pk_cod_mapalog_cod_mapalog primary key (cod_mapalog);
alter table mapalog
modify cod_mapalog bigint(5) auto_increment not null;
delimiter $$
create procedure usp_mapalog_insert
(
_tipousuario_mapalog varchar(30),
_usuario_mapalog varchar(30),
_data_mapalog varchar(10),
_hora_mapalog time,
_descricao_mapalog varchar(300)
)
Begin
Insert into mapalog
(
tipousuario_mapalog,
usuario_mapalog,
data_mapalog,
hora_mapalog,
descricao_mapalog
)
values
(
_tipousuario_mapalog,
_usuario_mapalog,
_data_mapalog,
_hora_mapalog,
_descricao_mapalog
);
end $$
delimiter ;
delimiter $$
create procedure usp_mapalog_select()
begin
select * from mapalog;
end $$
delimiter ;
E fiz um form com um datagrid, com esses codigos:
Public Class frm_Log
Private Sub frm_Log_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = carregarDataGridView1().Copy()
DataGridView1.Columns(0).HeaderText = "Código"
DataGridView1.Columns(0).Visible = False
DataGridView1.Columns(1).HeaderText = "Tipo de Usuário"
DataGridView1.Columns(1).Visible = True
DataGridView1.Columns(1).Width = 80
DataGridView1.Columns(2).HeaderText = "Usuário"
DataGridView1.Columns(2).Visible = True
DataGridView1.Columns(2).Width = 120
DataGridView1.Columns(3).HeaderText = "Data"
DataGridView1.Columns(3).Visible = True
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).HeaderText = "Hora"
DataGridView1.Columns(4).Visible = True
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).HeaderText = "Descrição"
DataGridView1.Columns(5).Visible = True
DataGridView1.Columns(5).Width = 420
End Sub
Private Function carregarDataGridView1() As DataTable
Dim conn As New MySqlConnection("server=localhost;User Id=root;password=admin;Persist Security Info=True;database=workshopmanager")
Dim cmd As New MySqlCommand("USP_MAPALOG_SELECT", conn)
Dim dt As New DataTable
cmd.CommandType = CommandType.StoredProcedure
Try
conn.Open()
dt.Load(cmd.ExecuteReader())
Return dt
Catch ex As Exception
Throw ex
Finally
If conn.State <> ConnectionState.Closed Then
conn.Close()
End If
End Try
End Function
Public Sub escreverLog(ByVal tipousuario As String, ByVal usuario As String, ByVal data As String, ByVal hora As TimeSpan, ByVal descricao As String)
Dim conn As New MySqlConnection("server=localhost;User Id=root;password=admin;Persist Security Info=True;database=workshopmanager")
Dim cmd As New MySqlCommand("USP_MAPALOG_INSERT", conn)
cmd.Parameters.Add(New MySqlParameter("_tipousuario_mapalog", tipousuario))
cmd.Parameters.Add(New MySqlParameter("_usuario_mapalog", usuario))
cmd.Parameters.Add(New MySqlParameter("_data_mapalog", data))
cmd.Parameters.Add(New MySqlParameter("_hora_mapalog", hora))
cmd.Parameters.Add(New MySqlParameter("_descricao_mapalog", descricao))
cmd.CommandType = CommandType.StoredProcedure
Try
conn.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
Finally
If conn.State <> ConnectionState.Closed Then
conn.Close()
End If
End Try
End Sub
E na hora do insert, exclusao e alteracao usei essa linha. Só mudando o texto conforme o tipo da ação.
frm_Log.escreverLog(frm_Usuario.ToolStripStatusLabel1.Text, frm_Usuario.ToolStripStatusLabel2.Text, DateTime.Now.ToString("d"), Now.TimeOfDay, "EXCLUSÃO DO CLIENTE DE NOME: " + txt_Nome.Text.Trim())
