Dot Net Tutorial

private void btnpreview_Click(object sender, EventArgs e)
{
try
{
dt = cs.getTable("select * from [View] where hall='Receiption'", con.con.ConnectionString.ToString());
if (dt.Rows.Count > 0)
{
Image im = Bitmap.FromFile(dt.Rows[0]["image"].ToString());
gbLabels.BackgroundImage = im;

TypeConverter converter = TypeDescriptor.GetConverter(typeof(Font));
// Saving Font object as a string
string fontString = dt.Rows[0]["font"].ToString();
string scrollfontString = dt.Rows[0]["scrollfont"].ToString();
// Load an instance of Font from a string
Font fon = (Font)converter.ConvertFromString(fontString);
Font scrollfon = (Font)converter.ConvertFromString(fontString);
string color = dt.Rows[0]["color"].ToString();
string scrollcolor = dt.Rows[0]["scrollcolor"].ToString();
Color col = System.Drawing.ColorTranslator.FromHtml("#" + color);
Color scrollcol = System.Drawing.ColorTranslator.FromHtml("#" + scrollcolor);

lblEventName.Font = fon;
lblEventName.ForeColor = col;
lblnotes.Font = fon;
lbltime.Font = fon;
label2.Font = fon;
label1.Font = fon;
lblnotes.ForeColor = col;
lbltime.ForeColor = col;
label2.ForeColor = col;
label1.ForeColor = col;
dougScrollingTextCtrl1.DougScrollingTextColor1 = scrollcol;
dougScrollingTextCtrl1.Font = scrollfon;
gbLabels.Visible = true;

}
}
catch (Exception ex)
{
Utils.LogHandler.HandleError(ex);
}
}

This summary is not available. Please click here to view the post.

if (fupimage.HasFile)
{
//getting length of uploaded file
int length = fupimage.PostedFile.ContentLength;
//create a byte array to store the binary image data
imgbyte = new byte[length];
//store the currently selected file in memeory
HttpPostedFile img = fupimage.PostedFile;
//set the binary data
img.InputStream.Read(imgbyte, 0, length);
string imagename = fupimage.PostedFile.FileName;
//use the web.config to store the connection string
}
else
{

string fpath = Server.MapPath("~//images//face.gif");
System.IO.FileInfo imageInfo = new System.IO.FileInfo(fpath);
imgbyte = new byte[imageInfo.Length];
System.IO.FileStream imagestream = imageInfo.OpenRead();
imagestream.Read(imgbyte, 0, imgbyte.Length);
imagestream.Close();

}

cmd.Parameters.Add("@photo", SqlDbType.Image).Value = imgbyte;

Definition and Usage

The DATE_FORMAT() function is used to display date/time data in different formats.

Syntax

DATE_FORMAT(date,format)
Where date is a valid date and format specifies the output format for the date/time.

The formats that can be used are:

Format Description
%a Abbreviated weekday name
%b Abbreviated month name
%c Month, numeric
%D Day of month with English suffix
%d Day of month, numeric (00-31)
%e Day of month, numeric (0-31)
%f Microseconds
%H Hour (00-23)
%h Hour (01-12)
%I Hour (01-12)
%i Minutes, numeric (00-59)
%j Day of year (001-366)
%k Hour (0-23)
%l Hour (1-12)
%M Month name
%m Month, numeric (00-12)
%p AM or PM
%r Time, 12-hour (hh:mm:ss AM or PM)
%S Seconds (00-59)
%s Seconds (00-59)
%T Time, 24-hour (hh:mm:ss)
%U Week (00-53) where Sunday is the first day of week
%u Week (00-53) where Monday is the first day of week
%V Week (01-53) where Sunday is the first day of week, used with %X
%v Week (01-53) where Monday is the first day of week, used with %x
%W Weekday name
%w Day of the week (0=Sunday, 6=Saturday)
%X Year of the week where Sunday is the first day of week, four digits, used with %V
%x Year of the week where Monday is the first day of week, four digits, used with %v
%Y Year, four digits
%y Year, two digits

Example

The following script uses the DATE_FORMAT() function to display different formats. We will use the NOW() function to get the current date/time:

DATE_FORMAT(NOW(),'%b %d %Y %h:%i %p')
DATE_FORMAT(NOW(),'%m-%d-%Y')
DATE_FORMAT(NOW(),'%d %b %y')
DATE_FORMAT(NOW(),'%d %b %Y %T:%f')
The result would look something like this:

Nov 04 2008 11:45 PM
11-04-2008
04 Nov 08
04 Nov 2008 11:45:34:243

Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AppendHeader("content-disposition", "attachment; filename=Dashboard.xls")
Response.Charset = ""
Response.Write(DataTable2ExcelString(dtInternalsTemp, dtSuppliersTemp, dtCustomersTemp, "Dashboard"))
Response.End()

Response.ContentType = "application/vnd.ms-excel"

Private Function DataTable2ExcelString(ByVal dt1 As DataTable, ByVal dt2 As DataTable, ByVal dt3 As DataTable, ByVal strfrom As String) As String
Dim sbTop As New Text.StringBuilder()
sbTop.AppendLine("<?xml version=""1.0""?>")
sbTop.AppendLine("<?mso-application progid=""Excel.Sheet""?>")
sbTop.AppendLine("<Workbook")
sbTop.AppendLine(" xmlns=""urn:schemas-microsoft-com:office:spreadsheet""")
sbTop.AppendLine(" xmlns:o=""urn:schemas-microsoft-com:office:office""")
sbTop.AppendLine(" xmlns:x=""urn:schemas-microsoft-com:office:excel""")
sbTop.AppendLine(" xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet""")
sbTop.AppendLine(" xmlns:html=""http://www.w3.org/TR/REC-html40"">")
sbTop.AppendLine(" <DocumentProperties xmlns=""urn:schemas-microsoft-com:office:office"">")
sbTop.AppendLine(" <Author>Surgere</Author>")
sbTop.AppendLine(" <LastAuthor></LastAuthor>")
sbTop.AppendLine(" <Created></Created>")
sbTop.AppendLine(" <Company>Surgere</Company>")
sbTop.AppendLine(" <Version>11.8036</Version>")
sbTop.AppendLine(" </DocumentProperties>")
sbTop.AppendLine(" <ExcelWorkbook xmlns=""urn:schemas-microsoft-com:office:excel"">")
sbTop.AppendLine(" <WindowHeight>6795</WindowHeight>")
sbTop.AppendLine(" <WindowWidth>8460</WindowWidth>")
sbTop.AppendLine(" <WindowTopX>120</WindowTopX>")
sbTop.AppendLine(" <WindowTopY>15</WindowTopY>")
sbTop.AppendLine(" <ProtectStructure>False</ProtectStructure>")
sbTop.AppendLine(" <ProtectWindows>False</ProtectWindows>")
sbTop.AppendLine(" </ExcelWorkbook>")
sbTop.AppendLine(" <Styles>")
sbTop.AppendLine(" <Style ss:ID=""Default"" ss:Name=""Normal"">")
sbTop.AppendLine(" <Alignment ss:Vertical=""Bottom"" />")
sbTop.AppendLine(" <Borders />")
sbTop.AppendLine(" <Font />")
sbTop.AppendLine(" <Interior />")
sbTop.AppendLine(" <NumberFormat />")
sbTop.AppendLine(" <Protection />")
sbTop.AppendLine(" </Style>")
sbTop.AppendLine(" <Style ss:ID=""s21"">")
sbTop.AppendLine(" <Font x:Family=""Swiss"" ss:Bold=""1"" />")
sbTop.AppendLine(" </Style>")
sbTop.AppendLine(" </Styles>")

If strfrom = "Dashboard" Then

If Not dt1 Is Nothing Then

sbTop.AppendLine(" <Worksheet ss:Name=""Internal"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
Dim i As Integer
For i = 0 To dt1.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt1.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
For x = 0 To dt1.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt1.Columns.Count - 1
If dt1.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt1.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If
If Not dt2 Is Nothing Then

sbTop.AppendLine(" <Worksheet ss:Name=""Supplier"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
'Dim i As Integer
For i = 0 To dt2.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt2.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
sType = String.Empty
For x = 0 To dt2.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt2.Columns.Count - 1
If dt2.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt2.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If

If Not dt3 Is Nothing Then
sbTop.AppendLine(" <Worksheet ss:Name=""Customer"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
Dim i As Integer
For i = 0 To dt3.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt3.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
For x = 0 To dt3.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt3.Columns.Count - 1
If dt3.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt3.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If
ElseIf strfrom = "DashboardAsset" Then

If Not dt1 Is Nothing Then

sbTop.AppendLine(" <Worksheet ss:Name=""AssetList"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
Dim i As Integer
For i = 0 To dt1.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt1.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
For x = 0 To dt1.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt1.Columns.Count - 1
If dt1.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt1.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If
ElseIf strfrom = "LaneAlert" Then
If Not dt1 Is Nothing Then

sbTop.AppendLine(" <Worksheet ss:Name=""Unidentified Asset Assignment"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
Dim i As Integer
For i = 0 To dt1.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt1.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
For x = 0 To dt1.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt1.Columns.Count - 1
If dt1.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt1.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If

If Not dt2 Is Nothing Then

sbTop.AppendLine(" <Worksheet ss:Name=""Unidentified Lane Movement"">")
sbTop.AppendLine(" <Table>")

sbTop.AppendLine("<Row>")
'Dim i As Integer
For i = 0 To dt2.Columns.Count - 1
sbTop.AppendLine("<Cell><Data ss:Type=""String"">" & (dt2.Columns(i).ColumnName & "").Replace("<", "<").Replace(">", ">") & "</Data></Cell>")
Next
sbTop.AppendLine("</Row>")

'Items
Dim x As Integer
Dim sType As String
sType = String.Empty
For x = 0 To dt2.Rows.Count - 1
sbTop.Append("<Row>")
For i = 0 To dt2.Columns.Count - 1
If dt2.Columns(i).DataType Is GetType(Decimal) Then
sType = "Number"
Else
sType = "String"
End If
sbTop.Append("<Cell><Data ss:Type=""" & sType & """>" & (dt2.Rows(x)(i) & "").Replace("<", "<").Replace(">", ">").Replace(vbNewLine, "
") & "</Data></Cell>")
Next
sbTop.Append("</Row>")
Next

sbTop.AppendLine(" </Table>")
sbTop.AppendLine(" </Worksheet>")
End If

End If

sbTop.AppendLine("</Workbook>")

Return sbTop.ToString()
End Function

Dot Net Tutorial

Popular Posts

Followers

list

Blog Archive

search DOTNET: