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

[Kim Ginnerup]

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/
________________________________________________________________________
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/6a39db2c/attachment.html