krishnaveni

• Nov 24th, 2006

 

hi,

try this THIS WORKS FOR FLIGHT RESERVATIONS EXAMPLE, if u have created connection string

Set dbexample = CreateObject("ADODB.Connection")

dbexample.ConnectionString =DSN

dbexample.Open

Set rcRecordSet= dbexample.Execute("SELECT Customer_Name from Orders")

irow = 1

rcRecordset.MoveFirst

Do

' DataTable.SetCurrentRow(irow)

DataTable.Value("UserName",dtLocalsheet) = rcRecordset("Customer_Name")

      irow = irow+1

      rcRecordset.MoveNext

DataTable.SetCurrentRow(irow)

Loop Until rcRecordset.EOF

tf.close

ypraveen_77

 Profile Answers by ypraveen_77 Questions by ypraveen_77

• Mar 23rd, 2007

 

Hi the above example might be wrong,  But try with fowwing script.

Datatable.import " datatable connection path"
execute script
u will get it

thanking you
praveen yarlagadda

asvksastry

 Profile Answers by asvksastry 

• Nov 20th, 2008

 

Set dbexample=CreateObject ("ADODB.Connection")
dbexample.ConnectionString= DSN Name in quotes eg "Train"
dbexample.open
Set rcRecordSet=dbexample.Execute("select col1,col2,col3 from table_name")
Dim irow
irow=1
rcRecordSet.MoveFirst
Do
    DataTable.SetCurrentRow(irow)
  DataTable.Value("col1", dtGlobalSheet)=rcRecordSet("col1")
  DataTable.Value("col2",dtGlobalSheet)=rcRecordSet("col2")
  DataTable.Value("col3",dtGlobalSheet)=rcRecordSet("col3")
  irow=irow+1
  rcRecordSet.MoveNext
        Loop Until rcRecordset.EOF
dbexample.close