1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Sub insert_erreur_bdd(ByVal errMessage As String, _
ByVal errCode As String, _
ByVal errSource As String, _
ByVal errPile As String, _
ByVal errProcedure As String)
Try
Dim sc As New SqlConnection()
Dim rqt As String
Dim chaine As String = "Persist Security Info=False;User ID=********;Password=*****;Initial Catalog=*****;Server=***"
Dim date_err As String = Date.Today.TimeOfDay.ToString
Dim pnom As String = Environment.UserName
sc.ConnectionString = chaine
sc.Open()
rqt = "INSERT INTO [dbo].[erreur]" & _
"([pnom]" & _
",[date_err]" & _
",[libelle]" & _
",[valeur]" & _
",[prog]" & _
",[pile]" & _
",[methode])" & _
"VALUES" & _
"('" & pnom & "'" & _
",'" & date_err & "'" & _
",'" & errMessage & "'" & _
",'" & errCode & "'" & _
",'" & errSource & "'" & _
",'" & errPile & "'" & _
",'" & errProcedure & "')"
Dim sInsert As New SqlCommand(rqt, sc)
Dim i As Integer
i = sInsert.ExecuteNonQuery()
sc.Close()
Exit Sub
Catch err As Exception
MsgBox(err.Message)
Finally
End Try
End Sub |
Partager