Time out problem while executing a querry ...

[rajvanan]

Yes sure, here is the code...............

Code:

Dim dsn_name, db_name, db_user, db_pwd, DB_String
   Dim Table_Rows, Row_Select
        dsn_name = Environment("Dsn_Name")
        db_name = Environment("Db_Name")
        db_user = Environment("Db_User")
        db_pwd = Environment("Db_Pwd")
        DB_String = "DSN="&dsn_name&"; UID="&db_user&"; PWD="&db_pwd&"; DBQ="&db_name&"; DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
        Set con = createobject ("ADODB.Connection")
        Set rs = createobject("ADODB.Recordset")
        con.open DB_String
        DB_Query = "select  *  from debkart"
        Set rs = con.Execute(DB_Query)

Now after the execution of con.execute , QTP is giving time out problem.

Pls help.

---

Code:

Dim dsn_name, db_name, db_user, db_pwd, DB_String
   Dim Table_Rows, Row_Select
        dsn_name = Environment("Dsn_Name")
        db_name = Environment("Db_Name")
        db_user = Environment("Db_User")
        db_pwd = Environment("Db_Pwd")
        DB_String = "DSN="&dsn_name&"; UID="&db_user&"; PWD="&db_pwd&"; DBQ="&db_name&"; DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
        Set con = createobject ("ADODB.Connection")
        Set rs = createobject("ADODB.Recordset")
        con.open DB_String
        DB_Query = "select  *  from debkart"
        Set rs = con.Execute(DB_Query)

ow after the execution of con.execute , QTP is giving time out problem.

Pls help.