adoquery problem

prøv evt. select count(<keyfield>) as .....

det er jo ikke nødvendigt at selecte hele din record for at tælle hvor mangge du har :)

select count(<keyfield>) as

Giver samme resultat:

MySQL server modtager:

select * from results;

Min SQL sætning kør fint hvis jeg køre den fra MySQL query browser men når jeg submitter den med en adoquery fra delphi så modtager MySQL serveren:

select * from results;

Det tyder på at adoquery ikke submitter min MySQL sætning korrekt!

Du kan lave din select en hel del pænere ved at skippe direkte formatering af scriptet. Nedenstående virker hos mig.

q1.SQL.Clear;
q1.SQL.Add('select count(*) as TargetFilCount');
q1.SQL.Add('  from results');
q1.SQL.Add('  where (targetfile_idtargetfile = :targetfile_idtargetfile)');

with q1.Parameters.ParamByName('targetfile_idtargetfile') do
begin
  DataType := ftInteger;
  Value := SpinEdit9.Value;
end;

q1.Open
try
  result := q1.FieldByName('TargetFilCount').AsInteger;
finally
  q1.Close;
end;

Nu er ovenstående ikke særlig stringent og pænt, men her bliver det et helt skoleeksempel (:-):

function <Class>.GetTargetFileCount(const aValue: integer): integer;
var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.ConnectionString := '...';

    Query.SQL.Clear;
    Query.SQL.Add('select count(*) as TargetFilCount');
    Query.SQL.Add('  from results');
    Query.SQL.Add('  where (targetfile_idtargetfile = :targetfile_idtargetfile)');

    with Query.Parameters.ParamByName('targetfile_idtargetfile') do
    begin
      DataType := ftInteger;
      Value := aValue;
    end;

    Query.Open
    result := Query.FieldByName('TargetFilCount').AsInteger;
  finally
    Query.Free;
  end;
end;

Plejer i øvrigt ikke at sætte connectionstengen direkte, men har et TDataModule hvori jeg har en CreateQuery funktion som opretter og sætter ConnectionString:

TDM.CreateQuery: TADOQuery;
begin
  result := TADOQuery.Create(nil);
  result.ConnectionString := '...';
end;

Jeg kan ikke få adoquery til at virker. MySQL modtager hele tiden:

Select * from results

også når jeg bruger ovenstående formattering.

Jeg har nu løst problemet rent pratisk med adodataset men det er ikke en særlig handy metode.

Du kunne prøve at lave en storedproc som gør det rigtigt også bruge den

eller skift til en ordenlig SQLServer = www.FirebirdSQL.org *S*

Mange tak for komentar fra både hrc og martinlind. FirebirdSQL ser ud til at værre et godt alternative til MySQL.

Er det let at konvertere databaser fra MySQL til Firebird?

Er der nogle gode og frie programmer til database design for Firebird databaser?

Hvordan er hastigheden på data transfer samenlignet med MySQL.