Wednesday, October 23, 2013

Record objects for CUITe using CUITe_ObjectRecorder


  • Download  CUITe_ObjectRecorder from below link
·         CUITe for .NET v4.5 ( try this and install it – start  CUITe_ObjectRecorder.exe )
·         CUITe for .NET v4


Steps to create CUITe Object
  • Address: Add user which user want to test
  • Click on Record button ( recorder started to record object)
  • Click on User Name, Password textbox and Sign-in button
  • Tool will generate code below application
  • Click on Code icon ( Notepad will open with code)
  • Copy the object code which are generated while recording object
  • Paste in object repository file which created for object repository ( in .cs file)
That’s all, your object repository will be looking like below

  • User has to add following code:
  • ORLogin class should be public– so that class can be use globally
  • Inherit the class ORLogin from CUITe_BrowserWindow
  • If user have created folder for object repository folder then namespace would be display folder name as well

CUITe Configuration

This is small demo for configuring Visual studio 2012 for CUITe, follow the steps to make CUITe work with VS 2012.
 
  •   Install following version of Visual studio
·         Visual Studio 2010 Premium or Ultimate and Feature Pack 2 OR Visual Studio 2012 Premium or Ultimate

  •  Download CUITe Framework from below link
·         This link shows list of projects, from these project use CUITe, CUITe.snk and CommonAssemblyInfo.cs

·         Follow these steps to use UITestPluginForSilverlight dll.
1. Add Microsoft.VisualStudio.TestTools.UITest.Extension.Silverlight from %Program Files%\Common Files\Microsoft Shared\VSTT\11.0\UITestExtensionPackages
2. Added using Microsoft.VisualStudio.TestTools.UITesting.SilverlightControls


  •    Download CUITe.dll from below link
·         CUITe for .NET v4.5 ( try this for VS 2012)
·         CUITe for .NET v4
·         Run above set up and copy CUITe.dll to project folder
·         CUITe_ObjectRecorder.exe - Used for Recording Object for CUITe


  • Install test Agent if user want to run script in other system without installing VS 2012.

Wednesday, June 27, 2012

Example if Bank Table: Insert Query in VBScript


'=================================================================
Create a Bank Table with following fields,
a.       Sr No
b.      Name
c.       Account No
d.      Address
e.      Debit
f.        Credit
g.       Total

Write a script to perform below task.
a.       Write a function to insert a new entry for Debit and it should update total field also.
b.      Write a function to insert a new entry for credit and it should update total field also.
Write a function to update address of user choice Account
'=================================================================

Dim MyConn,cmd,rs
set MyConn= CreateObject("ADODB.Connection")

connectionString = "provider=Microsoft.ACE.OLEDB.12.0;" _
& "data source=D:\bankDB.accdb;Persist Security Info=False;"

MyConn.Open connectionString
Set adx = CreateObject("ADOX.Catalog")
set adx.ActiveConnection = MyConn

initialdebitVal = 0
initialTotalVal = 0
initialCreditVal = 0
userAcctNo = 0
user_exists=false

id=Inputbox ("Enter your Choice 1:debit amount 2:credit amount 3: Change Address 4: New Entry")
Select Case id
case 1: call debitAmt
case 2: call creditAmt
case 3: call changeAddr
case 4: call newEntry
End Select
MyConn.close

function getAmtVals
sInsData = "select * from Bank where Account = " & userAcctNo
MyConn.Execute(sInsData)
Set RS = MyConn.Execute(sInsData)

WHILE NOT RS.EOF
initialdebitVal =  RS("Debit")
initialCreditVal = RS("Credit")
initialTotalVal = RS("Total")

user_exists=true
RS.MoveNext
WEND

RS.Close
set RS = nothing
end function


'function to debit amount from the account entered
function debitAmt

userAcctNo = Inputbox ("Enter the Account number")
call getAmtVals
'validating account exists or not
if user_exists=false  then
msgbox "Account not found"
exit function
end if

debitVal=Inputbox ("Enter the debit amount")

totalVal =   initialTotalVal - debitVal
sInsData = "update Bank  set Debit = " & debitVal & " where account=" & userAcctNo
MyConn.Execute(sInsData)
sInsData = "update Bank  set Total = " & totalVal & " where account=" & userAcctNo
MyConn.Execute(sInsData)
msgbox "Debited Successfully"

end function


'function to credit amount to the account entered
function creditAmt

userAcctNo = Inputbox ("Enter the Account number")
call getAmtVals
'validating account exists or not
if user_exists=false  then
msgbox "Account not found"
exit function
end if

creditVal=Inputbox ("Enter the credit amount")
totalVal =   initialTotalVal + creditVal
sInsData = "update Bank  set Credit = " & creditVal & " where account=" & userAcctNo
MyConn.Execute(sInsData)
sInsData = "update Bank  set Total = " & totalVal & " where account=" & userAcctNo
MyConn.Execute(sInsData)
msgbox "Credited Successfully"

end function


'function to update date to the account entered
function changeAddr

userAcctNo = Inputbox ("Enter the Account number")
call getAmtVals
'validating account exists or not
if user_exists=false  then
msgbox "Account not found"
exit function
end if

address=Inputbox ("Enter the new address value")
sInsData = "update Bank  set address = '" & address & "'" & " where account=" & userAcctNo
MyConn.Execute(sInsData)
msgbox "Address Updated Successfully"

end function


'function to add new entry
function newEntry

hName=Inputbox ("Enter the Account Holder Name")
hAccount=Inputbox ("Enter the Account number")
hAddress=Inputbox ("Enter the Address")
sql = "insert into Bank(HName,Account,address,debit,credit,total) values('" & hName & "',"& hAccount & ",'" & hAddress & "',0,0,0);"
MyConn.Execute(sql)
msgbox "User Added Successfully!!!!"
end function

Example Student table: Update Query in VBScript



''================================================================= 
            Create a new table in MS Access called Student and perform given task.

        Student Table Structure
           1.       RollNo
           2.       Name
           3.       Address
           4.       Subject
           5.       Mark1
           6.       Mark2
           7.       Mark3
           8.       Avg Marks
           9.       Total

Write a script to perform below task:
1.       Function to calculate Avg Marks of all subjects and update in Avg Marks column.(for all subject)
2.       Function to calculate total marks and update in the total column.
3.       Function to update the address of particular student ( Take input from user)
''================================================================= 


Dim a,b,Avg, TOtal,Address
f = False

Call Avg_Marks

Function Avg_Marks
Set a=CreateObject("adodb.connection")
a.Open "Data Source=E:\Student.mdb;Provider=Microsoft.jet.oledb.4.0"
Set b=a.Execute("select * from student ")
RNo=Cint(inputbox("Enter the RollNo"))

WHILE NOT b.EOF
count = count + 1
if RNo = b("RollNo") then
sm1 = b("Mark1")
sm2 = b("Mark2")
sm3 = b("Mark3")
msgbox "Roll No:" & RNo & " sm1:" &sm1 & " sm2:" &sm2 & " sm3:" &sm3

end if
b.MoveNext
    WEND
if Rno > count then
msgbox "record no found"
else
Avg=(sm1+sm2+sm3)/3
Msgbox "Avg:" & Avg
sql="update student set AvgMarks="&Avg&" where RollNo =" & RNo
'msgbox sql
a.Execute (sql)
Call Total_Marks(RNo,sm1,sm2,sm3,Avg)
end if
End Function

Function Total_Marks(RNo,sm1,sm2,sm3,Avg)
Total=sm1+sm2+sm3
msgbox "Total:" & Total
sql="update student set Total="&Total&" where RollNo="&RNo
'msgbox sql
a.Execute (sql)
Call Address_value(RNo,sm1,sm2,sm3,Avg,Total)
End Function

Function Address_Value(RNo,sm1,sm2,sm3,Avg,Total)
    Address=inputbox("Enter the address")
  msgbox "Address:" & Address
  sql="update student set AvgMarks="&Avg&",Total="&Total&",Address='"&Address&"' where RollNo="&RNo
msgbox sql
a.Execute (sql)
a.Close
End Function

Example of ADODB.Connection and ADODB.Recordset in VBscript


    Set MyConn = CreateObject("ADODB.Connection")
    MdbFilePath = "C:\Users\ladn\Desktop\Neeraj.mdb"
    MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

 
    SQL_query = "SELECT * from Student"
 
     set rs=CreateObject("ADODB.recordset")
     rs.Open SQL_query, MyConn
 
    count = 0
    WHILE NOT RS.EOF
count = count + 1
name = rs("name")
add = rs("address")
msgbox name & add
       rs.MoveNext
    WEND
msgbox count
    rs.Close
    set rs = nothing
    MyConn.close
    set MyConn = nothing

ODBC Connection for MS Access



  • Click on Start button
  • Select Control Panal
  • Click on Administrator Tools
  • Click on Data Sources (ODBC)
  • ODBC Data Source Administrator window will open as below screenshot



  • To Add MS Access User Data Source, Click on Add button
  • Create New Data Source window will open


  • Select “Diver do Microsoft Access (*.mdb)”  from Create New Data Source window and click on finish button.
  • ODBC Microsoft Access Setup Window will open


  • Write Data Source Name and Description if need,
  • Click on Select button  and select mdb file from the location (see below screenshot)


  • Click on OK button after selecting mdb file


  • Database will display under ODBC Microsoft Access Setup window and click on OK button


  • MS Access User DSN Will display MS Access Driver name.



Friday, June 15, 2012

Reverse String without using any String function


Dim str1,regExpObj,x,result
Dim ArrString
str1="Neeraj"

Set regExpObj = new regexp
regExpObj.pattern="[a-z A-Z]"
regExpObj.global=true
set ArrString=regExpObj.execute(str1)
For each x in ArrString
result = x.value & result
Next
msgbox result