BorlandTalk.com

Barry · Guest

I'm trying to write a function that will simply validate a case number using
a webservice and ADO. My question is I want to create the ado connection
and ado query but I'm not sure when I specify create what should go between
the (). See below code. Any help would be appreciated.

function TTemperature.validateCaseNumber(CaseYear: Smallint;
CaseNumber: Integer): Boolean;
var
adocon : TADOConnection;
adosql : TSQLQuery;
begin

try

adocon := TADOConnection.Create(adocon); <== Is this the
correct way to create a object?
adosql := TSQLQuery.Create(adosql);

adocon.LoginPrompt := false;
adocon.ConnectionString := 'Provider=MSDASQL.1;Persist Security
Info=False;Data Source=ecf_live';
adosql.SQL.Add('select cs.cs_year, cs.cs_number');
adosql.SQL.Add('from case cs');
adosql.SQL.Add('where cs.cs_year = '+inttostr(CaseYear)+' AND');
adosql.SQL.Add('cs.cs_number = '+inttostr(CaseNumber));
adosql.Active := true;
if adosql.RecordCount > 0 then result := True else result := False;

finally
adocon.Free;
adosql.Free;
result := False;
end;

end;

danny heijl · Guest

Barry schreef: