Utilizzo di query Delphi con ADO

Il componente TADOQuery offre agli sviluppatori Delphi la possibilità di recuperare dati da una o più tabelle da un database ADO utilizzando SQL.

Queste istruzioni SQL possono essere istruzioni DDL (Data Definition Language) come CREATE TABLE, ALTER INDEX e così via, oppure possono essere istruzioni DML (Data Manipulation Language), come SELECT, UPDATE e DELETE. L'istruzione più comune, tuttavia, è l'istruzione SELECT, che produce una vista simile a quella disponibile utilizzando un componente Tabella.

Nota: anche se è possibile eseguire comandi utilizzando il componente ADOQuery, il ADOCommandcomponente è più appropriato per questo scopo. Viene spesso utilizzato per eseguire comandi DDL o per eseguire una procedura memorizzata (anche se è necessario utilizzareTADOStoredProc per tali attività) che non restituisce un set di risultati.

L'SQL utilizzato in un componente ADOQuery deve essere accettabile per il driver ADO in uso. In altre parole, dovresti conoscere le differenze di scrittura SQL tra, ad esempio, MS Access e MS SQL.

Come quando si lavora con il componente ADOTable, si accede ai dati in un database usando una connessione all'archivio dati stabilita dal componente ADOQuery usando il suoConnectionString proprietà o tramite un componente ADOConnection separato specificato in Connessioneproprietà.

Per rendere un modulo Delphi in grado di recuperare i dati da un database di Access con il componente ADOQuery è sufficiente rilasciare su di esso tutti i componenti relativi all'accesso ai dati e ai dati sensibili e creare un collegamento come descritto nei precedenti capitoli di questo corso. I componenti di accesso ai dati: DataSource, ADOConnection insieme a ADOQuery (anziché ADOTable) e un componente sensibile ai dati come DBGrid è tutto ciò di cui abbiamo bisogno.
Come già spiegato, usando la finestra di ispezione degli oggetti impostare il collegamento tra questi componenti come segue:

DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ADOQuery1
ADOQuery1.Connection = ADOConnection1
// crea ConnectionString
ADOConnection1.ConnectionString =…
ADOConnection1.LoginPrompt = False

Fare una query SQL

Il componente TADOQuery non ha a TableNameproprietà come fa il TADOTable. TADOQuery ha una proprietà (TStrings) chiamata SQL che viene utilizzato per archiviare l'istruzione SQL. È possibile impostare il valore della proprietà SQL con Inspector oggetti in fase di progettazione o tramite il codice in fase di esecuzione.

In fase di progettazione, richiamare l'editor delle proprietà per la proprietà SQL facendo clic sul pulsante con i puntini di sospensione nella finestra di ispezione degli oggetti. Digita la seguente istruzione SQL: "SELECT * FROM Authors".

L'istruzione SQL può essere eseguita in due modi, a seconda del tipo di istruzione. Le istruzioni del linguaggio di definizione dei dati vengono generalmente eseguite con execSQL metodo. Ad esempio per eliminare un record specifico da una tabella specifica è possibile scrivere un'istruzione DELETE DDL ed eseguire la query con il metodo ExecSQL.
Le (normali) istruzioni SQL vengono eseguite impostando il TADOQuery.Active proprietà a Vero o chiamando ilAperto metodo (essenzialmente lo stesso). Questo approccio è simile al recupero dei dati di una tabella con il componente TADOTable.

In fase di esecuzione, l'istruzione SQL nella proprietà SQL può essere utilizzata come qualsiasi oggetto StringList:

con ADOQuery1 inizia Close;
SQL.Clear;
SQL.Add: = 'SELECT * FROM Authors' SQL.Add: = 'ORDER BY authorname DESC' Apri; 
fine;

Il codice sopra, in fase di esecuzione, chiude il set di dati, svuota la stringa SQL nella proprietà SQL, assegna un nuovo comando SQL e attiva il set di dati chiamando il metodo Open.

Si noti che ovviamente creare un elenco persistente di oggetti campo per un componente ADOQuery non ha senso. La prossima volta che chiami il metodo Open, l'SQL può essere così diverso che l'intera serie di nomi (e tipi) archiviati può cambiare. Naturalmente, questo non è il caso se stiamo usando ADOQuery per recuperare le righe da una sola tabella con il set costante di campi - e il set risultante dipende dalla parte WHERE dell'istruzione SQL.

Query dinamiche

Una delle grandi proprietà dei componenti TADOQuery è la Parametri proprietà. Una query con parametri è una query che consente la selezione flessibile di righe / colonne utilizzando un parametro nella clausola WHERE di un'istruzione SQL. La proprietà Params consente parametri sostituibili nell'istruzione SQL predefinita. Un parametro è un segnaposto per un valore nella clausola WHERE, definito appena prima dell'apertura della query. Per specificare un parametro in una query, utilizzare i due punti (:) che precede il nome di un parametro.
In fase di progettazione, utilizzare la finestra di ispezione oggetti per impostare la proprietà SQL come segue:

ADOQuery1.SQL: = 'SELEZIONA * DA Applicazioni DOVE type =: apptype'

Quando chiudi la finestra dell'editor SQL, apri la finestra Parametri facendo clic sul pulsante con i puntini di sospensione nella finestra di ispezione degli oggetti.

Il parametro nell'istruzione SQL precedente è denominatotipoapp. Possiamo impostare i valori dei parametri nella collezione Params in fase di progettazione tramite la finestra di dialogo Parametri, ma la maggior parte delle volte cambieremo i parametri in fase di esecuzione. La finestra di dialogo Parametri può essere utilizzata per specificare i tipi di dati e i valori predefiniti dei parametri utilizzati in una query.

In fase di esecuzione, è possibile modificare i parametri e rieseguire la query per aggiornare i dati. Per eseguire una query con parametri, è necessario fornire un valore per ciascun parametro prima dell'esecuzione della query. Per modificare il valore del parametro, utilizziamo la proprietà Params o il metodo ParamByName. Ad esempio, data l'istruzione SQL come sopra, in fase di esecuzione potremmo utilizzare il seguente codice:

con ADOQuery1 iniziano
Vicino;
SQL.Clear;
SQL.Add ('SELECT * FROM Applications WHERE type =: apptype');
. ParamByName ( 'tipi di applicazione') Valore: = 'Multimedia';
Aperto;
fine;

Come quando si lavora con il componente ADOTable, ADOQuery restituisce un set o record da una tabella (o due o più). La navigazione attraverso un set di dati viene eseguita con lo stesso set di metodi descritto nel capitolo "Dietro i dati nei set di dati".

Navigazione e modifica della query

In generale, il componente ADOQuery non deve essere utilizzato durante la modifica. Le query basate su SQL vengono utilizzate principalmente a scopo di report. Se la query restituisce un set di risultati, a volte è possibile modificare il set di dati restituito. Il set di risultati deve contenere record da una singola tabella e non deve utilizzare alcuna funzione di aggregazione SQL. La modifica di un set di dati restituito da ADOQuery è uguale alla modifica del set di dati di ADOTAble.

Esempio

Per vedere alcune azioni ADOQuery codificheremo un piccolo esempio. Facciamo una query che può essere utilizzata per recuperare le righe da varie tabelle in un database. Per mostrare l'elenco di tutte le tabelle in un database possiamo usare il GetTableNamesmetodo del ADOConnection componente. GetTableNames nell'evento OnCreate del modulo riempie ComboBox con i nomi delle tabelle e il pulsante viene utilizzato per chiudere la query e ricrearla per recuperare i record da una tabella selezionata. I gestori di eventi () dovrebbero apparire come:

procedura TForm1.FormCreate (mittente: TObject);
inizio
ADOConnection1.GetTableNames (ComboBox1.Items);
fine;
procedura TForm1.Button1Click (Mittente: TObject);
var tblname: string;
inizio
se ComboBox1.ItemIndex quindi Exit;
tblname: = ComboBox1.Items [ComboBox1.ItemIndex];
con ADOQuery1 iniziano
Vicino;
SQL.Text: = 'SELECT * FROM' + tblname;
Aperto;
fine;
fine;

Si noti che tutto ciò può essere fatto utilizzando ADOTable e la proprietà TableName.