Welcome, Guest

This forum is the place to discuss issues related to ReportPro, Xs2Ado, Vo2Ado, bBrowser and other 3rd party products

Page:
1

TOPIC:

AdoServer Find method for SQL files 25 Oct 2021 20:59 #20122

jjgregg
Topic Author

Offline

Posts: 25

Anyone with sample code to show how to make the find method work on an SQL AdoServer? What is the best methodology for locating records much like the good old seek method used with dBase files? I can´t get the find method to work with SQL tables in a VO 2,8sp4 appiication, it doesn't even register a VO error, the program just exits and I'm unable to know what happened or what is causing it to fail.
Appreciate any help.
John

Please Log in or Create an account to join the conversation.

AdoServer Find method for SQL files 25 Oct 2021 23:07 #20124

Jamal

Offline

Posts: 309

Please Log in or Create an account to join the conversation.

Last edit: by Jamal.

AdoServer Find method for SQL files 25 Oct 2021 23:35 #20126

robert

Offline

Posts: 3599

John,
The AdoServer:Find() method is different from the DbServer:Seek().
When you select data from a SQL backend you usually filter the results by adding a WHERE clause. This is the preferred way to bring only the rows that you need to the client workstation

oServer := AdoServer{"Select * from customers where CompanyName = 'SomeName'",...}

The Find() method does not go to the server, but seeks in the data that has been fetched from the server before (this data is stored in an AdoRecordSet)
The criteria that you can use for the Find method are limited:
docs.microsoft.com/en-us/sql/ado/referen...iew=sql-server-ver15

And if you do not need the bind the data to a form / browser your even better of by using an AdoCommand:

oCmd := AdoCommand{}
oCmd:ActiveConnection := oConn
oCmd:CommandText := "Select * from customers where CompanyName = 'SomeName'"
oRecordSet := oCmd:Execute()
? oRecordSet:RecordCount
if oRecordSet:RecordCount > 0
   ? oRecordSet:FieldGet(1)
endif

XSharp Development Team
The Netherlands

Please Log in or Create an account to join the conversation.

AdoServer Find method for SQL files 26 Oct 2021 01:47 #20128

jjgregg
Topic Author

Offline

Posts: 25

Thanks Robert, I agree, I´ve been using AdoCommands for most everything but for a moment I thought it would be great to have something like the old dbServer:Seek() command.

In the example above,, I guess one should always scan all records returned by a recordset to locate the one record we are looking for much like the dbServer:Seek() method which returns the first record.
Thanks for your help.
John

Please Log in or Create an account to join the conversation.

AdoServer Find method for SQL files 26 Oct 2021 05:57 #20130

jjgregg
Topic Author

Offline

Posts: 25

Thanks for your help Jamal. I am using SQL tables so I have to use AdoServer instead of AdoDBServer, the Seek method is different between these 2:

FOR ADODBSERVER

METHOD Seek(uSearchExpr, lSoftSeek, lLast) CLASS AdoDbServer
LOCAL lOk AS LOGIC
lOk := SUPER:Seek(uSearchExpr, lSoftSeek, lLast)
SELF:Notify(NOTIFYFILECHANGE)
RETURN lOk

FOR ADOSERVER

Prototype
METHOD Seek ( aKeys, lOption ) CLASS AdoServer
Argument(s)
aKeys An array of values to compare against each corresponding column in the index
lSeek (Optional) A SeekEnum value that specifies the type of comparison to be made Default is adSeekFirstEq

the server will send a NOTIFYINTENTTOMOVE before the operation and a NOTIFYRECORDCHANGE after the operation.

Thanks for your suggestions.
Best regards,
John

Please Log in or Create an account to join the conversation.

Page:
1

Forum

Public Forums

3rd party products

AdoServer Find method for SQL files