RE: RPG chain = ?? in VB

["Angela Wawrzaszek" <awawrzaszek@xxxxxxxxxxxxxxx>]

Thankyou,   she has changed the ADO to do a SQL select statement and
this has increased the speed of the application tremendously!!!

Angela Wawrzaszek
IT Supervisor
awawrzaszek@xxxxxxxxxxxxxxx
(315) 258-4205

-----Original Message-----
From: Walden H. Leverich [mailto:WaldenL@xxxxxxxxxxxxxxx] 
Sent: Tuesday, December 14, 2004 10:32 AM
To: Midrange Systems Technical Discussion
Subject: RE: RPG chain = ?? in VB

Angela,

Find is the last thing he (she?) should be using is Find(). Find
searches a recordset for the record in question, so the VB app must
first pull down all the rows and then search through them for the record
you're looking for. 

When your programmer opens his recordset he should use a SQL statement
that locates the correct record to begin with. For example (forgive me
if my vb is rusty, I'm living w/c# these days):

Dim cn as ADODB.connection
Dim rs as ADODB.recordset
Set cn = new connection
Cn.open(YourConnectionStringHere)
Set rs = cn.execute("select Name, Status, ZipCode from Customer where
CustomerID = 87782")

This will result in a recordset with three fields (Name, Status and
ZipCode) and only one row, the row for customer # 87782 -- assuming
customerID is unique and there is a customer 87782. <G>

There are even better ways to do this that include the use of
parameterized queries and command objects, but this change alone should
drop your response to sub-second. The 400 will use whatever index it
thinks makes sense to run this query.

-Walden


------------
Walden H Leverich III
President & CEO
Tech Software
(516) 627-3800 x11
WaldenL@xxxxxxxxxxxxxxx
http://www.TechSoftInc.com

Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)
  

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.