Data base connection problem

[Ashley]

I am having trouble with oracle database connection, how should I know my connection is success or not. When I run the script it is giving 0 failed result, any sample code is very helpful. Please check the below sample code

Code:

Dim OdbcDSN
Dim connect, sql, resultSet
Dim dbConn
Dim rsGetAccountData
Dim strSQL, strCategory, strCategoryType
Dim a1
On Error Resume Next
Public Sub SetDBConnection
   'Purpose:  Set the database connection
Set dbConn = CreateObject("ADODB.Connection")
dbConn.ConnectionString = "DSN=sys_qtp_ora;Server=test;Uid=username;Pwd=password;"
dbConn.Open
End Sub
Public Sub GetAccountData()
   Set resultSet = CreateObject ("ADODB.RecordSet")
   'Purpose:  Get the account data information from table
    strSQL = "select  first_name,last_name  from   names where rownum <10"
              '  strSQL = "insert into aaa values(1234)"
resultSet = dbConn.Execute(strSQL)
'MsgBox "Hello everyone!"
MsgBox "Not Connected" & resultSet
Do While Not resultSet.eof

If a1  = 10 then
   MsgBox "reddy" & resultSet("first_name")
        end if
resultSet.MoveNext
Loop
resultSet.Close

End Sub

Call SetDatabase()
Call GetAccountData()

[niranjan]

Please do not post multiple same questions. I have deleted your second post

[anemuday]

Hi,

This is the sample script to connect to the DB(presently i used it for MS Access). It may helpfule to u:

Code:

conStr="DSN=sampleDB"
qryStr="select * from empTable"

Set conObj=CreateObject("ADODB.connection")
Set cmdObj=CreateObject("ADODB.Command")
Set recObj=CreateObject("ADODB.RecordSet")
'Set fieldObj=CreateObject("ADODB.field")
conObj.open conStr

Set cmdObj.activeconnection=conObj
cmdObj.commandtext=qryStr

Set recObj=cmdObj.execute

While Not recObj.EOF
    MsgBox(recObj.fields(1))
    recObj.movenext
Wend

Thanks & Regards,
Uday.

[Ashley]

I didnot do it intentionally, it might be a mistake.

[somisays]

Dear Ashley,
Read this about Database Example.

https://www.learnqtp.com/forums/Thread-DatabaseExample