Public Shared Function TableExist(ByVal tableName As String) As Boolean
Dim strSQL As String = "SELECT Count(*) FROM dbo.sysobjects WHERE id = object_id(N'{databaseOwner}[{objectQualifier}" & tableName & "]') AND OBJECTPROPERTY(id, N'IsTable') = 1"
strSQL = strSQL.Replace("{databaseOwner}", DotNetNuke.Common.Utilities.Config.GetDataBaseOwner())
strSQL = strSQL.Replace("{objectQualifier}", DotNetNuke.Common.Utilities.Config.GetObjectQualifer())
Dim util As New esUtility()
If util.ExecuteScalar(esQueryType.Text, strsql) > 0 Then
Return True
Else
Return False
End If
End Function
Tuesday, July 21, 2009
Check if a table exist using EntitySpaces in DotNetNuke
Using esUtility ExecuteScalar method the function(VB.Net) below given the table name will return true if the table exist in the database otherwise it will return false.
Labels:
Dotnetnuke,
EntitySpaces,
VB.Net
Thursday, July 16, 2009
Make sure your Javascripts are in the proper location in DotNetNuke
Calling the procedure below in your DotNetNuke module will make sure that your client script will be inserted in the proper place. Which is inside the Head tag.
The Code:
Sample:
Inserting a script file;
Result:
Inserting a plain script;
Result:
The Code:
01.Public Sub InjectClientScript(ByVal page As System.Web.UI.Page, ByVal scriptKey As String, ByVal scriptSrc As String, Optional ByVal scriptValue As String = "") 02. Dim objHead As Control = page.FindControl("Head") 03. If objHead IsNot Nothing Then04. If objHead.FindControl(scriptKey) Is Nothing Then05. Dim jQueryControl As New HtmlGenericControl("script") 06. jQueryControl.ID = scriptKey 07. jQueryControl.Attributes.Add("type", "text/javascript") 08. If scriptValue = "" Then09. jQueryControl.Attributes.Add("src", scriptSrc) 10. Else11. jQueryControl.InnerHtml = scriptValue 12. End If13. objHead.Controls.Add(jQueryControl) 14. End If15. End If16.End SubSample:
Inserting a script file;
1.InjectClientScript(page, "jquery.1.3.2.min.js", "/js/jquery.1.3.2.min.js") Result:
1.<script id="jquery.1.3.2.min.js" type="text/javascript" src="/js/jquery.1.3.2.min.js"></script>Inserting a plain script;
1.InjectClientScript(page, "jQueryNoConflict", "", "jQuery.noConflict();") Result:
1.<script id="jQueryNoConflict" type="text/javascript">jQuery.noConflict();</script>
Labels:
Dotnetnuke,
Javascript,
VB.Net
Subscribe to:
Comments (Atom)