Export to Excel

Click event of button to export contact to Excel or spreadsheet.

Protected Sub excelvCard_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles excelvCard.Click
Try
Dim stringWrite As New System.IO.StringWriter()
Dim htmlWrite As New System.Web.UI.HtmlTextWriter(stringWrite)
Dim ml_directoryPath As String = Server.MapPath("~/DesktopModules/Employee/ExportEmployee/")
If Directory.Exists(ml_directoryPath) Then
Directory.Delete(ml_directoryPath, True)
End If
Directory.CreateDirectory(ml_directoryPath)
ExportContactsToExcel(ml_directoryPath)
Response.Clear()
Response.ContentType = "application/Excel"
Response.AppendHeader("content-disposition", "attachment;filename=Contacts.csv")
Response.TransmitFile((ml_directoryPath + "Employees.csv"))
Response.Flush()
Response.End()
Catch ex As Exception
End Try
End Sub

////Function for Export contact to Excel///

Public Shared Function ExportContactsToExcel(ByVal destinationFilepath As String) As String
Dim emplist As New ArrayList
Dim ExportList As New List(Of Modules.Employee.EmployeeInfo)
ExportList = Modules.Employee.EmployeeController.GetAllEmployeeForExport()
Dim ml_filePath As String = destinationFilepath
ml_filePath = (ml_filePath + "Employees.csv")
Dim o_fsCsvFile As FileStream = New FileStream(ml_filePath, FileMode.Create)
Dim o_swCsvFile As StreamWriter = New StreamWriter(o_fsCsvFile)
o_swCsvFile.WriteLine("FirstName,LastName,DateOfBirth,Parmanent Address,Local Address,Home Phone,Cell Phone,Emer. Contact Name,Emer. Contact Relation,Emer.Contact Home Phone,Emer.Contact Cell Phone,Physically Disabled,Blood Group,Manager Name,Current Designation,Pan Number,Passport Number,Hire Date,Termination Date")
Dim o_sbContact As System.Text.StringBuilder = New System.Text.StringBuilder
For Each exportEmp As EmployeeInfo In ExportList
o_sbContact.Append((exportEmp.Name + ","))
o_sbContact.Append((exportEmp.LastName + ","))
o_sbContact.Append((exportEmp.DateOfBirth + ","))
o_sbContact.Append((exportEmp.PermanentAddress + ","))
o_sbContact.Append((exportEmp.LocalAddress + ","))
o_sbContact.Append((exportEmp.PhoneNumber + ","))
o_sbContact.Append((exportEmp.MobileNumber + ","))
o_sbContact.Append((exportEmp.EmgContactName + ","))
o_sbContact.Append((exportEmp.Email + ","))
o_sbContact.Append((exportEmp.Relation + ","))
o_sbContact.Append((exportEmp.Emg_ContactPhoneNumber + ","))
o_sbContact.Append((exportEmp.Emg_ContactMobileNumber + ","))
'o_sbContact.Append((exportEmp.Cast.ToString() + ","))
o_sbContact.Append((exportEmp.PhysicallyDisabled + ","))
o_sbContact.Append((exportEmp.BloodGroup + ","))
o_sbContact.Append((exportEmp.ManagerName + ","))
o_sbContact.Append((exportEmp.CurrentPosition + ","))
o_sbContact.Append((exportEmp.PanNumber + ","))
o_sbContact.Append((exportEmp.PassPortNumber + ","))
o_sbContact.Append((exportEmp.HireDate + ","))
o_sbContact.Append((exportEmp.TerminationDate + ","))
o_swCsvFile.WriteLine(o_sbContact.ToString())
o_sbContact.Remove(0, o_sbContact.Length)
Next
o_swCsvFile.Close()
Return ml_filePath
End Function

Export contacts to vCard

///need a dll for that as well for vCard functinality
named --> Thought.Net.vCards
http://www.thoughtproject.com/Libraries/vCard/

///function to export the contacts
Public Shared Function ExportAllContacts(ByVal destinationFilepath As String) As String
'intiallizing file streams to read and write data
Dim ml_filePath As String = (destinationFilepath + "vCard.vcf")
Dim ml_tempfilePath As String = (destinationFilepath + "tempvCard.vcf")
Dim fs As FileStream = New FileStream(ml_filePath, FileMode.Append)
Dim fsTemp As FileStream = New FileStream(ml_tempfilePath, FileMode.Create)
fsTemp.Close()
'inalizing controller and data object
Dim emplist As New ArrayList
Dim ExportList As New List(Of Modules.Employee.EmployeeInfo)
ExportList = Modules.Employee.EmployeeController.GetAllEmployeeForExport()

For Each exportEmp As EmployeeInfo In ExportList
Dim EmployeevCard As New vCard
EmployeevCard.Organization = ""
EmployeevCard.GivenName = exportEmp.Name.ToString()
EmployeevCard.FamilyName = exportEmp.LastName.ToString()
EmployeevCard.Role = exportEmp.CurrentPosition.ToString()
EmployeevCard.EmailAddresses.Add(New vCardEmailAddress(exportEmp.Email))
EmployeevCard.Phones.Add(New vCardPhone(exportEmp.MobileNumber))
EmployeevCard.BirthDate = exportEmp.DateOfBirth
Dim EmployeeAddressvCard As vCardDeliveryAddress = New vCardDeliveryAddress
EmployeeAddressvCard.AddressType = vCardDeliveryAddressType.Home
EmployeeAddressvCard.City = exportEmp.PermanentAddress
EmployeevCard.DeliveryAddresses.Add(EmployeeAddressvCard)

Dim writer As vCardStandardWriter = New vCardStandardWriter
writer.EmbedInternetImages = False
writer.EmbedLocalImages = True
writer.Options = vCardStandardWriterOptions.IgnoreCommas
writer.Write(EmployeevCard, ml_tempfilePath)
Dim reader As StreamReader = New StreamReader(ml_tempfilePath)
Dim wr As StreamWriter = New StreamWriter(fs)
Dim str As String = reader.ReadToEnd
wr.WriteLine(str)
reader.Close()
wr.Flush()
wr.Close()
fs = New FileStream(ml_filePath, FileMode.Append)
Next
fs.Close()
Return ml_filePath
' returning path of file
End Function



///Click event of a link bttton to export the contacts



Protected Sub multipersonVCard_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles multipersonVCard.Click
Try
Dim ml_directoryPath As String = Server.MapPath("~/DesktopModules/Employee/ExportEmployee/")
If Directory.Exists(ml_directoryPath) Then
Directory.Delete(ml_directoryPath, True)
End If
Directory.CreateDirectory(ml_directoryPath)
'for vcard download
Dim ml_filePath As String = ExportAllContacts(ml_directoryPath)
Response.Clear()
'for card download
Response.ContentType = "text/x-vcard"
Response.AppendHeader("content-disposition", "attachment;filename=Employees.vcf")
Response.TransmitFile(ml_filePath)
Response.End()
Response.Flush()
Catch ex As Exception
Finally
End Try
End Sub

Xml in sql server 2005

declare @strXML XML;
SET @strXML ='

1
Suresh


2
Kunal Srhimali

'
--print @strXML
SELECT
custData.Customer.value('CustomerID[1]','int') ID,
custData.Customer.value('CustomerName[1]','nvarchar(50)') CustomerName
FROM @strXML.nodes('Customers/Customer') AS custData(Customer

Javascript Calendar Control

https://engineering.purdue.edu/ECN/Support/KB/Docs/JavascriptCalendar

dd an onfocus attribute to your input tags which calls the showCalendarControl function. Below is an example:

       onfocus="showCalendarControl(this);"
       type="text">

function positionInfo(object) {

 var p_elm = object;

 this.getElementLeft = getElementLeft;
 function getElementLeft() {
   var x = 0;
   var elm;
   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   while (elm != null) {
     x+= elm.offsetLeft;
     elm = elm.offsetParent;
   }
   return parseInt(x);
 }

 this.getElementWidth = getElementWidth;
 function getElementWidth(){
   var elm;
   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   return parseInt(elm.offsetWidth);
 }

 this.getElementRight = getElementRight;
 function getElementRight(){
   return getElementLeft(p_elm) + getElementWidth(p_elm);
 }

 this.getElementTop = getElementTop;
 function getElementTop() {
   var y = 0;
   var elm;
   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   while (elm != null) {
     y+= elm.offsetTop;
     elm = elm.offsetParent;
   }
   return parseInt(y);
 }

 this.getElementHeight = getElementHeight;
 function getElementHeight(){
   var elm;
   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   return parseInt(elm.offsetHeight);
 }

 this.getElementBottom = getElementBottom;
 function getElementBottom(){
   return getElementTop(p_elm) + getElementHeight(p_elm);
 }
}

function CalendarControl() {

 var calendarId = 'CalendarControl';
 var currentYear = 0;
 var currentMonth = 0;
 var currentDay = 0;

 var selectedYear = 0;
 var selectedMonth = 0;
 var selectedDay = 0;

 var months = ['January','February','March','April','May','June','July','August','September','October','November','December'];
 var dateField = null;

 function getProperty(p_property){
   var p_elm = calendarId;
   var elm = null;

   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   if (elm != null){
     if(elm.style){
       elm = elm.style;
       if(elm[p_property]){
         return elm[p_property];
       } else {
         return null;
       }
     } else {
       return null;
     }
   }
 }

 function setElementProperty(p_property, p_value, p_elmId){
   var p_elm = p_elmId;
   var elm = null;

   if(typeof(p_elm) == "object"){
     elm = p_elm;
   } else {
     elm = document.getElementById(p_elm);
   }
   if((elm != null) && (elm.style != null)){
     elm = elm.style;
     elm[ p_property ] = p_value;
   }
 }

 function setProperty(p_property, p_value) {
   setElementProperty(p_property, p_value, calendarId);
 }

 function getDaysInMonth(year, month) {
   return [31,((!(year % 4 ) && ( (year % 100 ) || !( year % 400 ) ))?29:28),31,30,31,30,31,31,30,31,30,31][month-1];
 }

 function getDayOfWeek(year, month, day) {
   var date = new Date(year,month-1,day)
   return date.getDay();
 }

 this.clearDate = clearDate;
 function clearDate() {
   dateField.value = '';
   hide();
 }

 this.setDate = setDate;
 function setDate(year, month, day) {
   if (dateField) {
     if (month < 10) {month = "0" + month;}
     if (day < 10) {day = "0" + day;}

     var dateString = month+"-"+day+"-"+year;
     dateField.value = dateString;
     hide();
   }
   return;
 }

 this.changeMonth = changeMonth;
 function changeMonth(change) {
   currentMonth += change;
   currentDay = 0;
   if(currentMonth > 12) {
     currentMonth = 1;
     currentYear++;
   } else if(currentMonth < 1) {
     currentMonth = 12;
     currentYear--;
   }

   calendar = document.getElementById(calendarId);
   calendar.innerHTML = calendarDrawTable();
 }

 this.changeYear = changeYear;
 function changeYear(change) {
   currentYear += change;
   currentDay = 0;
   calendar = document.getElementById(calendarId);
   calendar.innerHTML = calendarDrawTable();
 }

 function getCurrentYear() {
   var year = new Date().getYear();
   if(year < 1900) year += 1900;
   return year;
 }

 function getCurrentMonth() {
   return new Date().getMonth() + 1;
 }

 function getCurrentDay() {
   return new Date().getDate();
 }

 function calendarDrawTable() {

   var dayOfMonth = 1;
   var validDay = 0;
   var startDayOfWeek = getDayOfWeek(currentYear, currentMonth, dayOfMonth);
   var daysInMonth = getDaysInMonth(currentYear, currentMonth);
   var css_class = null; //CSS class for each day

   var table = "";
   table = table + "";
   table = table + "  ";
   table = table + "  ";
   table = table + "  ";
   table = table + "";
   table = table + "";

   for(var week=0; week < 6; week++) {
     table = table + "";
     for(var dayOfWeek=0; dayOfWeek < 7; dayOfWeek++) {
       if(week == 0 && startDayOfWeek == dayOfWeek) {
         validDay = 1;
       } else if (validDay == 1 && dayOfMonth > daysInMonth) {
         validDay = 0;
       }

       if(validDay) {
         if (dayOfMonth == selectedDay && currentYear == selectedYear && currentMonth == selectedMonth) {
           css_class = 'current';
         } else if (dayOfWeek == 0 || dayOfWeek == 6) {
           css_class = 'weekend';
         } else {
           css_class = 'weekday';
         }

         table = table + "";
         dayOfMonth++;
       } else {
         table = table + "";
       }
     }
     table = table + "";
   }

   table = table + "";
   table = table + "
< «
" + months[currentMonth-1] + "
" + currentYear + "
» >
S
M
T
W
T
F
S
"+dayOfMonth+"
 
Clear | Close
";

   return table;
 }

 this.show = show;
 function show(field) {
   can_hide = 0;

   // If the calendar is visible and associated with
   // this field do not do anything.
   if (dateField == field) {
     return;
   } else {
     dateField = field;
   }

   if(dateField) {
     try {
       var dateString = new String(dateField.value);
       var dateParts = dateString.split("-");
      
       selectedMonth = parseInt(dateParts[0],10);
       selectedDay = parseInt(dateParts[1],10);
       selectedYear = parseInt(dateParts[2],10);
     } catch(e) {}
   }

   if (!(selectedYear && selectedMonth && selectedDay)) {
     selectedMonth = getCurrentMonth();
     selectedDay = getCurrentDay();
     selectedYear = getCurrentYear();
   }

   currentMonth = selectedMonth;
   currentDay = selectedDay;
   currentYear = selectedYear;

   if(document.getElementById){

     calendar = document.getElementById(calendarId);
     calendar.innerHTML = calendarDrawTable(currentYear, currentMonth);

     setProperty('display', 'block');

     var fieldPos = new positionInfo(dateField);
     var calendarPos = new positionInfo(calendarId);

     var x = fieldPos.getElementLeft();
     var y = fieldPos.getElementBottom();

     setProperty('left', x + "px");
     setProperty('top', y + "px");

     if (document.all) {
       setElementProperty('display', 'block', 'CalendarControlIFrame');
       setElementProperty('left', x + "px", 'CalendarControlIFrame');
       setElementProperty('top', y + "px", 'CalendarControlIFrame');
       setElementProperty('width', calendarPos.getElementWidth() + "px", 'CalendarControlIFrame');
       setElementProperty('height', calendarPos.getElementHeight() + "px", 'CalendarControlIFrame');
     }
   }
 }

 this.hide = hide;
 function hide() {
   if(dateField) {
     setProperty('display', 'none');
     setElementProperty('display', 'none', 'CalendarControlIFrame');
     dateField = null;
   }
 }

 this.visible = visible;
 function visible() {
   return dateField
 }

 this.can_hide = can_hide;
 var can_hide = 0;
}

var calendarControl = new CalendarControl();

function showCalendarControl(textField) {
 // textField.onblur = hideCalendarControl;
 calendarControl.show(textField);
}

function clearCalendarControl() {
 calendarControl.clearDate();
}

function hideCalendarControl() {
 if (calendarControl.visible()) {
   calendarControl.hide();
 }
}

function setCalendarControlDate(year, month, day) {
 calendarControl.setDate(year, month, day);
}

function changeCalendarControlYear(change) {
 calendarControl.changeYear(change);
}

function changeCalendarControlMonth(change) {
 calendarControl.changeMonth(change);
}

document.write("");
document.write("
");





#CalendarControlIFrame {
 display: none;
 left: 0px;
 position: absolute;
 top: 0px;
 height: 250px;
 width: 250px;
 z-index: 99;
}

#CalendarControl {
 position:absolute;
 background-color:#FFF;
 margin:0;
 padding:0;
 display:none;
 z-index: 100;
}

#CalendarControl table {
 font-family: arial, verdana, helvetica, sans-serif;
 font-size: 8pt;
 border-left: 1px solid #336;
 border-right: 1px solid #336;
}

#CalendarControl th {
 font-weight: normal;
}

#CalendarControl th a {
 font-weight: normal;
 text-decoration: none;
 color: #FFF;
 padding: 1px;
}

#CalendarControl td {
 text-align: center;
}

#CalendarControl .header {
 background-color: #336;
}

#CalendarControl .weekday {
 background-color: #DDD;
 color: #000;
}

#CalendarControl .weekend {
 background-color: #FFC;
 color: #000;
}

#CalendarControl .current {
 border: 1px solid #339;
 background-color: #336;
 color: #FFF;
}

#CalendarControl .weekday,
#CalendarControl .weekend,
#CalendarControl .current {
 display: block;
 text-decoration: none;
 border: 1px solid #FFF;
 width: 2em;
}

#CalendarControl .weekday:hover,
#CalendarControl .weekend:hover,
#CalendarControl .current:hover {
 color: #FFF;
 background-color: #336;
 border: 1px solid #999;
}

#CalendarControl .previous {
 text-align: left;
}

#CalendarControl .next {
 text-align: right;
}

#CalendarControl .previous,
#CalendarControl .next {
 padding: 1px 3px 1px 3px;
 font-size: 1.4em;
}

#CalendarControl .previous a,
#CalendarControl .next a {
 color: #FFF;
 text-decoration: none;
 font-weight: bold;
}

#CalendarControl .title {
 text-align: center;
 font-weight: bold;
 color: #FFF;
}

#CalendarControl .empty {
 background-color: #CCC;
 border: 1px solid #FFF;
}

Convert code from/to C# to/from VB.net

This link is used to convert the code from C# to VB and VB to C#.
http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx