VB.NET Snippets
ClientScript close
Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), “ForceDefaultToScript”, “<script language=javascript>window.close();</script>”)
ClientScript Open
ClientScript.RegisterClientScriptBlock(Me.GetType(), “scriptname”, “<script>window.open(”,’_self’);</script>”)
Set Default Button (for TextBox)
Public Sub setDefaultButton(ByRef Page As System.Web.UI.Page, ByRef objTextControl As TextBox, ByRef objDefaultButton As Button)
Dim sScript As New System.Text.StringBuilder()
sScript.Append(”<SCRIPT language=”"javascript”">” & vbCrLf)
sScript.Append(”function fnTrapKD(btn){” & vbCrLf)
sScript.Append(” if (document.all){” & vbCrLf)
sScript.Append(” if (event.keyCode == 13)” & vbCrLf)
sScript.Append(” { ” & vbCrLf)
sScript.Append(” event.returnValue=false;” & vbCrLf)
sScript.Append(” event.cancel = true;” & vbCrLf)
sScript.Append(” btn.click();” & vbCrLf)
sScript.Append(” } ” & vbCrLf)
sScript.Append(” } ” & vbCrLf)
sScript.Append(”}” & vbCrLf)
sScript.Append(”</SCRIPT>” & vbCrLf)
objTextControl.Attributes.Add(”onkeydown”, “fnTrapKD(document.all.” & objDefaultButton.ClientID & “)”)
Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), “ForceDefaultToScript”, sScript.ToString)
End Sub
SQL Select Method
Private Sub sqlSelect()
Dim strConnection As String = ConfigurationManager.AppSettings(”[DBKEY]“)
Dim strQuery As String = “SELECT * FROM [TABLE] WHERE ID=@ID“
Try
Using sqlConn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection()
sqlConn.ConnectionString = strConnection
Using cmd As SqlCommand = sqlConn.CreateCommand()
cmd.CommandText = strQuery
cmd.Parameters.AddWithValue(”@ID”, )
sqlConn.Open()
Using Dr As SqlDataReader = cmd.ExecuteReader()
Do While Dr.Read
Loop
Dr.Close()
End Using
End Using
End Using
Catch ex As Exception
Dim msg As New Mail
msg.Mail_error(ex.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
DisplayMessage(ex.Message)
End Try
End Sub
SQL Insert Method
Private Function sqlInsert() As Boolean
Dim strConnection As String = ConfigurationManager.AppSettings(”[Database]“)
Dim AdMail As New Mail
Dim CreatedBy As String = AdMail.GetUserInfo(Context.User.Identity.Name, “samaccountname”, “displayname”)
Dim MySQL As New SQLlib
Dim MyID As Integer = MySQL.getMaxID(”[IDFIELD]“, “[TABLE]“, “[DATABASE]“) + 1
Try
Dim strInsertQuery As String = “INSERT INTO [TABLE] ” & _
“(ID, DateSubmitted, SubmittedBy, UpdatedBy, DateUpdated) ” & _
“VALUES ” & _
“(@ID, @DateSubmitted, @SubmittedBy, @UpdatedBy, @DateUpdated)”
Using sqlData As New SqlConnection()
sqlData.ConnectionString = strConnection
Using cmd As SqlCommand = sqlData.CreateCommand()
cmd.CommandText = strInsertQuery
cmd.Parameters.AddWithValue(”@ID”, MyID)
cmd.Parameters.AddWithValue(”@”, MySQL.evaluateSQLParameters(”", “String”).Value)
cmd.Parameters.AddWithValue(”@DateSubmitted”, Now)
cmd.Parameters.AddWithValue(”@SubmittedBy”, CreatedBy)
cmd.Parameters.AddWithValue(”@DateUpdated”, Now)
cmd.Parameters.AddWithValue(”@UpdatedBy”, CreatedBy)
sqlData.Open()
cmd.ExecuteNonQuery()
sqlData.Close()
Return True
End Using
End Using
Catch ex As Exception
Dim msg As New Mail
msg.Mail_error(ex.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
DisplayMessage(ex.Message.ToString() & “\n Email Notification has been sent to IT…”)
Return False
End Try
End Function
SQL Update Method
Private Function sqlUpdate(ByVal MyID As String) As Boolean
Dim strConnection As String = ConfigurationManager.AppSettings(”[DATABASE]“)
Dim AdMail As New Mail
Dim CreatedBy As String = AdMail.GetUserInfo(Context.User.Identity.Name, “samaccountname”, “displayname”)
Dim MySQL As New SQLlib
Dim MyString As String = “”
Try
Dim strInsertQuery As String = “UPDATE [TABLE] SET [MyField]=@[MyField]” & _
“DateUpdated=@DateUpdated, UpdatedBy=@UpdatedBy ” & _
“WHERE ID=@ID“
Using sqlData As New SqlConnection()
sqlData.ConnectionString = strConnection
Using cmd As SqlCommand = sqlData.CreateCommand()
cmd.CommandText = strInsertQuery
cmd.Parameters.AddWithValue(”@ID”, MyID)
cmd.Parameters.AddWithValue(”@[MyField]“, MySQL.evaluateSQLParameters(MyString, “String”).Value)
cmd.Parameters.AddWithValue(”@DateUpdated”, Now)
cmd.Parameters.AddWithValue(”@UpdatedBy”, CreatedBy)
sqlData.Open()
cmd.ExecuteNonQuery()
sqlData.Close()
End Using
End Using
Return True
Catch sqlEx As SqlException
DisplayMessage(sqlEx.Message)
Dim msg As New Mail
msg.Mail_error(sqlEx.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
Return False
Catch ex As System.InvalidCastException
DisplayMessage(ex.Message)
Dim msg As New Mail
msg.Mail_error(ex.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
Return False
End Try
End Function
SQL Delete Method
Private Function sqlDelete(ByVal MyID As String) As Boolean
Dim strConnection As String = ConfigurationManager.AppSettings(”[DATABASE]“)
Dim AdMail As New Mail
Try
Dim strInsertQuery As String = “DELETE FROM [TABLE] WHERE ID=@ID“
Using sqlData As New SqlConnection()
sqlData.ConnectionString = strConnection
Using cmd As SqlCommand = sqlData.CreateCommand()
cmd.CommandText = strInsertQuery
cmd.Parameters.AddWithValue(”@ID”, MyID)
sqlData.Open()
cmd.ExecuteNonQuery()
sqlData.Close()
End Using
End Using
Return True
Catch sqlEx As SqlException
DisplayMessage(sqlEx.Message)
Dim msg As New Mail
msg.Mail_error(sqlEx.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
Return False
Catch ex As System.InvalidCastException
DisplayMessage(ex.Message)
Dim msg As New Mail
msg.Mail_error(ex.Message, ConfigurationManager.AppSettings(”ErrorEmail”), “EACG Intranet”, Page.Title.ToString(), System.Reflection.MethodBase.GetCurrentMethod.ToString(), Context.User.Identity.Name)
Return False
End Try
End Function
