what is the Vbscript to connect Database
Answers were Sorted based on User's Feedback
Answer / ravi_kanakam
Check this............
Function db_connect( byRef curSession ,connection_string)
dim connection
on error resume next
' Opening connection
set connection = CreateObject("ADODB.Connection")
If Err.Number <> 0 then
db_connect= "Error # " & CStr(Err.Number) & " " &
Err.Description
err.clear
Exit Function
End If
connection.Open connection_string
If Err.Number <> 0 then
db_connect= "Error # " & CStr(Err.Number) & " " &
Err.Description
err.clear
Exit Function
End If
set curSession=connection
db_connect=0
End Function
| Is This Answer Correct ? | 9 Yes | 1 No |
Answer / paayal
VBScript function that you can use to conncet to DB is
CreateObject. we have to create the connection object first
as ADODB and then we can use that connection object to open
the DB connection. Once the connection is open, we can run
SQL query by using a while..wend loop and can get the
derired results data into local data sheet
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / purshottam swarnkar
function Connect database
set con= create object("Adodb.Connection")
set rs=create object("Adodb.Recordset")
con.provider = "microsoft.jet.OLEDB.4.0" '@ For MS access
con.open="Path of Database"
rs.open "select * from xxxx", con
do until re.eof
end function
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / shubhang
I guess this will work out.
Set con = CreateObject("ADODB.Connection")
con.provider = "XYZ"
con.username ="XYZ"
con.password = "XYZ"
con.protocol = "XYZ"
con.port = "XYZ"
RS=con.execute "Select * from ABC"
do while rs.EOF <>True
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / ajreddy
function Connect database
set con= create object("Adodb.Connection")
set rs=create object("Adodb.Recordset")
con.provider = "microsoft.jet.OLEDB.4.0" '@ For MS access
con.open="Path of Database"
rs.open "select * from xxxx", con
do until re.eof
end function
| Is This Answer Correct ? | 1 Yes | 5 No |
What is API?
in howmany ways you perfrom batchtesting
when u script reveiwing in which area u more concentrates?
how to idetfy which test cases are automated?who will deside that plz tell me
What is the method for maximize the application while we using Decriptive programming in QTP?
Hi I am new to QTP. we are planning to implement automation for the application. I am trying to execute the following script: Set ExcelObj=CreateObject ("Excel.Application") ExcelObj.WorkBooks.Add Set NewSheet=ExcelObj.Sheets.Item(1) NewSheet.Name="Order" ExcelObj.Cells(1, 1).Value = "Name" ExcelObj.Cells(1, 2).Value = "Ordernum" ExcelObj.Cells(2, 1).Value = "nam" ExcelObj.Cells(2, 2).Value = "21" ExcelObj.ActiveWorkbook.SaveAs "c:\test1.xls" ExcelObj.Quit Set ExcelObj = Nothing in the above script for the line(ExcelObj.Cells(2, 2).Value = "21") it is inserting the value 21 successfully.this is fine But if i want to insert a variable instead of the constant value then what should be the modification in the script. For example: If user retrives a value throug "GetRoProperty" and wants to insert the value into then how the script changes?
Can you tell me the differences between writing the VB script manually for a application and recording the same application in QTP , with a example?
i have data in excel sheet.i imported the data in data table.while doing parameterization,how the code knows it is a valid or invalid data?
How do function returns a value?How can we pass one function value to other function as input
in a web table , i want you to click a particular object inside cell
how can i pass parameters into function?
Tell me few important difference Between QTP and WinRunner?