|
found one!
http://www.codeproject.com/aspnet/ColorPicker.asp
|
|
|
|
|
is there ay other way to execute the reports other then the crystal reports viewer way?
Sonia Gupta
Soniagupta1@yahoo.co.in
Yahoo messengerId-soniagupta1
Love is Friendship and Friendship is Love....
|
|
|
|
|
Sonia Gupta wrote: other way
You mean rendering? You have builtin ways to export as PDF right? Acrobat Reader or FoxIT is quite common tool of every desktop.
|
|
|
|
|
if u please provide any link?
Sonia Gupta
Soniagupta1@yahoo.co.in
Yahoo messengerId-soniagupta1
Love is Friendship and Friendship is Love....
|
|
|
|
|
|
hello dude,
There is other way it is using a report viewer control.By that we can generate reports.Plz search and reply again i want the details about that control....i think we can generate report using SQL REPORTING SERVICES CONFIGURATION...
ok byeee
Murali
Murali
|
|
|
|
|
Hi Everyone,
I have 4 columns GridView.. One is BoundField This column is binded to Sno field from my Access Datasource.. 2nd, 3rd & 4th columns are TemplateFields (PartNo, Manufacturer, Qunatity) .. In this Template Fields, I have textboxes./.
Now, Below this Gridview i hv a Button (btnSubmit). What I am trying to do is when user enters values in to textboxes & click on Submit button, all the values should get update in the database..
To achieve this, i have written the following code:
<asp:GridView ID="myGridView1" runat="server" Width="483px" CellPadding="4" ForeColor="#333333" AutoGenerateColumns="False" DataSourceID="AccessDataSource1" OnSelectedIndexChanged="myGridView1_SelectedIndexChanged">
<Columns>
<asp:BoundField DataField="Sno" HeaderText="SNo" SortExpression="Sno"/>
<asp:TemplateField HeaderText="PartNo">
<ItemTemplate>
<asp:TextBox runat="server" ID="txtPartNo">
</asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Manufacturer">
<ItemTemplate>
<asp:TextBox runat="server" ID="txtMfg">
</asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Quantity">
<ItemTemplate>
<asp:TextBox runat="server" ID="txtQty">
</asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<RowStyle BackColor="#EFF3FB" />
<EditRowStyle BackColor="#2461BF" />
<SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
<PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
<HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<AlternatingRowStyle BackColor="White" />
</asp:GridView>
<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="~/App_Data/db1.mdb"
SelectCommand="SELECT [Sno] FROM [RfqInfo]" >
____________________________
protected void btnSubmit_Click(object sender, EventArgs e)
{
OleDbConnection myConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Documents and Settings\\venki\\My Documents\\Visual Studio 2005\\WebSites\\RFQTest\\App_Data\\db1.mdb");
myConnection.Open();
string strQuery = string.Empty;
foreach(GridViewRow dgRow in myGridView1.Rows)
{
string str = ((TextBox)dgRow.FindControl("txtPartNo")).Text.ToString();
string str1 = ((TextBox)dgRow.FindControl("txtMfg")).Text.ToString();
string str2 = ((TextBox)dgRow.FindControl("txtQty")).Text.ToString();
strQuery = "UPDATE [RfqInfo] SET [Partno]= '" + str + "', [mfg] = '" + str1 + "', [qty] = '" + str2 + "'";
}
OleDbCommand cmd = new OleDbCommand(strQuery, myConnection);
cmd.ExecuteNonQuery();
myConnection.Close();
}
now, my problem is when i'm clicking on submit its updating the database with the values of last row in my gridview...  i'm really lost here.... Anyone please help me........ Is there any wrong with my code? I have searched throughout the google but couldn't fine one...
Any help would be appreciated........
Thanks in Advance.
|
|
|
|
|
Hi DKalepu,
I think ,
string str = ((TextBox)dgRow.FindControl("txtPartNo")).Text.ToString();
this line your code giving you problem as you finding control but grid view is having rows of controls so it take last value and gives u ..
try to get values for perticular row .
try this ,
myGridView1.Rows[dgRow.RowIndex].FindControl("txtPartNo")).Text.ToString();
i am not sure ..try some R&D on this u will find answer
pallavi
|
|
|
|
|
Hi Pallavi,
thanks for reply.... I have tried it by debugging. oh but still, same problem..
the value gets stored in the last row position only...
can u plz give me any other advices.....
Thanks,
Durga.
|
|
|
|
|
hello sir,
Instead of keeping in ItemTemplate keep in EditItemTemplate..
ok It will work and plz check datasourceID and dataconnection ..I think only one should be declared.
Try like this ..
ok byee
Murali
Murali
|
|
|
|
|
Hi Murali,
i hv tried using EditItemTemplate as u said... but itisn't showing any textboxes there...
fyi, i'm a girl..
Thanks,
Durga.
|
|
|
|
|
hello durga,
in the edit item template u need to declare the asp:textbox it will not come automatically.try u will get...
ok byeee
Murali
|
|
|
|
|
I have tried it already, but it doesn't show up anything.....
|
|
|
|
|
hi durga,
put
OleDbCommand cmd = new OleDbCommand(strQuery, myConnection);
cmd.ExecuteNonQuery();
code in foreach loop .. now u will get what u want and put where cluase in your query
pallavi
|
|
|
|
|
Thanks for the kind help Pallavi.. My problem solved now..
|
|
|
|
|
Hi
in your code errore is in the this line "strQuery = "UPDATE [RfqInfo] SET [Partno]= '" + str + "', [mfg] = '" + str1 + "', [qty] = '" + str2 + "'";
"
you have not mantioned any whare condition for updating particuler row thats why when last time ur query get executed it update all rows by last row in ur gridview .
Hirdesh
|
|
|
|
|
Hi Hirdesh,
thanks for replying...
I have included the where condition but its showing.. "Syntax error (missing operator) in query expression '[Sno] = Sno[1]'."
here is code snippet:
int i = dgRow.RowIndex + 1;
str = ((TextBox)myGridView1.Rows[dgRow.RowIndex].FindControl("txtPartNo")).Text.ToString();
strQuery = "UPDATE [RfqInfo] SET [Partno]= '" + str + "', [mfg] = '" + str1 + "', [qty] = '" + str2 + "' WHERE [Sno] = Sno[" + i + "]";
plz help me...
|
|
|
|
|
replace your query string by
strQuery = "UPDATE [RfqInfo] SET [Partno]= '" + str + "', [mfg] = '" + str1 + "', [qty] = '" + str2 + "' WHERE [Sno] = " + i;
i'm sure ur code will run fine.
Hirdesh 
|
|
|
|
|
Hi, yup.. it worked very well now...Thank youveryyy much, once again thanks a lot..
|
|
|
|
|
what is App.ico in .net? Can anybody explain me about it. i can't get a clear idea about it.
|
|
|
|
|
.ico is an extention for icon for starters.
Therefore App.ico = Application Icon.
|
|
|
|
|
This is default icon for your application.
God Bless you.
Always do good to others
|
|
|
|
|
Hi,
can anyone say what is the error in the following code. the value present in the datagrid is not getting stored in the variable "assetcode".
Protected Sub dgresult_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgresult.SelectedIndexChanged
Dim assetcode As String
assetcode = dgresult.SelectedItem.Cells(1).Text
Response.Redirect("Edit_UPS.aspx?assetcode=" + assetcode + " ")
End Sub
|
|
|
|
|
What is the error message you are getting??
There is no property of DataGrid called SelectedItem by the way !!
|
|
|
|
|
It is not giving any error. But just not working. As I know this property is used to select the value in a particular column and in fact it is working for me in other pages. But I could not figure it out why it is not working here. Here is the complete code.
Imports System.Web.Security
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports System.Collections
Imports System.Data.SqlClient.SqlConnection
Partial Class Searchups
Inherits System.Web.UI.Page
Dim sqlstr As String
Dim vstr As String
Dim flag As Boolean
Dim constr As String = ConfigurationSettings.AppSettings("conn")
Dim dbconn As New SqlConnection(constr)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Txtasscd.Attributes.Add("onkeydown", "if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('" + Btnsearch.UniqueID + "').click();return false;}} else {return true}; ")
Ddl.Attributes.Add("onkeydown", "if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('" + Btnsearch.UniqueID + "').click();return false;}} else {return true}; ")
Ddmdl.Attributes.Add("onkeydown", "if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('" + Btnsearch.UniqueID + "').click();return false;}} else {return true}; ")
tbreg.Visible = False
tabdg.Visible = False
Calendar1.Visible = False
Calendar2.Visible = False
If Page.IsPostBack = False Then
bindmodel()
bindlocation()
bindoff()
increment()
bindmdl()
vstr = ViewState("vstr")
End If
End Sub
Sub bindmodel()
Dim sqlstr As String
sqlstr = "select model from a_upsmodel order by model"
Dim comm As New SqlCommand(sqlstr, dbconn)
Dim dr As SqlDataReader
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
dr = comm.ExecuteReader
While dr.Read
Ddmdl.Items.Add(dr.Item(0).ToString)
End While
dr.Close()
End Sub
Sub bindresult(ByVal sqlstr As String)
Dim ds As New DataSet()
Dim comm As New SqlDataAdapter(sqlstr, dbconn)
dgresult.DataSource = ds
comm.Fill(ds)
dgresult.DataBind()
'navi.Visible = True
'lblnopg.Text = dgresult.PageCount
End Sub
Sub bindlocation()
Dim sqlstr As String
sqlstr = "select location from a_location order by location"
Dim comm As New SqlCommand(sqlstr, dbconn)
Dim dr As SqlDataReader
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
dr = comm.ExecuteReader
While dr.Read
Ddl.Items.Add(dr.Item(0).ToString)
End While
dr.Close()
End Sub
Sub bindoff()
Dim sqlstr As String
sqlstr = "select location from a_location order by location"
Dim comm As New SqlCommand(sqlstr, dbconn)
Dim dr As SqlDataReader
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
dr = comm.ExecuteReader
While dr.Read
Ddoff.Items.Add(dr.Item(0).ToString)
End While
dr.Close()
End Sub
Sub bindmdl()
Dim sqlstr As String
sqlstr = "select model from a_upsmodel order by model"
Dim comm As New SqlCommand(sqlstr, dbconn)
Dim dr As SqlDataReader
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
dr = comm.ExecuteReader
While dr.Read
DDmodel.Items.Add(dr.Item(0).ToString)
End While
dr.Close()
End Sub
Sub increment()
Dim sqlstr4 As String
Dim dr4 As SqlClient.SqlDataReader
Dim comm As New SqlCommand()
sqlstr4 = "select uno from a_mstr_uno where regno=(select max(regno)from a_mstr_uno)"
Dim sqlcomm4 As New SqlClient.SqlCommand(sqlstr4, dbconn)
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
dr4 = sqlcomm4.ExecuteReader()
Dim vcd As String
While dr4.Read
vcd = dr4.Item("uno")
End While
dbconn.Close()
dr4.Close()
vcd = vcd
vcd = vcd.Substring(1)
vcd = CInt(vcd)
If (vcd >= 1 And vcd <= 9) Then
vcd = vcd + 1
Txtascd.Text = "U0" & vcd.ToString()
ElseIf (vcd >= 10 And vcd <= 99) Then
vcd = vcd + 1
Txtascd.Text = "U" & vcd.ToString()
End If
End Sub
Protected Sub Btnsearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsearch.Click
tabdg.Visible = True
If Txtasscd.Text.Trim = "'" Then
Txtasscd.Text = ""
Exit Sub
End If
dgresult.CurrentPageIndex = 0
ViewState.Remove("vstr")
If Txtasscd.Text.Trim <> "" Then
vstr = " and Assetcode like '" & Txtasscd.Text.Trim & "%'"
ViewState("vstr") = vstr
End If
If Ddmdl.SelectedIndex <> 0 Then
vstr = " and model='" & Ddmdl.SelectedItem.ToString() & "'"
ViewState("vstr") += vstr
End If
If Ddl.SelectedIndex <> 0 Then
vstr = " and location='" & Ddl.SelectedItem.ToString() & "'"
ViewState("vstr") += vstr
End If
vstr = ViewState("vstr")
sqlstr = "select a.AssetCode,a.SerialNumber,a.Model,'NoOfSystemsConnected'=a.NoOfSystems,a.Capacity,a.Location,a.Sub_Location,a.Status,a.Vendor,'Amc Date'=a.amc,'Wty Date'=Wty,a.Remarks from A_ups a,a_mstr_uno u where a.assetcode=u.uno" + vstr + " order by u.regno asc"
ViewState("sqlstr") = sqlstr
' bindresult(sqlstr)
If dgresult.AllowPaging = True Then
sqlstr = ViewState("sqlstr")
dgresult.AllowPaging = False
bindresult(sqlstr)
tabdg.Visible = True
Else
sqlstr = ViewState("sqlstr")
dgresult.AllowPaging = True
bindresult(sqlstr)
tabdg.Visible = True
End If
End Sub
Sub clear()
Ddoff.SelectedIndex = 0
Ddmdl.SelectedIndex = 0
Txtvendor.Text = ""
Txtnsys.Text = ""
Txtamc.Text = Now.Date
Txtwty.Text = Now.Date
Txtremark.Text = "Nil"
Txtcapacity.Text = ""
Txtlocation.Text = ""
txtslno.Text = ""
increment()
End Sub
Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
tbreg.Visible = True
If Ddoff.SelectedIndex = 0 Then
lblmsg.Text = "Select the Location !"
lblmsg.ForeColor = Drawing.Color.Red
lblmsg.Visible = True
Exit Sub
End If
If (txtslno.Text = "") Then
lblmsg.Visible = True
lblmsg.ForeColor = Drawing.Color.Red
lblmsg.Text = "Enter Serial Number"
Exit Sub
End If
If DDmodel.SelectedIndex = 0 Then
lblmsg.Text = "Select the model !"
lblmsg.ForeColor = Drawing.Color.Red
lblmsg.Visible = True
Exit Sub
End If
Dim orderid As Integer
Dim sqlstr As String
Dim sqlstr1 As String
Dim dr As SqlDataReader
flag = False
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
sqlstr = "select regno from a_mstr_uno order by regno"
Dim comm2 As New SqlCommand(sqlstr, dbconn)
dr = comm2.ExecuteReader
While dr.Read
orderid = dr.Item(0)
End While
dr.Close()
dbconn.Close()
orderid = orderid + 1
sqlstr = "insert into a_ups (assetcode,Location,Sub_Location,serialnumber,vendor, model,amc,wty,capacity,Noofsystems,status,REMARKS) values ('" & Txtascd.Text.ToUpper() & "','" & Ddoff.SelectedItem.ToString() & "','" & Txtlocation.Text & "','" & txtslno.Text & "','" & Txtvendor.Text & "','" & Ddmdl.SelectedItem.ToString() & "','" & Txtamc.Text.Trim & "','" & Txtwty.Text.Trim & "','" & Txtcapacity.Text & "','" & Txtnsys.Text & "','" & DDstatus.SelectedItem.ToString() & "','" & Txtremark.Text & "')"
sqlstr1 = "insert into a_mstr_uno(Uno,regno,serialno)values('" & Txtascd.Text.Trim & "', '" & orderid & "','" & txtslno.Text.Trim & "')"
Dim comm As New SqlCommand(sqlstr, dbconn)
Dim comm1 As New SqlCommand(sqlstr1, dbconn)
If dbconn.State <> ConnectionState.Open Then
dbconn.Open()
End If
Try
comm.ExecuteNonQuery()
comm1.ExecuteNonQuery()
lblmsg.Text = "Registered successfully !"
lblmsg.ForeColor = Drawing.Color.Green
lblmsg.Visible = True
clear()
Catch ex As Exception
lblmsg.Text = ex.ToString
' lblmsg.Text = "Could not save"
lblmsg.ForeColor = Drawing.Color.Red
lblmsg.Visible = True
End Try
End Sub
Protected Sub ImageButton2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
tbreg.Visible = True
Calendar1.Visible = True
End Sub
Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
Txtamc.Text = Calendar1.SelectedDate
Calendar1.Visible = False
tbreg.Visible = True
End Sub
Protected Sub ImageButton4_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton4.Click
Calendar2.Visible = True
tbreg.Visible = True
End Sub
Protected Sub Calendar2_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar2.SelectionChanged
Txtwty.Text = Calendar2.SelectedDate
Calendar2.Visible = False
tbreg.Visible = True
End Sub
Protected Sub btncreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncreate.Click
tbreg.Visible = True
End Sub
Protected Sub dgresult_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgresult.SelectedIndexChanged
Dim assetcode As String
assetcode = dgresult.SelectedItem.Cells(1).Text
Response.Redirect("Edit_UPS.aspx?assetcode=" + assetcode + " ")
End Sub
End Class
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
