create table imgupl(id int identity(1,1),filename varchar(500),uploadedfile image)
----------------------------------------
upload
--------
string fileName = System.IO.Path.GetFileName(this.FileUpload1.FileName);
byte[] fileContent = this.FileUpload1.FileBytes;
con.open();
using (SqlCommand command = new SqlCommand("insert into imgupl values(@Filename,@FileContent)", con))
{
SqlParameter fileNameParameter = new SqlParameter("@Filename", System.Data.SqlDbType.NVarChar, 255);
fileNameParameter.Value = fileName ;
SqlParameter fileContentParameter = new SqlParameter("@FileContent", System.Data.SqlDbType.Image);
fileContentParameter.Value = fileContent ;
command.Parameters.AddRange(new SqlParameter[] { fileNameParameter, fileContentParameter });
command.ExecuteNonQuery();
MyTemp = "Record Saved Successfully.";
}
----------------------------------------
download:
-------------
string fileId = "1";
using (SqlCommand command = new SqlCommand("SELECT filename ,uploadedfile FROM imgupl WHERE id = @FileId", connection))
{
command.Parameters.AddWithValue("@FileId", fileId.Replace("-", "||"));
SqlDataReader reader = command.ExecuteReader(CommandBehavior.CloseConnection);
if (reader.HasRows)
{
reader.Read();
byte[] content = reader["uploadedfile "] as byte[];
string filename = reader["filename "].ToString();
Response.Clear();
Response.ClearContent();
Response.AddHeader("Content-Disposition", "attachment; filename=" + filename);
Response.AddHeader("Content-Length", content.Length.ToString());
Response.OutputStream.Write(content, 0, content.Length);
Response.End();
}
}
----------------------------------------
Monday, October 26, 2009
Export DataSet To Excel VB.Net
Public Sub ExportDataSetToExcel(ByVal dt As DataTable, ByVal filename As String)
Dim response As HttpResponse = HttpContext.Current.Response
' first let's clean up the response.object
response.Clear()
response.Charset = ""
' set the response mime type for excel
response.ContentType = "application/vnd.ms-excel"
response.AddHeader("Content-Disposition", "attachment;filename=""" & filename & """")
' create a string writer
Using sw As New StringWriter()
Using htw As New HtmlTextWriter(sw)
' instantiate a datagrid
Dim dg As New GridView()
dg.AllowPaging = False
dg.DataSource = dt
dg.DataBind()
dg.RenderControl(htw)
response.Write(sw.ToString())
response.[End]()
End Using
End Using
End Sub
Dim response As HttpResponse = HttpContext.Current.Response
' first let's clean up the response.object
response.Clear()
response.Charset = ""
' set the response mime type for excel
response.ContentType = "application/vnd.ms-excel"
response.AddHeader("Content-Disposition", "attachment;filename=""" & filename & """")
' create a string writer
Using sw As New StringWriter()
Using htw As New HtmlTextWriter(sw)
' instantiate a datagrid
Dim dg As New GridView()
dg.AllowPaging = False
dg.DataSource = dt
dg.DataBind()
dg.RenderControl(htw)
response.Write(sw.ToString())
response.[End]()
End Using
End Using
End Sub
covert number into words(like denomination)
Public Function Fn_NumToWord(ByVal NumVal As Integer) As String
Dim NoArr() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim StrLength, i As Integer
Dim TNo As String
TNo = Trim(Str(NumVal))
StrLength = Len(TNo)
For i = 0 To StrLength - 1
NoArr(i) = Microsoft.VisualBasic.Right(TNo, 1)
TNo = Microsoft.VisualBasic.Left(TNo, StrLength - (i + 1))
Next i
Fn_NumToWord = ConvStr(NoArr)
End Function
Private Function ConvStr(ByVal NoA As Integer()) As String
Dim CrVal, LakVal, ThVal, Hval, LaVal As Integer
Dim CoStr As String
CrVal = (NoA(8) * 10) + NoA(7)
LakVal = (NoA(6) * 10) + NoA(5)
ThVal = (NoA(4) * 10) + NoA(3)
Hval = NoA(2)
LaVal = (NoA(1) * 10) + NoA(0)
CoStr = IndStr(CrVal, 0) & IndStr(LakVal, 1) & IndStr(ThVal, 2) & IndStr(Hval, 3)
Dim LaStr As String = IndStr(LaVal, 4)
If CoStr <> "" And LaStr <> "" Then
ConvStr = CoStr & " and " & LaStr
Else
ConvStr = CoStr & LaStr
End If
End Function
Private Function IndStr(ByVal NoVal As Integer, ByVal OrdNo As Integer) As String
Dim S, K As String
Dim LastStr() As String = {"", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ", "Ten ", "Eleven ", "Tweleve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ", "Twenty"}
Dim OrdArr() As String = {"Crore ", "Lakh ", "Thousand ", "Hundred ", ""}
Dim Valstr() As String = {"", "", "Twenty ", "Thirty ", "Fourty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety"}
If NoVal < 20 Then
S = LastStr(NoVal)
Else
S = Valstr(Int(NoVal / 10)) & LastStr(NoVal Mod 10)
End If
If S <> "" Then IndStr = S & OrdArr(OrdNo)
End Function
Dim NoArr() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim StrLength, i As Integer
Dim TNo As String
TNo = Trim(Str(NumVal))
StrLength = Len(TNo)
For i = 0 To StrLength - 1
NoArr(i) = Microsoft.VisualBasic.Right(TNo, 1)
TNo = Microsoft.VisualBasic.Left(TNo, StrLength - (i + 1))
Next i
Fn_NumToWord = ConvStr(NoArr)
End Function
Private Function ConvStr(ByVal NoA As Integer()) As String
Dim CrVal, LakVal, ThVal, Hval, LaVal As Integer
Dim CoStr As String
CrVal = (NoA(8) * 10) + NoA(7)
LakVal = (NoA(6) * 10) + NoA(5)
ThVal = (NoA(4) * 10) + NoA(3)
Hval = NoA(2)
LaVal = (NoA(1) * 10) + NoA(0)
CoStr = IndStr(CrVal, 0) & IndStr(LakVal, 1) & IndStr(ThVal, 2) & IndStr(Hval, 3)
Dim LaStr As String = IndStr(LaVal, 4)
If CoStr <> "" And LaStr <> "" Then
ConvStr = CoStr & " and " & LaStr
Else
ConvStr = CoStr & LaStr
End If
End Function
Private Function IndStr(ByVal NoVal As Integer, ByVal OrdNo As Integer) As String
Dim S, K As String
Dim LastStr() As String = {"", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ", "Ten ", "Eleven ", "Tweleve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ", "Twenty"}
Dim OrdArr() As String = {"Crore ", "Lakh ", "Thousand ", "Hundred ", ""}
Dim Valstr() As String = {"", "", "Twenty ", "Thirty ", "Fourty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety"}
If NoVal < 20 Then
S = LastStr(NoVal)
Else
S = Valstr(Int(NoVal / 10)) & LastStr(NoVal Mod 10)
End If
If S <> "" Then IndStr = S & OrdArr(OrdNo)
End Function
date coversion(American to Indian Format and vice versa)
Change the culture
for Indian date date format(dd/MM/yyyy)
for Indian date date format(dd/MM/yyyy)
<%@ Page Language="C#" MasterPageFile="~/MasterUser.master" Culture="en-CA" AutoEventWireup="true" CodeFile="default.aspx.cs" Inherits="default" Title="" %>
C#
---------
public string IndianDateConverter(string Dat)
{
string[] StrArr;
string str;
StrArr = Dat.Split('/');
str = Convert.ToString(StrArr[0]);
StrArr[0] = Convert.ToString(StrArr[1]);
StrArr[1] = str;
Dat = "";
Dat = StrArr[0] + "/";
Dat += StrArr[1] + "/";
Dat += StrArr[2];
return Dat;
}
VB.Net
-----------
Public Function fn_convertdate(ByVal dates As String) As String
Try
Dim strr(), str As String
str = dates
strr = dates.Split("/")
str = strr(0)
strr(0) = strr(1)
strr(1) = str
dates = ""
dates = strr(0) & "/"
dates += strr(1) & "/"
dates += strr(2)
Return dates
Catch ex As Exception
End Try
End Function
validate programmatically VB.Net
Public Function Fn_Check_Characters(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Characters = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46)) Then
Fn_Check_Characters = False
Exit For
End If
Next
End Function
Public Function Fn_Check_DataGrid_String(ByVal NewStr As String) As Boolean
Dim Str, j As String
Dim i As Integer
Fn_Check_DataGrid_String = True
For i = 1 To Len(NewStr)
j = Mid(NewStr, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46)) Then
Fn_Check_DataGrid_String = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Extra_Characters(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Extra_Characters = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46) Or (Asc(j) = 44) Or (Asc(j) = 47) Or (Asc(j) = 40) Or (Asc(j) = 41) Or (Asc(j) = 59)) Then
Fn_Check_Extra_Characters = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Pure_Numbers(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Pure_Numbers = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_Pure_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Pure_Numbers1(ByVal T As String) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T
Fn_Check_Pure_Numbers1 = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_Pure_Numbers1 = False
Exit For
End If
Next
End Function
Public Function Fn_Check_DataGrid_Numbers(ByVal NewStr As String) As Boolean
Dim j As String
Dim i As Integer
Fn_Check_DataGrid_Numbers = True
For i = 1 To Len(NewStr)
j = Mid(NewStr, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_DataGrid_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Numbers(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i, Cnt As Integer
Cnt = 0
Str = Trim(T.Text)
Fn_Check_Numbers = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If j = "." Then
Cnt = Cnt + 1
If Cnt = 2 Then
Fn_Check_Numbers = False
Exit For
End If
End If
If Not ((Asc(j) >= 48 And Asc(j) <= 57) Or Asc(j) = 46 Or Asc(j) = 45) Then
Fn_Check_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Alpha_Numeric(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Alpha_Numeric = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) >= 48 And Asc(j) <= 57) Or (Asc(j) = 46)) Then
Fn_Check_Alpha_Numeric = False
Exit For
End If
Next
End Function
Public Function Fn_Date_Validations(ByVal EDay As DropDownList, ByVal Emonth As DropDownList, ByVal EYear As DropDownList) As Boolean
Dim Str As String
Fn_Date_Validations = True
If Emonth.SelectedItem.Text = "Feb" Then
If (Val(EYear.SelectedItem.Text) Mod 4) = 0 Then
If Val(EDay.SelectedItem.Text) > 29 Then
Fn_Date_Validations = False
Exit Function
End If
Else
If Val(EDay.SelectedItem.Text) > 28 Then
Fn_Date_Validations = False
Exit Function
End If
End If
Else
Str = Emonth.SelectedItem.Text
If Not (Str = "Jan" Or Str = "Mar" Or Str = "May" Or Str = "Jul" Or Str = "Aug" Or Str = "Oct" Or Str = "Dec") Then
If Val(EDay.SelectedItem.Text) > 30 Then
Fn_Date_Validations = False
Exit Function
End If
End If
End If
End Function
Public Sub Pr_Month_Numeric_Validations(ByVal EDay As DropDownList, ByVal Emonth As DropDownList, ByVal EYear As DropDownList)
Dim Str As String
If EYear.SelectedItem.Text = "Year" Or Emonth.SelectedItem.Text = "Month" Then
Exit Sub
End If
If Emonth.SelectedItem.Text = "2" Then
If (EYear.SelectedItem.Text Mod 4) = 0 Then
Call Pr_Fill_Combo_Days(EDay, 29)
Else
Call Pr_Fill_Combo_Days(EDay, 28)
End If
Else
Str = Emonth.SelectedItem.Text
If Str = "1" Or Str = "3" Or Str = "5" Or Str = "7" Or Str = "8" Or Str = "10" Or Str = "12" Then
Call Pr_Fill_Combo_Days(EDay, 31)
Else
Call Pr_Fill_Combo_Days(EDay, 30)
End If
End If
End Sub
Public Function removesplcharacter(ByVal ValArray() As Char) As String
Dim usability As String = ""
For i As Integer = 0 To ValArray.Length - 1
If Not ValArray(i) = " " And Not ValArray(i) = "-" And Not ValArray(i) = "." Then
usability = usability + ValArray(i)
End If
Next
Return usability
End Function
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Characters = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46)) Then
Fn_Check_Characters = False
Exit For
End If
Next
End Function
Public Function Fn_Check_DataGrid_String(ByVal NewStr As String) As Boolean
Dim Str, j As String
Dim i As Integer
Fn_Check_DataGrid_String = True
For i = 1 To Len(NewStr)
j = Mid(NewStr, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46)) Then
Fn_Check_DataGrid_String = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Extra_Characters(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Extra_Characters = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) = 46) Or (Asc(j) = 44) Or (Asc(j) = 47) Or (Asc(j) = 40) Or (Asc(j) = 41) Or (Asc(j) = 59)) Then
Fn_Check_Extra_Characters = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Pure_Numbers(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Pure_Numbers = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_Pure_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Pure_Numbers1(ByVal T As String) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T
Fn_Check_Pure_Numbers1 = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_Pure_Numbers1 = False
Exit For
End If
Next
End Function
Public Function Fn_Check_DataGrid_Numbers(ByVal NewStr As String) As Boolean
Dim j As String
Dim i As Integer
Fn_Check_DataGrid_Numbers = True
For i = 1 To Len(NewStr)
j = Mid(NewStr, i, 1)
If Not ((Asc(j) >= 48 And Asc(j) <= 57)) Then
Fn_Check_DataGrid_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Numbers(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i, Cnt As Integer
Cnt = 0
Str = Trim(T.Text)
Fn_Check_Numbers = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If j = "." Then
Cnt = Cnt + 1
If Cnt = 2 Then
Fn_Check_Numbers = False
Exit For
End If
End If
If Not ((Asc(j) >= 48 And Asc(j) <= 57) Or Asc(j) = 46 Or Asc(j) = 45) Then
Fn_Check_Numbers = False
Exit For
End If
Next
End Function
Public Function Fn_Check_Alpha_Numeric(ByVal T As TextBox) As Boolean
Dim Str, j As String
Dim i As Integer
Str = T.Text
Fn_Check_Alpha_Numeric = True
For i = 1 To Len(Str)
j = Mid(Str, i, 1)
If Not ((Asc(j) >= 65 And Asc(j) <= 90) Or (Asc(j) >= 97 And Asc(j) <= 122) Or (Asc(j) = 32) Or (Asc(j) >= 48 And Asc(j) <= 57) Or (Asc(j) = 46)) Then
Fn_Check_Alpha_Numeric = False
Exit For
End If
Next
End Function
Public Function Fn_Date_Validations(ByVal EDay As DropDownList, ByVal Emonth As DropDownList, ByVal EYear As DropDownList) As Boolean
Dim Str As String
Fn_Date_Validations = True
If Emonth.SelectedItem.Text = "Feb" Then
If (Val(EYear.SelectedItem.Text) Mod 4) = 0 Then
If Val(EDay.SelectedItem.Text) > 29 Then
Fn_Date_Validations = False
Exit Function
End If
Else
If Val(EDay.SelectedItem.Text) > 28 Then
Fn_Date_Validations = False
Exit Function
End If
End If
Else
Str = Emonth.SelectedItem.Text
If Not (Str = "Jan" Or Str = "Mar" Or Str = "May" Or Str = "Jul" Or Str = "Aug" Or Str = "Oct" Or Str = "Dec") Then
If Val(EDay.SelectedItem.Text) > 30 Then
Fn_Date_Validations = False
Exit Function
End If
End If
End If
End Function
Public Sub Pr_Month_Numeric_Validations(ByVal EDay As DropDownList, ByVal Emonth As DropDownList, ByVal EYear As DropDownList)
Dim Str As String
If EYear.SelectedItem.Text = "Year" Or Emonth.SelectedItem.Text = "Month" Then
Exit Sub
End If
If Emonth.SelectedItem.Text = "2" Then
If (EYear.SelectedItem.Text Mod 4) = 0 Then
Call Pr_Fill_Combo_Days(EDay, 29)
Else
Call Pr_Fill_Combo_Days(EDay, 28)
End If
Else
Str = Emonth.SelectedItem.Text
If Str = "1" Or Str = "3" Or Str = "5" Or Str = "7" Or Str = "8" Or Str = "10" Or Str = "12" Then
Call Pr_Fill_Combo_Days(EDay, 31)
Else
Call Pr_Fill_Combo_Days(EDay, 30)
End If
End If
End Sub
Public Function removesplcharacter(ByVal ValArray() As Char) As String
Dim usability As String = ""
For i As Integer = 0 To ValArray.Length - 1
If Not ValArray(i) = " " And Not ValArray(i) = "-" And Not ValArray(i) = "." Then
usability = usability + ValArray(i)
End If
Next
Return usability
End Function
create table programmatically with 'n' number of column c#
public int CreateTable(string tabname1,string tabname2,string[] MyAtt)
{
try
{
MyAtt = tabname1;
MyProd = tabname2;
SB.Append("CREATE TABLE " + MyProd + " (");
SBB.Append("CREATE TABLE " + MyProd + "_QUERYLOG (");
for (int i = 0; i < MyAtt.Length; i++)
{
if (i == MyAtt.Length-1)
{
SB.Append(MyAtt[i] + " BIT,");
SBB.Append(MyAtt[i] + " BIT)");
}
else
{
SB.Append(MyAtt[i] + " BIT,");
SBB.Append(MyAtt[i] + " BIT,");
}
}
SB.Append("DESCRIPTION VARCHAR(500),NOTEPAD IMAGE,MAXIVISI INT,FILNAM VARCHAR(500))");
int I = DAL.CreateTab(SBB.ToString());
int y = DAL.CreateTab(SB.ToString());
return y;
}
catch
{
return 0;
}
}
fill ListBox ,CheckBoxList programetically
public CheckBoxList ChkBxLst(CheckBoxList ck, DataTable MyDT)
{
ck.Items.Clear();
for (int i = 0; i < MyDT.Rows.Count; i++)
{
ck.Items.Add(MyDT.Rows[i][0].ToString());
}
return ck;
}
public ListBox MyListBox (ListBox LB, DataTable MyDT)
{
LB.Items.Clear();
for (int i = 0; i < MyDT.Rows.Count-2; i++)
{
LB.Items.Add(MyDT.Rows[i][0].ToString());
}
return LB;
}
{
ck.Items.Clear();
for (int i = 0; i < MyDT.Rows.Count; i++)
{
ck.Items.Add(MyDT.Rows[i][0].ToString());
}
return ck;
}
public ListBox MyListBox (ListBox LB, DataTable MyDT)
{
LB.Items.Clear();
for (int i = 0; i < MyDT.Rows.Count-2; i++)
{
LB.Items.Add(MyDT.Rows[i][0].ToString());
}
return LB;
}
split, substring and remove null values in string array in c#
public string[] MySplit(string SplitStr,string SplitbyStr)
{
Sltstr = SplitStr.Split((SplitbyStr).ToCharArray());
return Sltstr;
}
public string MySubString(string Mystr, int cnt)
{
MyInt = Mystr.Length;
if (cnt > MyInt)
{
MyTemp = Mystr.Substring(0, MyInt);
}
else
{
MyTemp = Mystr.Substring(0, cnt);
}
return MyTemp;
}
public string[] RemoveEmptyFromArray(string[] OriginalArray)
{
SB.Remove(0, SB.Length);
//IEnumerator IEnu = MySplit(OriginalArray[0],":") .GetEnumerator();
//while (IEnu.MoveNext())
//{
// if (IEnu.Current.ToString() != "")
// {
// sTmp.Append(IEnu.Current.ToString()+ "||");
// }
//}
for (int i = 0; i < OriginalArray.Length; i++)
{
string s = Convert.ToString(OriginalArray[i]);
//if (i == 0 && s != "")
// if (s == "")
if (i == 0 && s != null)
{
SB.Append(Convert.ToString(s));
}
else if (Convert.ToString(SB) == "" && s != null)
{
SB.Append(Convert.ToString(s));
}
else if (s != null)
{
SB.Append("|" + Convert.ToString(s));
}
//if (Convert.ToString(OriginalArray[i]) != "")
//{
// if (i == OriginalArray.Length - 1)
// {
// SB.Append(Convert.ToString(OriginalArray[i]));
// }
// else
// {
// SB.Append(Convert.ToString(OriginalArray[i]) + "|");
// }
//}
}
return MySplit(SB.ToString(), "|");
}
{
Sltstr = SplitStr.Split((SplitbyStr).ToCharArray());
return Sltstr;
}
public string MySubString(string Mystr, int cnt)
{
MyInt = Mystr.Length;
if (cnt > MyInt)
{
MyTemp = Mystr.Substring(0, MyInt);
}
else
{
MyTemp = Mystr.Substring(0, cnt);
}
return MyTemp;
}
public string[] RemoveEmptyFromArray(string[] OriginalArray)
{
SB.Remove(0, SB.Length);
//IEnumerator IEnu = MySplit(OriginalArray[0],":") .GetEnumerator();
//while (IEnu.MoveNext())
//{
// if (IEnu.Current.ToString() != "")
// {
// sTmp.Append(IEnu.Current.ToString()+ "||");
// }
//}
for (int i = 0; i < OriginalArray.Length; i++)
{
string s = Convert.ToString(OriginalArray[i]);
//if (i == 0 && s != "")
// if (s == "")
if (i == 0 && s != null)
{
SB.Append(Convert.ToString(s));
}
else if (Convert.ToString(SB) == "" && s != null)
{
SB.Append(Convert.ToString(s));
}
else if (s != null)
{
SB.Append("|" + Convert.ToString(s));
}
//if (Convert.ToString(OriginalArray[i]) != "")
//{
// if (i == OriginalArray.Length - 1)
// {
// SB.Append(Convert.ToString(OriginalArray[i]));
// }
// else
// {
// SB.Append(Convert.ToString(OriginalArray[i]) + "|");
// }
//}
}
return MySplit(SB.ToString(), "|");
}
Restrict file selected in FileUpload control in Asp.Net
private bool IsValidFile(string filePath)
{
bool isValid = false;
string[] fileExtensions = { ".bmp", ".jpg", ".png", ".gif", ".jpeg", ".doc", ".docx", ".txt", ".rtf", ".RTF", ".DOC", ".DOCX", ".TXT", ".BMP", ".JPG", ".PNG", ".JPEG" };
for (int i = 0; i < fileExtensions.Length; i++)
{
if (filePath.Contains(fileExtensions[i]))
{
isValid = true;
}
}
return isValid;
}
reset controls in asp.net
C#:
------
public void ResetFormControlValues(this) 'or'
public void ResetFormControlValues(Control parent)
{
foreach (Control c in parent.Controls)
{
if (c.Controls.Count > 0)
{
ResetFormControlValues(c);
}
else
{
switch (c.GetType().ToString())
{
case "System.Web.UI.WebControls.TextBox":
((TextBox)c).Text = "";
break;
case "System.Web.UI.WebControls.CheckBox":
((CheckBox)c).Checked = false;
break;
case "System.Web.UI.WebControls.RadioButton":
((RadioButton)c).Checked = false;
break;
}
}
}
------------------------------------------------------
VB.Net
----------
Public Sub ResetFormControlValues(ByVal parent As Control)
'Dim c As New Control
For Each c As Control In parent.Controls
If c.Controls.Count > 0 Then
ResetFormControlValues(c)
Else
Select Case (c.GetType().ToString())
Case "System.Web.UI.WebControls.TextBox"
CType(c, TextBox).Text = ""
Case "System.Web.UI.WebControls.CheckBox"
CType(c, CheckBox).Checked = False
Case "System.Web.UI.WebControls.RadioButton"
CType(c, RadioButton).Checked = False
Case "System.Web.UI.WebControls.DropDownList"
CType(c, DropDownList).SelectedIndex = 0
End Select
End If
Next
End Sub
------
public void ResetFormControlValues(this) 'or'
public void ResetFormControlValues(Control parent)
{
foreach (Control c in parent.Controls)
{
if (c.Controls.Count > 0)
{
ResetFormControlValues(c);
}
else
{
switch (c.GetType().ToString())
{
case "System.Web.UI.WebControls.TextBox":
((TextBox)c).Text = "";
break;
case "System.Web.UI.WebControls.CheckBox":
((CheckBox)c).Checked = false;
break;
case "System.Web.UI.WebControls.RadioButton":
((RadioButton)c).Checked = false;
break;
}
}
}
------------------------------------------------------
VB.Net
----------
Public Sub ResetFormControlValues(ByVal parent As Control)
'Dim c As New Control
For Each c As Control In parent.Controls
If c.Controls.Count > 0 Then
ResetFormControlValues(c)
Else
Select Case (c.GetType().ToString())
Case "System.Web.UI.WebControls.TextBox"
CType(c, TextBox).Text = ""
Case "System.Web.UI.WebControls.CheckBox"
CType(c, CheckBox).Checked = False
Case "System.Web.UI.WebControls.RadioButton"
CType(c, RadioButton).Checked = False
Case "System.Web.UI.WebControls.DropDownList"
CType(c, DropDownList).SelectedIndex = 0
End Select
End If
Next
End Sub
fill treeview programmatically in asp.net
public void TreeViewPopulateNodes(DataTable dt, TreeNodeCollection nodes)
{
foreach (DataRow dr in dt.Rows)
{
TreeNode tn = new TreeNode();
tn.Text = dr["name"].ToString();
//tn.Value = dr["idd"].ToString();
nodes.Add(tn);
//If node has child nodes, then enable on-demand populating
//tn.PopulateOnDemand = ((int)dr["childnodecount"] > 0);
}
}
public void TreeViewPopulateSubLevel(String parentid, TreeNode parentNode)
{
DB.DbConnect(con);
cmd = new SqlCommand("select IDD,NAM,(select count(*) FROM model WHERE parentid=sc.idd) childnodecount FROM model sc where parentid='" + parentid + "' ", con);
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(dt);
TreeViewPopulateNodes(dt, parentNode.ChildNodes);
}
public void TreeViewPopulateRootLevel(string Fld, TreeView TreeView1)
{
cmd = new SqlCommand("select IDD,NAM,(select count(*) FROM model WHERE parentid=sc.IDD) childnodecount FROM model sc where parentid IS NULL and nam='" + Fld + "'", con);
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(dt);
TreeViewPopulateNodes(dt, TreeView1.Nodes);
}
{
foreach (DataRow dr in dt.Rows)
{
TreeNode tn = new TreeNode();
tn.Text = dr["name"].ToString();
//tn.Value = dr["idd"].ToString();
nodes.Add(tn);
//If node has child nodes, then enable on-demand populating
//tn.PopulateOnDemand = ((int)dr["childnodecount"] > 0);
}
}
public void TreeViewPopulateSubLevel(String parentid, TreeNode parentNode)
{
DB.DbConnect(con);
cmd = new SqlCommand("select IDD,NAM,(select count(*) FROM model WHERE parentid=sc.idd) childnodecount FROM model sc where parentid='" + parentid + "' ", con);
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(dt);
TreeViewPopulateNodes(dt, parentNode.ChildNodes);
}
public void TreeViewPopulateRootLevel(string Fld, TreeView TreeView1)
{
cmd = new SqlCommand("select IDD,NAM,(select count(*) FROM model WHERE parentid=sc.IDD) childnodecount FROM model sc where parentid IS NULL and nam='" + Fld + "'", con);
SqlDataAdapter da = new SqlDataAdapter(cmd);
da.Fill(dt);
TreeViewPopulateNodes(dt, TreeView1.Nodes);
}
Subscribe to:
Posts (Atom)