[Openroad-users] A little ADO help will be highly apreciated

[Peter van Bennekom]

Kim,

 

Why not install Enterprise Access for SQL Server 2005 database?  Simply open two connections and start the process...

 

Cheers

Peter

 

Peter van Bennekom | Sr. Principal Architect | Infor | office: 610-407-8113 | fax: 610-407-8027 | mailto:peter.vanbennekom at infor.com

 

 

________________________________

From: openroad-users-bounces at peerlessit.com [mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Kim Ginnerup
Sent: Tuesday, March 11, 2008 11:08 AM
To: International OpenROAD Users
Subject: Re: [Openroad-users] A little ADO help will be highly apreciated

 

Thanks Jonathan,

 

It works now.

 

Kim

 

 

________________________________

Fra: openroad-users-bounces at peerlessit.com [mailto:openroad-users-bounces at peerlessit.com] På vegne af Jonathan Barton
Sendt: 11. marts 2008 13:29
Til: International OpenROAD Users
Emne: Re: [Openroad-users] A little ADO help will be highly apreciated

 

Yes you need to use MoveFirrst() before you loop through the records in the recordset and MoveNext() with the loop...

 

(eo_ado_rs = ADO!RecordSet)

 

If eo_ado_rs.EOF != True
 Then
  eo_ado_rs.MoveFirst();
   
  While eo_ado_rs.EOF = False
     Do  
      tbl[li_count].surname = eo_ado_rs.fields.item(0).value;
      tbl[li_count].dob = eo_ado_rs.fields.item(1).value;
   CurFrame.Trace(Text = 'Surname: ' + VarChar(tbl[li_count].surname) + ' DOB: ' + VarChar(tbl[li_count].dob));
      eo_ado_rs.MoveNext();
      li_count = li_count + 1;
     EndWhile;
 Endif;

 

HTH

 

Jonathan

 

 

________________________________

From: openroad-users-bounces at peerlessit.com [mailto:openroad-users-bounces at peerlessit.com] On Behalf Of Kim Ginnerup
Sent: 11 March 2008 11:55
To: International OpenROAD Users
Subject: [Openroad-users] A little ADO help will be highly apreciated

Hi all,

 

I need to take some date out of an SQL Server 2005 and put them into an Ingres database.

The existing system is experiencing severe performance problems so what else to do but moving it to Ingres. ;-)

 

I could use a little help on the code below.

Recordset.Recordcount() returns -1; no matter what I do

Recordset.state() returns 1

 

 

initialize()=

declare

            con = MSADO!connection default null;

            rec = MSADO!_recordset default null;

            err = MSADO!errors default null;

            sel = varchar(2000);

            res = varchar(2000);

            i = integer not null;

            cnt = integer not null;

            state = integer not null;

            connectString = varchar(2000) not null;

enddeclare

{

            curframe.trace('start');

            curframe.flush();

 

            con = MSADO!connection(MSADO!connection.new());

            rec = MSADO!_recordset(MSADO!_recordset.new());

 

            connectString = 

                        'Provider=sqloledb;' + 

                        'Network Library=DBMSSOCN;' +

                        'Data Source=172.16.2.40,1433;' +

                        'Initial Catalog=VIS_xxxx;' +

                        'User Id=sa;' +

                        'Password=xxxxxxx';

            con.open(connectString);

            // sel = 'SELECT TOP 10 kunde FROM dbo.KUND_Reklamation';

            sel = 'SELECT GETDATE()';

            rec = con.execute(sel,,);

 

            // message con.errors().item.description;

            cnt   = rec.recordcount();

            state = rec.state();

            curframe.trace(varchar(cnt) +' rows found. Recordset.state: ' + varchar(state));

 

            for i = 0 to cnt -1 do

                        res = rec.fields.item(i).value;

                        curframe.trace(varchar(i) +': ' + res);

            endfor;

 

            rec.close();

            con.close();

                        

            rec = NULL;

            con = NULL;

}

 

Venligst,/Regards,

 

Kim Ginnerup
Technical Manager 

Bording Data A/S
Bredskifte Allé 11
DK-8210  Århus V
________________________
Tlf.:             4324 5424
Direkte tlf.  4324 5370
Fax:            8624 8626 

Mail: kgi at bording.dk <mailto:kgi at bording.dk> 
web: http://www.bordingdata.dk/ <http://www.bordingdata.dk/> 

________________________________________________________________________

Til Deres information:
Med henblik på at dokumentere kommunikationen mellem Bording Data og kunder/partnere, foretages automatisk journalisering af ind- og udgående mails på firma/kontaktperson niveau.

For Your information:
In order to ensure documentation of communication between Bording Data and our customers/partners, in- and outgoing emails are journalized at company/contact level . 

 

________________________________

This incoming email to UWE has been independently scanned for viruses by McAfee anti-virus software and none were detected 

________________________________

This email was independently scanned for viruses by McAfee anti-virus software and none were found 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.peerlessit.com/pipermail/openroad-users/attachments/20080311/d8002301/attachment-0001.html