Set the Default Value to the Column Of a Table Programmaticaly

Normally we face this type of problem when we want to set the column default value pro-grammatically.

 To Solve this problem we need to first get the table column information using this Query.

 "SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME='person'".

 Here the table name may vary.

 when we execute this Query we will get the each column information .So based on this we can Iterate the each column and get the each column Information as given below 
 
 
  VB.NET 
 Private Sub Initialise_The_Table(ByVal ReqTab As String)  
      On Error GoTo handle_error  
      Dim eachTableAdapter As SqlDataAdapter  
      Dim tableDataset As New DataSet  
      Dim adoHelper As SQLHelper = SQLHelper.GetInstance  
      eachTableAdapter = adoHelper.GetAdapter("SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '" + ReqTab + "'")  
      eachTableAdapter.FillSchema(tableDataset, SchemaType.Source, ReqTab)  
      eachTableAdapter.Fill(tableDataset, ReqTab)  
      For ii As Integer = 0 To tableDataset.Tables(ReqTab).Rows.Count - 1  
        If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = (SqlDbType.NVarChar.ToString.ToLower) _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.NText.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.Int.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.Real.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.Float.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.SmallInt.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.TinyInt.ToString.ToLower _  
        Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.Money.ToString.ToLower Then  
          If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.NVarChar.ToString.ToLower _  
          Or Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("DATA_TYPE")).ToLower = SqlDbType.NText.ToString.ToLower Then  
            If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("IS_NULLABLE")).ToLower = "yes" Then ''''Checking the column IS_NULLABLE   
              If Convert.IsDBNull(tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_DEFAULT")) Or _  
              String.IsNullOrEmpty(tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_DEFAULT").ToString) = False Then  
                Errorlog.WriteLog(Information.Err().Number, "Field Defaults set on ", ReqTab, _  
                         tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME"))  
                adoHelper.ExecNonQuery("ALTER TABLE [dbo].[" + ReqTab + "] ADD CONSTRAINT [DF_" + ReqTab + "__" + _  
                         tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME") + "] DEFAULT '' FOR " + _  
                         tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME") + "")  
                GoTo Next_Field  
              End If  
            End If  
          Else  
            If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("IS_NULLABLE")).ToLower = "yes" Then ''''Checking the column IS_NULLABLE   
              If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_DEFAULT")) <> "((0))" Then  
                If Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_DEFAULT")).ToLower() <> "genuniqueid()" _  
                And Strings.Mid(Convert.ToString(tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME")), 1, 2).ToLower() <> "s_" Then  
                  Errorlog.WriteLog(Information.Err().Number, "Field Defaults set on ", ReqTab, _  
    tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME"))  
                  adoHelper.ExecNonQuery("ALTER TABLE [dbo].[" + ReqTab + "] ADD CONSTRAINT [DF_" + ReqTab + "__" + _  
                             tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME") + "] DEFAULT 0 FOR " + _  
                             tableDataset.Tables(ReqTab).Rows(ii)("COLUMN_NAME") + "")  
                End If  
                GoTo Next_Field  
              End If  
            End If  
          End If  
        End If  
  Next_Field:  
      Next ii  
      Exit Sub  
  handle_error:  
      If Information.Err().Number = 3078 Then  
        MessageBox.Show("No such table in database", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)  
        Exit Sub  
      Else  
        If Do_All = 1 And Not Init_Phase Then  
          MessageBox.Show(Information.Err().Description, "System Error: " & Information.Err().Number & " table = " & Public_db.TableDefs(i).Name, _         MessageBoxButtons.OK, MessageBoxIcon.Error)  
        Else  
          MessageBox.Show(Information.Err().Description, "System Error: " & Information.Err().Number, MessageBoxButtons.OK, MessageBoxIcon.Error)  
        End If  
      End If  
      Resume  
    End Sub





I think solution will be helpful to many guys :-)
Happy meaningful day :-)
Location: Hyderabad, Andhra Pradesh, India

Comments

Post a Comment

Popular posts from this blog

Exporting to excel from a custom class object using C#.NET

We may face a scenario to export the data of custom class object to excel using InterOp .You can get the property name's from the class object using Reflection.Create a work sheet header by reading the each propety of the class object.I have created a separate method to get the all properties into a list collection of string as given below         ///         /// Get the list of Properties Name into a list collection.         ///         ///         ///         public List GetPropeties(Employee objEmployee)         {             Type myType = objEmployee.GetType();             IList props = new List (myType.GetProperties());             List lstPropertiesNames = new List ();             foreach (PropertyInfo prop in props)             {                 lstPropertiesNames.Add(prop.Name);             }             return lstPropertiesNames;         } We need to call this method to create the worksheet header's as given beloe                 List lstProperties = GetPropet
Read more

Why Dispose() is preferred than Finalize() for Un-Managed Resources in .NET?

Image
Memory management is very important in any application development.The Garbage collector of .NET does almost all clean up activity for your objects.For unmanaged resources (Ex:Windows API created objects, File, Database connection objects, COM objects, etc.) are outside the scope of .NET framework. Why Dispose() is preferred than Finalize() If we use the " Finalize() " method,the  Garbage collector has to make two round in order to remove the objects. For an instance ,let me explain clearly if we have two objects as Object1 and Object2 and we finalize the Object2 as given in the below image.The GC has to categorize the two objects and put the Finalize objects into Finalization Queue.The GC will clean the object1 which doesn't use the Finalize() method and process the second round of cleaning the Finalization Queue. Now at this the " Dispose() " method will come into picture.This method belongs to IDisposable() interface .So the best practise to rele
Read more

How to apply watermark to the textbox and dropdownlist?

Create a watermark effect on your TextBox and display instructions to users, without taking up screen space.This warkmark style can applied by using the CSS and append this to your control using jquery. Hi this is basic where we you use to get to apply watermark to the Textbox or DropDown.I have implemented this by using the jquery. <%@ Page Language="C#" AutoEventWireup="true" CodeFile="WaterMark.aspx.cs" Inherits="WaterMark" %> < html xmlns ="http://www.w3.org/1999/xhtml"> < head runat ="server">      < title > Water Mark using jquery title >      < style type ="text/css">         .watermarkOn         {             color: #CCCCCC;             font-style: italic;         }       style >      < script type ="text/javascript" src ="http://code.jquery.com/jquery-1.4.1.js"> script >      < script ty
Read more