LogFunc(SalesAndInventory.lblUserMain.Text, " Copy Database from D:\Database " & ListView1.Items(k).SubItems(0).Text & " To " & LinkLabel3.Text & " Date: " & lbldt.Text & " Time: " & lbltm.Text & " By : " & sgUserName)
Sub LogFunc(ByVal st1 As String, ByVal st2 As String) Try Dim FilePath As String = "Server=" & My.Settings.srnm & "; Database= " & sgDatabaseName & ";" & " Integrated Security=True;" con = New SqlConnection(FilePath) con.Open() Dim cb As String = "insert into Tbl_Logs(UserID,Date,Operation) VALUES (@d1,@d2,@d3)" cmd = New SqlCommand(cb) cmd.Connection = con cmd.Parameters.AddWithValue("@d1", st1) cmd.Parameters.AddWithValue("@d2", System.DateTime.Now) cmd.Parameters.AddWithValue("@d3", st2) cmd.ExecuteNonQuery() con.Close() Catch ex As Exception End Try End Sub
Improve Question
My.Settings.srnm
sgDatabaseName
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)