Newsgroup: it.comp.lang.delphi
Titolo: Errore in TADOQuery

Un saluto a tutti potreste gentilmente aiutarmi?
ho convertito un DB Paradox in Ms Access e mi da errore
Ecco la procedura
procedure TStatForm.FormShow(Sender: TObject);
var
  qrTemp : TADOQuery;
begin
  qrTemp := TADOQuery.Create(Application);
  try
  with qrTemp do begin
    if Active then Close;
    Connection := MainForm.ADOConnection1;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    Open;
    if not isEmpty then
    Vol1.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol1.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Sesso = :sesso');
    Params[0].asString := 'M';
    Open;
    if not isEmpty then
    Vol2.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol2.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Sesso = :sesso');
    Params[0].asString := 'F';
    Open;
    if not isEmpty then
    Vol3.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol3.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Data_Partenza is Null');
    Open;
    if not isEmpty then
    Vol4.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol4.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Data_Partenza <= :Data');
    ParamByName('Data').AsDate := Date;
    Open;
    if not isEmpty then
    Vol5.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol5.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Data_Arrivo = :Data');
    ParamByName('Data').AsDate := Date;
    Open;
    if not isEmpty then
    Vol6.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol6.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Ospiti]');
    SQL.Add ('where Data_Partenza = :Data');
    ParamByName('Data').AsDate := Date;
    Open;
    if not isEmpty then
    Vol7.Text := IntToStr(qrTemp.RecordCount)
    else
    Vol7.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    Open;
    if not isEmpty then
    Aut1.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut1.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Ambulanza';
    Open;
    if not isEmpty then
    Aut2.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut2.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Autovettura';
    Open;
    if not isEmpty then
    Aut3.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut3.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Bob Cat';
    Open;
    if not isEmpty then
    Aut4.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut4.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Camion';
    Open;
    if not isEmpty then
    Aut5.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut5.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Camper';
    Open;
    if not isEmpty then
    Aut6.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut6.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Carrello';
    Open;
    if not isEmpty then
    Aut7.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut7.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Ciclomotore';
    Open;
    if not isEmpty then
    Aut8.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut8.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Escavatore';
    Open;
    if not isEmpty then
    Aut9.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut9.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Fuoristrada';
    Open;
    if not isEmpty then
    Aut10.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut10.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Furgone';
    Open;
    if not isEmpty then
    Aut11.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut11.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Pala meccanica';
    Open;
    if not isEmpty then
    Aut12.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut12.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Roulotte';
    Open;
    if not isEmpty then
    Aut13.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut13.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Sollevatore';
    Open;
    if not isEmpty then
    Aut14.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut14.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Veicoli]');
    SQL.Add ('where Tipo = :Tipo');
    Params[0].asString := 'Trattore';
    Open;
    if not isEmpty then
    Aut15.Text := IntToStr(qrTemp.RecordCount)
    else
    Aut15.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    Open;
    if not isEmpty then
    Ass1.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass1.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'Logistica';
    Open;
    if not isEmpty then
    Ass2.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass2.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'Manutenzione';
    Open;
    if not isEmpty then
    Ass3.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass3.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'Segreteria';
    Open;
    if not isEmpty then
    Ass4.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass4.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'Cinofila';
    Open;
    if not isEmpty then
    Ass5.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass5.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'TLC';
    Open;
    if not isEmpty then
    Ass6.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass6.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from [Società]');
    SQL.Add ('where Specializzazione = :Specializzazione');
    Params[0].asString := 'Sanitario';
    Open;
    if not isEmpty then
    Ass7.Text := IntToStr(qrTemp.RecordCount)
    else
    Ass7.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from Interventi.db');
    Open;
    if not isEmpty then
    Int1.Text := IntToStr(qrTemp.RecordCount)
    else
    Int1.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from Rigintvol.db');
    Open;
    if not isEmpty then
    Int2.Text := IntToStr(qrTemp.RecordCount)
    else
    Int2.Text := '0';
    if Active then Close;
    SQL.Clear;
    SQL.Add ('select * from Riforn.db');
    Open;
    if not isEmpty then
    Rif1.Text := IntToStr(qrTemp.RecordCount)
    else
    Rif1.Text := '0';
    end;
    finally
    qrTemp.Close;
    qrTemp.Free;
  end;
end;
end.
Dove Sbaglio?
--------------------------------
Inviato via 
http://usenet.libero.it


Se non posti l'errore come facciamo a capirlo?
Analizzare tutto quel codice non e' roba da poco...
Ciao
Morde.
morde [at] programmer [.] net

> Dove Sbaglio?
1) credo tu non abbia dato un occhio alle differenze tra il dialetto sql di
Access e quello di Paradox Le sintassi di access sono molto diverse da
quelle di tutti gli altri database.
2) nessuna info sul messaggiore e sul codice di errore restituito
3) Non credo sia il caso di usare ADO per accedere al bde.
Saluti
A.