Click here to Skip to main content
Click here to Skip to main content

common functions oftenly used in projects

By , 26 Dec 2006
Rate this:
Please Sign up or sign in to vote.
<!-- Article Starts - DO NOT ADD HTML/BODY START TAGS-->

Introduction

Imports System.Data.SqlClient
Imports System.Web.Mail
Imports System.IO
Imports Record.Key
Imports Constants.Database
Imports System.Data
Imports Microsoft.VisualBasic

Public Class commonFunctions
    Inherits System.Web.UI.Page
#Region "variables"
    Dim Sql_Con As New SqlConnection
    Dim Sql As New SqlCommand
    Dim sql_q As SqlCommand
    Dim sql_chk As String
    Dim dr As SqlDataReader
    Dim adap As SqlDataAdapter
    Dim i As Integer
    Dim j As Integer
    Dim ds As New DataSet
    Public user_key As String
    Public dating_key As String
    Dim o_Key As New record.Key
    Dim s_sql As String
    Dim counter As Integer
    Dim var1, var2
    Dim match_date As DateTime
    Dim listitem As ListItem
    Dim strSql, NewFileName, strName, strMail As String
    Dim intStartIndex, intEndIndex, intAutoId As Integer
    Dim intAutoNumber, intIndex, intCount, intPos As Integer
#End Region

    '*************************************************************************************************
    '************To fill dropdown of numeric no. like year etc by giving some parameters**************
    '*************************************************************************************************
    Public Sub ddl_insert(ByRef ddlname As Object, ByRef value1 As Integer, ByRef value2 As Integer)
        ddlname.Items.Clear()
        ddlname.Items.Insert(0, "Select")
        i = 1
        For j = value1 To value2
            ddlname.items.insert(i, j)
            i = i + 1
        Next
        ' ddlname.DataBind()
    End Sub


    '*************************************************************************************************   
    '******************To fill dropdown from database values by giving some parameters****************
    '*************************************************************************************************
    Public Sub ddl_fill(ByRef ddlname As Object, ByRef storedprocedurename As String, Optional ByRef parent As String = "")
        Try

            ddlname.Items.Clear()
            Dim ds As DataSet = New DataSet
            Sql_Con.ConnectionString = c_Sql_Connection
            Sql_Con.Open()
            With Sql
                .Connection = Sql_Con
                .Parameters.Clear()
                .CommandText = storedprocedurename
                .CommandType = CommandType.StoredProcedure
                If parent <> "" Then
                    .Parameters.Add("@parent", SqlDbType.Int).Value = CInt(parent)
                End If
            End With
            adap = New SqlDataAdapter(Sql)
            adap.Fill(ds)
            If ds.Tables(0).Rows.Count > 0 Then
                ddlname.DataSource = ds
                ddlname.DataTextField = Convert.ToString(ds.Tables(0).Columns.Item(1))
                ddlname.DataValueField = Convert.ToString(ds.Tables(0).Columns.Item(0))
                ddlname.DataBind()
            End If
            listitem = New ListItem("Select", "0")
            ddlname.Items.Insert(0, listitem)
            adap.Dispose()
            ds.Dispose()
            Sql.Dispose()
            Sql_Con.Dispose()

        Catch ex As Exception
            ds.Dispose()
            Sql.Dispose()
            Sql_Con.Dispose()
        End Try
    End Sub

    Public Sub updateLastLoginDate(ByRef userId As String)
        Try
            Sql_Con.ConnectionString = c_Sql_Connection
            Sql_Con.Open()
            With Sql
                .Connection = Sql_Con
                .Parameters.Clear()
                .CommandText = "tb_user_login_last_login_update"
                .CommandType = CommandType.StoredProcedure
                .Parameters.Add("@user_id", SqlDbType.VarChar, 50).Value = Convert.ToString(userId)
                .ExecuteNonQuery()
            End With
            Sql.Dispose()
            Sql_Con.Dispose()
        Catch ex As Exception
            Sql.Dispose()
            Sql_Con.Dispose()
        End Try

    End Sub

 


    '*************************************************************************************************
    '***To upload the image in a given particular folder here I have used "uploads" as a folder name**
    '*************************************************************************************************
    Public Sub SaveAttachment(ByVal CategoryName As String, ByVal ImgControl As Object, ByVal lblName As Object)
        Try
            intStartIndex = ImgControl.PostedFile.FileName.IndexOf(".", 0) + 1
            intEndIndex = ImgControl.PostedFile.FileName.Length
            NewFileName = NewFileName & "." & ImgControl.PostedFile.FileName.Substring(intStartIndex, intEndIndex - intStartIndex)

            Dim fn As String = System.IO.Path.GetFileName(ImgControl.PostedFile.FileName)
            fn = CategoryName & "-" & fn
            Dim SaveLocation As String = Server.MapPath("")
            SaveLocation = SaveLocation.Substring(0, SaveLocation.Length - 6) & "\uploads\" & fn

            ImgControl.PostedFile.SaveAs(SaveLocation)
            NewFileName = fn
            lblName.Visible = True
        Catch ex As Exception
            'txtErrMsg.Value = ex.Message
        End Try
    End Sub

 


    '*************************************************************************************************
    '********To search that whether the text you are entering is already in the table or not.*********
    '*************************************************************************************************
    Function search(ByRef obj_control As Object, ByRef StoredProceduerName As String, ByVal lblName As Object)
        Try

            ' ddl_company_cat.Items.Clear()
            Dim ds As DataSet = New DataSet
            Sql_Con.ConnectionString = c_Sql_Connection
            Sql_Con.Open()
            With Sql
                .Connection = Sql_Con
                .Parameters.Clear()
                .CommandText = StoredProceduerName
                .CommandType = CommandType.StoredProcedure
            End With
            adap = New SqlDataAdapter(Sql)
            adap.Fill(ds)
            'dr = Sql.ExecuteReader
            Dim i As Integer
            i = 0
            While ds.Tables(0).Rows.Count > i
                If obj_control.text = ds.Tables(0).Rows(i)(1) Then
                    lblName.Visible = True
                    ds.Dispose()
                    Sql.Dispose()
                    Sql_Con.Dispose()
                    Return True
                End If
                i = i + 1
            End While
            ds.Dispose()
            Sql.Dispose()
            Sql_Con.Dispose()
            Return False
        Catch ex As Exception
            Sql.Dispose()
            Sql_Con.Dispose()
            Return False
        End Try
        Return False
    End Function
End Class

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Rohit Wadhwa(Devp)
Web Developer
India India
I am Rohit Wadhwa, have spent one year in software industry, Currently working with Saber Consulting in Chandigarh.
 

Comments and Discussions

 
-- There are no messages in this forum --
| Advertise | Privacy | Mobile
Web04 | 2.8.140415.2 | Last Updated 27 Dec 2006
Article Copyright 2006 by Rohit Wadhwa(Devp)
Everything else Copyright © CodeProject, 1999-2014
Terms of Use
Layout: fixed | fluid