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