Database connection.

[sudhirzpatil]

Hi Friends,
I am trying to connect to a Database and importing Database Data to runtime databale.
But i am getting following error
The test run cannot continue due to a syntax error.
Expected 'Loop'
Line (28): "".

My script is as below

Code:

dim con,rs
set con=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
con.open"provider=sqloledb.1;server=xyz;uid=sa;pwd=sa@123;database=First"
rs.open"select * from employee",con
do while not rs.eof
datatable.getsheet(1).addparameter"Eid",""
datatable.getsheet(1).addparameter"EName",""
datatable.getsheet(1).addparameter"Salary",""
datatable.getsheet(1).addparameter"DID",""
row=1
do while not rs.EOF
databale.setcurrentrow(row)
datatable.value(1,1)=rs.fields("Eid")
datatable.value(2,1)=rs.fields("EName")
datatable.value(3,1)=rs.fields("Salary")
datatable.value(1,1)=rs.fields("DID")
row=row+1
rs.movenext
Loop

can any one point the issue.

Thnks in advance

[tarunlalwani]

Code:

[b]do while not rs.eof[/b]
datatable.getsheet(1).addparameter"Eid",""
datatable.getsheet(1).addparameter"EName",""
datatable.getsheet(1).addparameter"Salary",""
datatable.getsheet(1).addparameter"DID",""
row=1
[b]do while not rs.EOF[/b]

You are starting 2 loops but ending only one

[sudhirzpatil]

Ohhh Yes yes....

and it runs...

thnks

[badri167]

Code:

Set dtNewSheet=DataTable.AddSheet( "mysheet" )
set stNewCol1=dtNewSheet.addparameter("col1","" )
set stNewCol2=dtNewSheet.addparameter("col2","" )
set stNewCol3=dtNewSheet.addparameter("col3","" )

set conn5=Createobject( "ADODB.Connection")
Srvname5="Driver= {Microsoft ODBC forOracle}:Server= DBserver, UID=Sa,Password= sa"
conn5.open "provider=sqloledb.1;server=xyz;uid=sa;pwd=sa@123;database=First"
Set Rec5 = CreateObject("ADODB.Recordset")
SQL5="select * from employee  "
Set Rec5 = conn5.execute( SQL5)
j=1
While not rec5.eof
unit=Rec5.fields("route_seq")
=Rec5.fields("id")
procesc=Rec5.fields("process")
                                    
stNewCol1.valuebyrow (j)=majprod
stNewCol2.valuebyrow (j)=orderid
stNewCol3.valuebyrow (j)=header
j=j+1
Rec5.movenext
Wend