|
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
|
|
|
|
|
Sorry, my bad, I was thinking of Windows form, Whats the error Message by the way!!
|
|
|
|
|
In the network .i have a webservice in a webserver and i want to call that webservice from a client machine to get data using javascript .
url="http://localhost/Chat/MsgBoxService.asmx/Get?" + str + "&type=agent&sMsg=";
if (window.XMLHttpRequest)
{
req = new XMLHttpRequest();
req.onreadystatechange = processReqChange();
req.open('GET', url, true);
req.send();
// branch for IE/Windows ActiveX version
}
else if (window.ActiveXObject)
{
isIE = true;
req = new ActiveXObject("Microsoft.XMLHTTP");
if (req) {
alert(url);
req.onreadystatechange = processReqChange;
req.open("GET", url, true);
req.send();
}
|
|
|
|
|
i was doing deployment project .But at the client machine the code behind files with there as well.
any idea to sort out this problem ?
Sonia Gupta
Soniagupta1@yahoo.co.in
Yahoo messengerId-soniagupta1
Love is Friendship and Friendship is Love....
|
|
|
|
|
when you add files in setup and deployment, just remove the source files, then you wont get code files in your client machine
Regards,
Sylvester G
If we don't succeed, we run the risk of failure
|
|
|
|
|
i am currently adding the project output.
project output is adding both the code behind file as well as the aspx pages.
so during deployment project , i am not being able to eliminate the code behind file.
so after deploymnet , i need to manually delete the code behind file ?
Sonia Gupta
Soniagupta1@yahoo.co.in
Yahoo messengerId-soniagupta1
Love is Friendship and Friendship is Love....
|
|
|
|
|
While adding project output , dont select the source files.
Select only Primary output and content files.
Regards,
Sylvester G
If we don't succeed, we run the risk of failure
|
|
|
|
|
Sonia Gupta wrote: i was doing deployment project
You can use PublishWebsite option before adding files to Setup and Deployment wizard.
|
|
|
|
|
  Hi,
I trying to create image gallery by simply drag and drop the images from external folder.
This I have to do in asp.net or javascript. Is any control or software available.
If possible can any one send me sample code?
can any one help me ?
Thanks in advance.
|
|
|
|
|
Hi, I'm getting the exception "Value of type Byte cannot be converted to 1-dimensional array of Byte", when running my code. The following is my code snippet. Please help determine what the cause of the exception is, thank you in advance for your help.
<br />
Private Sub CreateImage(ByVal id As String)<br />
' Connectoin string is taken from web.config file.<br />
Dim _con As New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("DB"))<br />
<br />
Try<br />
_con.Open()<br />
Dim _cmd As SqlCommand = _con.CreateCommand()<br />
_cmd.CommandText = "select logo from" + " pub_info where pub_id='" + id + "'"<br />
Dim _buf As Byte() = CByte(_cmd.ExecuteScalar())<br />
<br />
' This is optional<br />
Response.ContentType = "image/gif"<br />
<br />
'stream it back in the HTTP response<br />
<br />
<br />
Response.BinaryWrite(_buf)<br />
Catch<br />
Finally<br />
<br />
_con.Close()<br />
End Try<br />
End Sub<br />
|
|
|
|
|
ASPnoob wrote: Dim _buf As Byte() = CByte(_cmd.ExecuteScalar())
Dim _buf() As Byte=CByte.Parse(_cmd.ExecuteScalar())
try like this.
Regards,
Satips. ![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Walk beside me, and just be my friend. - Albert Camus
|
|
|
|
|
When I use the code you've suggested, I get the error '(' expected, right on the dot operator on the following line
Dim _buf() As Byte=CByte.Parse(_cmd.ExecuteScalar())
Also _buf is undefined on the line
Response.BinaryWrite(_buf)
Thanks again for helping.
-- modified at 1:12 Thursday 19th July, 2007
|
|
|
|
|
Hi All
How i can get the intelligence in VS 2005. e.g
i am using sqlcommand.ExecuteReader(commandbehavior.behavior).
So by using which keyboard keys combination i can get the different values for "commandbehavior.behavior"
Thanks!!
Amit
|
|
|
|
|
CTRL + J
Regards,
Sylvester G
If we don't succeed, we run the risk of failure
|
|
|
|
|
if you would like to get list of all classes, namespaces, properties etc without writing a letter then use CTRL+J.
If you write some object and after like "commandbehavior." and want different options then after "commandbehavior." you can press CTRL+Space
God Bless you.
Always do good to others
|
|
|
|
|
Hi
I have two different sites say www.domain1.com & www.domain2.com developed in asp.net 2.0. I want that user logs in www.domain1.com , and then clicks the hyperlink to www.domain2.com, then he should not be shown the login page of www.domain2.com.
some sample code will be of great help to me.
thanx
sandy
|
|
|
|
|
You can use generic priciple, which creates username and the roles assigned to him.
--When you redirect the user, pass the Context of first webpage through the URL to second page.
--In the second domain check the incoming URL, if there is any context, then validate it and
allow or deny user accordingly.
--Deny can redirect the user to Login page.
hope this helps, I have assumed that you know how the .net security works (Context, IIdentity etc).
|
|
|
|
|
RepliCrux wrote: When you redirect the user, pass the Context of first webpage through the URL to second page.
What do you mean by Context ? and how it can be passed with URL ?
|
|
|
|
|
When you Create Generic Priciple, You pass in all the roles to the Context of the page, then you check the user role like:
If(Context.Users.IsInRole("Manager"))
{
//Do Something
}
You cannot pass the whole context itself, but pass the contents of the Context, (IIdentity,Roles..etc), then create a new Generic Priciple in the destination page usring those values and validate the Context of the page simillarly.
|
|
|
|
|
That looks fine. But your previous message sounds like passing context object in URL. So I was confused.
|
|
|
|
|
hello sandeep,
Use ASP.NET Configuration tool for doing this.Here u can assign security,providers and roles etc ...By setting this change the code according in C#.net ..
ok byeee
Murali
Murali
|
|
|
|
|
Dear sirs:
I have an ASP.NET Web Form that uses a Master Page. On it, are several Web Controls (i.e. text-boxes, GridViews, etc.)
When I use a simple code-snippet like the following:
foreach (Control ctl in this.Controls)
{
Response.Write(ctl.ID);
}
... there is one control listed with an ID of "null..." However, I can, of course get the name of any control on the page with "this.<control_name>"
How can I iterate through the controls collection of this Web Form?
Thanks,
R. Hyland
|
|
|
|
|
Do you know which control it is that is coming back as null? If so, what is it's actual name?
_____________________________________________
Flea Market! It's just like...it's just like...A MINI-MALL!
|
|
|
|
|
Use the following code to obtain the control containing all of your forms controls.
Me.FindControl("ctl00").FindControl("contentMaster")) where "contentMaster" is referenced from your asp:content control located at the top of your aspx's source view page.
<<asp:content id="Content1" contentplaceholderid="contentMaster" runat="Server">
... form's html ...
Now you have a reference to the control containing all of the controls residing on the page.
Michael
I firmly believe that any man's finest hour, the greatest fulfillment of all that he holds dear, is that moment when he has worked his heart out in a good cause and lies exhausted on the field of battle - victorious.
Vince Lombardi (1913-1970)
|
|
|
|
|
Thank you so much, your answer was spot-on!
R. H.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
