if u ve resrevation for train and u get a number supose
1234xxxokie.after sucessul entering all required fields.
now u put that number in search and want to chk wether
these ar same or not if both ar same then its okie
otherwise test fail.what would be the vb script code for it
to compare these two values of different page.
41
Please let me Know regarding any material regarding VB
Scripting which should be easily understandable for
Beginners.
25
i have a problem with this error(this error related edit and
delete button,when i click this button in datagrid..i will
get this error)"Invalid postback or callback argument.
Event validation is enabled using <pages
enableEventValidation="true"/> in configuration or <%@ Page
EnableEventValidation="true" %> in a page. For security
purposes, this feature verifies that arguments to postback
or callback events originate from the server control that
originally rendered them. If the data is valid and
expected, use the
ClientScriptManager.RegisterForEventValidation method in
order to register the postback or callback data for validation."
this is my code :
<%@ Page Language="VB" Debug="false" %>
<%@ import Namespace="Sytem.Data" %>
<%@ import Namespace="System.Data.OleDB" %>
<script runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim ds As new System.Data.Dataset
Dim dbconnection as System.Data.OleDb.OleDbConnection
try
Dim WhereIsTheDatabase as String =
System.Web.HttpContext.Current.Server.mappath("./LeaveDB.mdb")
Dim dbstr as String= "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source="&WhereIsTheDatabase &";User ID=admin ;Password="
dbconnection=New
System.Data.OleDb.OleDbConnection(dbstr)
Dim dbcommand As New System.Data.OleDb.OleDbCommand
Dim da As New System.Data.OleDb.OleDbDataAdapter
dbconnection.Open()
dbcommand.CommandText="SELECT * FROM Leave Order By Leave_ID"
dbcommand.Connection=dbconnection
da.SelectCommand=dbcommand
da.Fill(ds)
Catch Ex as Exception
throw new Exception("Error detection"
&Ex.Message)
finally
dbconnection.Close()
End Try
dtgridLeaveList.DataSource=ds
dtgridLeaveList.DataBind()
if ds.Tables.count > 0 then
Dim dt as System.Data.DataTable =
ds.Tables(0)
dtgridLeaveList.DataBind()
else
MyJSLabel.text = "<script>window.alert('No Record in the
Access file.')</"&"script>"
End if
End Sub
Sub UpdateList(Byval Source As Object,Byval e as
DataGridCommandEventArgs)
If e.CommandName="Edit" Then
Dim LeaveID as
Integer=CInt(val(CType(e.Item.FindControl("lblLeaveID"),
Label).Text))
Dim DateApplied As
String=CType(e.Item.FindControl("lblDateApplied"), Label).Text
Dim ICNO as String = CType(e.Item.FindControl("lblICNO"),
Label).Text
Dim DaysMax as Integer=
CInt(val(CType(e.Item.FindControl("lblDaysMax"), Label).Text))
Dim LeaveStart As
Date=CDate(CType(e.Item.FindControl("lblLeaveStart"),
Label).Text)
Dim LeaveEnd As Date=
CDate(CType(e.Item.FindControl("lblLeaveEnd"), Label).Text)
Dim TypeofLeave As
String=CType(e.Item.FindControl("lblTypeOfLeave"), Label).Text
Dim Reason As String=Ctype(e.Item.FindControl("lblReason"),
Label).Text
Dim NoOfDays as
Integer=CInt(val(CType(e.Item.FindControl("lblNoOfDays"),
Label).Text))
Dim BalanceAnnualLeaveCF as
String=CType(e.Item.FindControl("lblBalanceAnnualLeaveCF"),
Label).Text
Dim BalanceAnnualLeaveBF as
Integer=CInt(val(CType(e.Item.FindControl("lblBalanceAnnualLeaveBF"),
Label).Text))
Dim AnnualLeaveEntitle As Integer=
CInt(val(CType(e.Item.FindControl("lblAnnualLeaveEntitle"),
Label).Text))
Dim TotalAnnualLeave as
Integer=CInt(val(CType(e.Item.FindControl("lblTotalAnnualLeave"),
Label).Text))
Dim LessAnnualLeaveTaken as
Integer=CInt(val(CType(e.Item.FindControl("lblLessAnnualLeaveTaken"),
Label).Text))
Dim BalanceAnnualLeave as
Integer=CInt(val(CType(e.Item.FindControl("lblBalanceAnnualLeave"),
Label).Text))
Dim str as String="LeaveID=" &LeaveID.ToString
&"&DateApplied=" &DateApplied &"&ICNO=" &ICNO &"&DaysMax="
&DaysMax &"&LeaveStart=" &LeaveStart & "&LeaveEnd="
&LeaveEnd & "&TypeofLeave=" &TypeofLeave & "&Reason="
&Reason & "&NoOfDays=" &NoOfDays & "&BalanceAnnualLeaveCF="
&BalanceAnnualLeaveCF & "&BalanceAnnualLeaveBF="
&BalanceAnnualLeaveBF & "&AnnualLeaveEntitle="
&AnnualLeaveEntitle & "&TotalAnnualLeave=" &TotalAnnualLeave
& "&LessAnnualLeaveTaken=" &LessAnnualLeaveTaken &
"&BalanceAnnualLeave=" &BalanceAnnualLeave
Response.Redirect("Leave Info.aspx?" &str)
End If
End Sub
Sub OnDelete(Byval sender as Object, Byval e as
DataGridCommandEventArgs)
If e.CommandName="Delete" Then
Dim ds As new System.Data.Dataset
Dim dbconnection as System.Data.OleDb.OleDbConnection
Dim WhereIsTheDatabase as String =
System.Web.HttpContext.Current.Server.mappath("./LeaveDB.mdb")
Dim dbstr as String= "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source="&WhereIsTheDatabase &";User ID=admin ;Password="
dbconnection=New System.Data.OleDb.OleDbConnection(dbstr)
Dim dbcommand As New System.Data.OleDb.OleDbCommand
Dim da As New System.Data.OleDb.OleDbDataAdapter
dbconnection.Open()
dbCommand.CommandText="DELETE FROM Leave WHERE
Leave_ID=" &e.Item.Cells(1).Text
dbCommand.ExecuteNonQuery
dbcommand.CommandText="SELECT * FROM Leave Order By
Leave_ID"
dbcommand.Connection=dbconnection
da.SelectCommand=dbcommand
da.Fill(ds)
dbconnection.Close()
dtgridLeaveList.DataSource=ds
dtgridLeaveList.DataBind()
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<font face="Arial Narrow" size="4">(Search Based On
Staff I.C No)</font>
<font face="Arial Narrow"></font>
<font face="Arial Narrow><font size="4">IC.No</font> </font>
<asp:TextBox id="TextBox1" runat="server"
Width="264px"></asp:TextBox>
<font face="Arial Narrow"> </font>
<asp:Button id="Button1" runat="server"
Text="Search"></asp:Button>
(XXXXXX-XX-XXXX)
<font face="Arial Narrow"> </font>
<asp:DataGrid id="dtgridLeaveList" runat="server"
OnEditCommand="UpdateList" OnDeleteCommand="OnDelete"
AutoGenerateColumns="False" Font-Size="Medium"
Font-Names="Arial Narrow">
<SelectedItemStyle backcolor="Blue" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False"
font-underline="False"></SelectedItemStyle>
<Columns>
<asp:TemplateColumn HeaderText="Leave ID" Visible="False">
<ItemTemplate>
<asp:Label id="lblLeaveID" text='<%#
DataBinder.Eval(Container.DataItem,"Leave_ID") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Date Applied">
<ItemTemplate>
<asp:Label id="lblDateApplied"
text='<%#DataBinder.Eval(Container.DataItem,"DateLeaveApplied")
%>' runat="server"></asp:Label>
</ItemTemplate>
<HeaderStyle backcolor="White" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></HeaderStyle>
<ItemStyle backcolor="White" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></ItemStyle>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="I.C No">
<ItemTemplate>
<asp:Label id="lblICNO" text='<%#
DataBinder.Eval(Container.DataItem,"ICNo") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Days Max">
<ItemTemplate>
<asp:Label id="lblDaysMax" text='<%#
DataBinder.Eval(Container.DataItem,"AnnualLeaveEntitle") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Leave Start">
<ItemTemplate>
<asp:Label id="lblLeaveStart" text='<%#
DataBinder.Eval(Container.DataItem,"Leave_Start") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Leave End">
<ItemTemplate>
<asp:Label id="lblLeaveEnd" text='<%#
DataBinder.Eval(Container.DataItem,"Leave_End") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Type of Leave">
<ItemTemplate>
<asp:Label id="lblTypeOfLeave" text='<%#
DataBinder.Eval(Container.DataItem,"TypeOfLeave") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Reason">
<ItemTemplate>
<asp:Label id="lblReason" text='<%#
DataBinder.Eval(Container.DataItem,"Reason") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="No of Days">
<ItemTemplate>
<asp:Label id="lblNoOfDays" text='<%#
DataBinder.Eval(Container.DataItem,"NoOfDays") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Balance Annual Leave C/F">
<ItemTemplate>
<asp:Label id="lblBalanceAnnualLeaveCF" text='<%#
DataBinder.Eval(Container.DataItem,"Remarks") %>'
runat="server"></asp:Label>
</ItemTemplate>
<HeaderStyle backcolor="LightGray" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></HeaderStyle>
<ItemStyle backcolor="Yellow" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></ItemStyle>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Balance Annual Leave B/F">
<ItemTemplate>
<asp:Label id="lblBalanceAnnualLeaveBF" text='<%#
DataBinder.Eval(Container.DataItem,"BalanceAnnualLeaveBF")
%>' runat="server"></asp:Label>
</ItemTemplate>
<HeaderStyle backcolor="LightGray" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></HeaderStyle>
<ItemStyle backcolor="Yellow" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></ItemStyle>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Annual Leave Entitle">
<ItemTemplate>
<asp:Label id="lblAnnualLeaveEntitle" text='<%#
DataBinder.Eval(Container.DataItem,"AnnualLeaveEntitle") %>'
runat="server"></asp:Label>
</ItemTemplate>
<HeaderStyle backcolor="LightGray" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></HeaderStyle>
<ItemStyle backcolor="Yellow" font-bold="False"
font-italic="False" font-overline="False"
font-strikeout="False" font-underline="False"></ItemStyle>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Total Annual Leave">
<ItemTemplate>
<asp:Label id="lblTotalAnnualLeave" text='<%#
DataBinder.Eval(Container.DataItem,"TotalAnnualLeave") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Less Annual Leave Taken">
<ItemTemplate>
<asp:Label id="lblLessAnnualLeaveTaken" text='<%#
DataBinder.Eval(Container.DataItem,"LessAnnualTaken") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Balance Annual Leave">
<ItemTemplate>
<asp:Label id="lblBalanceAnnualLeave" text='<%#
DataBinder.Eval(Container.DataItem,"BalanceAnnualLeave") %>'
runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateColumn>
<asp:ButtonColumn ButtonType="PushButton" CommandName="Edit"
Text="Edit" HeaderText="Update"></asp:ButtonColumn>
<asp:ButtonColumn ButtonType="PushButton"
CommandName="Delete" Text="Delete" HeaderText="Remove
Record"></asp:ButtonColumn>
</Columns>
</asp:DataGrid>
<font face="Arial Narrow"></font>
<font face="Arial Narrow"><font size="4">Total
Leave Taken :
<asp:TextBox id="txtTotalLeaveTaken"
runat="server" Width="35px"></asp:TextBox>
Days<asp:Button id="Button3" runat="server"
Text="Calculate"></asp:Button>
</font></font>
<font face="Arial Narrow">
<asp:Button id="Button4" runat="server" Width="82px"
Text="Back" Height="26px"></asp:Button>
</font><asp:Label id="MyJSLabel" runat="server"></asp:Label>
</form>
</body>
</html>
10
How to insert snapshot during manual scripting in QTP?
49
In the Web page we have a table link, if we click on that
link all the contents under that link will be sorted
(asscending/Descending). Now i want to check in which order
the list is ? for that i need to get the data in to some
var How can i get that cells data?
i am having some basic knowledge in c and VB 6.0. i qtp i
want to know how to write the codings. by recording it is
generating lot of codings. for example i want to test the
text box. senerio is text box should not accept alphabets
if it accept alphabets we should return fail status if it
get number we should return pass status. how to write
coding in vb script please help me
41
How can you test font size, type and color using QTP tool?
47
give me any information abou vb script books learn quckly
29
1) How can we use VB script in testing the application?
2) What all are the things(Software application to be installed in PC) we need to
learn VBscript?
95
How to take whole text output from screen of Bitmap
Application.
hi all,
i had a question, that how to find out hiding a coloumn in
a table
i had a table having the following column names
NAME DESCRIPTION CREATED TIME CREATED USER
if i right clicked on a NAME column it will displays a
menu having the same column names in a list like
NAME
DESCRIPTION
CREATED TIME
CREATED USER
with check boxes.if i unched any check box, that column
name should not be appear in the main table column names
could anyone please solve this problem?
did any one attended interview in applabs if you had gone
through plz tell me the procedure
60
what is used of Property........End Property loop ? how to
write the script for it?
28
can anyone tell me the procedure of interview held in
applabs
111
Can we create Crystal Report object in QTP?If yes then what
it is and what are its various properties?
51
1. How to handle object implementation change in DP
for Ex: i have login page with username,pasword
(editboxes),login,cancel(buttons). Here i written DP code
for login page with the help properties.
My questions:
1.If properites are changing dynamically i will do (i want
code for that)
2.if objects are changed dynamcally i will do (i wnat code
for that)
I need to get some data from data base and store this
(retrieved) data in a excel sheet using VB script in QTP9.0
I have created connection for data base
I have created as excels sheet by using
Set XL=CreateObject("Excel.Application")
XLworksheet.cells(1,1).value= rs.fields.item("<<The
data retrieved from data base >>")
I have taken a for loop and changed the cells values (1 as
i and another 1 as j)
But still I am not able to get
Plz kindly tell me know this . It is very urgent
74
For a webbased application:-
what should be code in expert veiw, for retrieving a
single column name "username" from a server and checking
whether exported "username" from datatable doesn't exist in
server.
suppose i have saved in excelsheet a username="gayatri" ,
which is exported, then checked for whether this
username "gayatri" exist in server database or not ? if
exist then allow to enter new username, which should be
again checked for in loop , or else come out of loop and
enter a distinct "username".
plz let me have this answer in my id
gayatrisahooin@hotmail.com
32
Hello friends.....
Can any give the methods for Ms-Access, and Mozilla firefox
in Automation Object Model in QTP.
Please give me currect answers...
if you do not understand my question please don't give
answers.
Thanking you.
Ask Questions on ANYTHING, that arise in your Daily Life at 
Site Map
