Showing posts with label Snippet. Show all posts
Showing posts with label Snippet. Show all posts

Tuesday, September 20, 2011

Reading and Writing CLOB column in oracle by asp.net


Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types

Public Sub ReadLOBData()
Dim con As New OracleConnection(connectionstring)
con.Open()
Dim sql As String = "Select Mft_Text from Tab_Manifestation where Mft_Id=2"
Dim cmd As OracleCommand = New OracleCommand(sql, con)
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
Dim blob As OracleClob = dr.GetOracleClob(0)
txtManifest.Text = blob.Value
blob.Close()
dr.Close()
con.Close()
End Sub

Public Sub WriteLOBData()
Dim connection As New OracleConnection(connectionstring)
connection.Open()

Dim strSQL As String = "INSERT INTO TestCLOB (ID,CLOBTEXTFIELD) VALUES (1,:TEXT_DATA) "
'Dim strsql As String = "UPDATE TestCLOB SET CLOBTEXTFIELD=:TEXTDATA where testid=1"
Dim paramData As New OracleParameter
paramData.Direction = ParameterDirection.Input
paramData.OracleDbType = OracleDbType.Clob
paramData.ParameterName = "TEXT_DATA"
paramData.Value = txtInput.Text

Dim cmd As New OracleCommand
cmd.Connection = connection
cmd.Parameters.Add(paramData)
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()

paramData = Nothing
cmd = Nothing
connection.Close()
End Sub

Posted by Aboobacker at 11:15 AM 0 comments
Labels: , ,

Thursday, March 18, 2010

Keeping Session Live all the time in Asp.net

In Master Page of Page Load Event Call the Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load AddKeepAlive()
End Sub
Private Sub AddKeepAlive() Dim int_MilliSecondsTimeOut As Integer = 2 * 60 * 1000 '2 minutes 'Math.Max((this.Session.Timeout * 60000) - 30000, 5000); Dim path As String = VirtualPathUtility.ToAbsolute("~/KeepAlive.aspx")
Dim str_Script As String = ("<script>(function(){var r=0,w=window;if (w.setInterval)w.setInterval(function() {r ;var img=new Image(1,1);img.src='" & path & "?count=' r;},") int_MilliSecondsTimeOut.ToString() & ");})();</script>" Page.ClientScript.RegisterStartupScript(GetType(Page), UniqueID & "Reconnect", str_Script) End Sub


Create a Page say as KeepAlive.aspx
Add this in the Page

<%@ OutputCache Location="None" VaryByParam="None" %><?xml version="1.0" encoding="utf-8"?>
<%=now %>
Posted by Aboobacker at 3:06 PM 0 comments
Labels: ,

Monday, February 22, 2010

To Fire OnBlur Event of Textbox on Sever Side

I will show in this post a simple method to fire onBlur Event of a textbox in server side, this can be used to check the value in textbox with the database, like to validate the data if already exist

put a server side button in the page and hide the button with div having style display none so that it is not triggered by clicking event
In page load
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim eventhandler As String = Me.ClientScript.GetPostBackEventReference(Me.btnLoad, "")
Me.TextName.Attributes.Add("onblur", eventhandler)

End Sub


Write your process in the button click event
Protected Sub btnLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoad.Click
‘Put your Own Code’
End Sub
Posted by Aboobacker at 10:26 AM 0 comments
Labels: ,

Thursday, February 18, 2010

Enter Key in Asp.net

One of the common requests in ASP.NET is to submit a form when visitor hits an Enter key. That could be a case if, for example you want to make Login Screen. It is expected that user just hit enter when he insert a user name and password instead to of forcing him to use a mouse to click login button. If you want to make search function on your web site, it is frequently required to give a possibility to hit enter after you insert a search terms instead of mouse click on a Search button.

When you don’t want to submit a form with Enter key?

Rarely, you will need to disable an Enter key and avoid submitting form. If you want to prevent it completely, you need to use OnKeyDown handler on <body> tag of your page. The JavaScript code should be:


if (window.event.keyCode == 13)
{
event.returnValue=false;
event.cancel = true;
}



How to make a default button in ASP.NET
Method1:

TextBox1.Attributes.Add("onkeydown", "if(event.which event.keyCode){if ((event.which == 13) (event.keyCode == 13)) {document.getElementById('"+Button1.UniqueID+"').click();return false;}} else {return true}; ");

Method2:

<form defaultbutton="button1" runat="server">
<asp:textbox id="textbox1" runat="server"/>
<asp:textbox id="textbox2" runat="server"/>
<asp:button id="button1" text="Button1" runat="server"/>

<asp:panel defaultbutton="button2" runat="server">
<asp:textbox id="textbox3" runat="server"/>
<asp:button id="button2" runat="server"/>
</asp:panel>
</form>
Posted by Aboobacker at 11:46 AM 0 comments
Labels: ,

Tuesday, January 12, 2010

Error Log in Text File in Asp.Net 2.0

Simple vb.net code function used to log error in text file which rises in our application

Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Globalization

Public Class ErrorHandler

Public Shared Sub WriteError(ByVal errorMessage As String)
Try
Dim path As String = "~/Error/" & DateTime.Today.ToString("dd-mm-yy") & ".txt"
If (Not File.Exists(System.Web.HttpContext.Current.Server.MapPath(path))) Then
File.Create(System.Web.HttpContext.Current.Server.MapPath(path)).Close()
End If
Using w As StreamWriter = File.AppendText(System.Web.HttpContext.Current.Server.MapPath(path))
w.WriteLine(Constants.vbCrLf & "Log Entry : ")
w.WriteLine("{0}", DateTime.Now.ToString(CultureInfo.InvariantCulture))
Dim err As String = "Error in: " & System.Web.HttpContext.Current.Request.Url.ToString() & ". Error Message:" & errorMessage
w.WriteLine(err)
w.WriteLine("__________________________")
w.Flush()
w.Close()
End Using
Catch ex As Exception

End Try

End Sub
End Class


This Code should be written in App_Code Folder of Web Application

This function can be called in all Exception Catches
Try
'Your Code Goes Here’
Catch ex as Exception
ErrorHandler.WriteError(ex.Innerexception)
End Try


To Err is Human
Posted by Aboobacker at 10:53 AM 0 comments
Labels: ,

Monday, December 21, 2009

Disable button by checking validators and invoke server side event

Scenario: - Check whether any validator is triggered. If triggered then don't postback and don't disable the button. If all validators are valid then disable the button and call the server side event.

Solution:-
To solve this scenario , I found out one simple solution using javascript


<script type="text/javascript" language="javascript">
function fnValidate(obj)
{
for(var i=0; i<Page_Validators.length; i++)
{
ValidatorEnable(Page_Validators[i]);

if (Page_Validators[i].isvalid)
{
obj.disabled=true;
}
else
{
obj.disabled=false;
break;
}
}

if (obj.disabled==true)
{
<%=Page.GetPostBackEventReference(btnSubmit)%> }

}

</script>


Call this javascript function in button's OnClientClick property as follows.


<asp:Button ID="btnSubmit" runat="server" Text="Submit" OnClientClick="fnValidate(this);" CausesValidation="true" OnClick="btnSubmit_Click"/>
Posted by Sibin at 12:00 PM 1 comments
Labels: ,

Tuesday, December 1, 2009

Enum to Datatable Function Using Vb.net

In this post I have given simple vb.net snippet to convert Enumeration data to datatable, so that we can use the enumeration datas as master table or lookup table


Shared Function EnumToDataTable(ByVal typEnum As Type) As DataTable
Dim ddlTypnames() As String = [Enum].GetNames(typEnum)
Dim arrddlTypVals As Array = [Enum].GetValues(typEnum)

Dim dt As New DataTable
Dim dr As DataRow

dt.Columns.Add(New DataColumn("values", GetType(Int32)))
dt.Columns.Add(New DataColumn("names", GetType(String)))
Dim i2 As Integer
For i2 = 0 To ddlTypnames.Length() - 1
dr = dt.NewRow()

dr(0) = CInt(arrddlTypVals(i2))
dr(1) = ddlTypnames(i2)

dt.Rows.Add(dr)
Next i2

Return dt
End Function

Using this function

Dim dt As DataTable
dt = EnumToDataTable(GetType(EnumSample))


Happy Coding!
Posted by Aboobacker at 3:04 PM 0 comments
Labels: ,

Tuesday, November 3, 2009

To Read Line By Line of Text File in VB.net 2.0

In this Post I have shown the simple code snippet for reading a text file line by line.

Dim strFileName As String = String.Empty
Dim fs As FileStream = Nothing
Dim m_streamReader As StreamReader = Nothing
Dim strCompany As String = String.Empty

fs = New FileStream(strFilePath, FileMode.Open, FileAccess.Read)
m_streamReader = New StreamReader(fs)
m_streamReader.BaseStream.Seek(0, SeekOrigin.Begin)

Do
strContent = m_streamReader.ReadLine()

Loop While (Not m_streamReader.EndOfStream)

Posted by Aboobacker at 11:53 AM 0 comments
Labels: , ,

Thursday, October 8, 2009

Simple Delay Function Using VB.Net

Simple Delay Function Using VB.Net

Private Sub Delay(ByVal ms As Integer)
Dim time As Integer = Environment.TickCount
Do While (True)
If Environment.TickCount - time >= ms Then
Exit Do
End If
Loop
End Sub

Happy Coding!
Posted by Aboobacker at 3:16 PM 1 comments
Labels:

Sunday, September 27, 2009

To Write and Save a Text File in Asp.Net 2.0

In this post I will show u the simple code snippet to write and save a text file in specific folder in asp.net using vb code


Public Sub WriteTextandSaveFile()

Dim fs As FileStream = Nothing
Dim sw As StreamWriter = Nothing

Try
fs = New FileStream("D:\Sample\Sample1.txt", FileMode.Create, FileAccess.Write)
sw = New StreamWriter(fs)
sw.WriteLine("This is Sample text")

Catch ex As Exception

Finally
sw.Close()
fs.Close()
sw.Dispose()
fs.Dispose()
End Try


End Sub


never regret anything, if it was good, its wonderful, if it was bad, its experience!
Posted by Aboobacker at 11:43 AM 0 comments
Labels: , ,
Subscribe to: Posts (Atom)