Menggunakan Kueri Delphi Dengan ADO

Komponen TADOQuery menyediakan Delphi pengembang kemampuan untuk mengambil data dari satu atau beberapa tabel dari suatu Database ADO menggunakan SQL.

Pernyataan SQL ini bisa berupa pernyataan DDL (Data Definition Language) seperti CREATE TABLE, ALTER INDEX, dan sebagainya, atau mereka bisa berupa pernyataan DML (Data Manipulation Language), seperti SELECT, UPDATE, dan MENGHAPUS. Pernyataan yang paling umum, bagaimanapun, adalah pernyataan SELECT, yang menghasilkan tampilan yang mirip dengan yang tersedia menggunakan komponen Tabel.

Catatan: meskipun mengeksekusi perintah menggunakan komponen ADOQuery dimungkinkan, namun Perintah ADOCkomponen lebih tepat untuk tujuan ini. Ini paling sering digunakan untuk menjalankan perintah DDL atau untuk menjalankan prosedur tersimpan (meskipun Anda harus menggunakanTADOStoredProc untuk tugas-tugas seperti itu) yang tidak mengembalikan set hasil.

SQL yang digunakan dalam komponen ADOQuery harus dapat diterima oleh driver ADO yang digunakan. Dengan kata lain Anda harus terbiasa dengan perbedaan penulisan SQL antara, misalnya, MS Access dan MS SQL.

Seperti ketika bekerja dengan komponen ADOTable, data dalam database diakses menggunakan koneksi penyimpanan data yang dibuat oleh komponen ADOQuery menggunakanConnectionString properti atau melalui komponen ADOConnection terpisah yang ditentukan dalam KoneksiProperti.

Untuk membuat bentuk Delphi yang mampu mengambil data dari database Access dengan komponen ADOQuery cukup jatuhkan semua akses data terkait dan komponen yang menyadari data di dalamnya dan buat tautan seperti yang dijelaskan dalam bab sebelumnya ini tentu saja Komponen akses data: DataSource, ADOConnection bersama dengan ADOQuery (bukan ADOTable) dan satu komponen yang sadar data seperti DBGrid adalah yang kami butuhkan.
Seperti yang sudah dijelaskan, dengan menggunakan Object Inspector atur tautan antara komponen-komponen tersebut sebagai berikut:

DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ADOQuery1
ADOQuery1.Connection = ADOConnection1
// bangun ConnectionString
ADOConnection1.ConnectionString = ...
ADOConnection1.LoginPrompt = Salah

Komponen TADOQuery tidak memiliki TableNameproperti seperti TADOTable. TADOQuery memiliki properti (TStrings) yang disebut SQL yang digunakan untuk menyimpan pernyataan SQL. Anda dapat mengatur nilai properti SQL dengan Object Inspector pada waktu desain atau melalui kode saat runtime.

Pada waktu desain, aktifkan editor properti untuk properti SQL dengan mengklik tombol elipsis di Object Inspector. Ketik pernyataan SQL berikut: "SELECT * FROM Authors".

Pernyataan SQL dapat dieksekusi dalam salah satu dari dua cara, tergantung pada jenis pernyataan. Pernyataan Bahasa Definisi Data umumnya dijalankan dengan ExecSQL metode. Misalnya untuk menghapus catatan tertentu dari tabel tertentu Anda bisa menulis pernyataan DELETE DDL dan menjalankan kueri dengan metode ExecSQL.
Pernyataan SQL (biasa) dijalankan dengan mengatur TADOQuery. Aktif properti untuk Benar atau dengan memanggilBuka metode (pada dasarnya sama). Pendekatan ini mirip dengan mengambil data tabel dengan komponen TADOTable.

Pada saat run-time, pernyataan SQL di properti SQL dapat digunakan sebagai objek StringList apa pun:

dengan ADOQuery1 mulai Tutup; 
SQL.Clear; 
SQL.Add: = 'SELECT * FROM Authors' SQL.Add: = 'ORDER BY authorname DESC' Terbuka; 
akhir;

Kode di atas, pada saat run-time, menutup dataset, mengosongkan string SQL di properti SQL, menetapkan perintah SQL baru dan mengaktifkan dataset dengan memanggil metode Open.

Perhatikan bahwa membuat daftar objek bidang yang terus-menerus untuk komponen ADOQuery tidak masuk akal. Lain kali Anda memanggil metode Open, SQL bisa sangat berbeda sehingga seluruh rangkaian nama yang diajukan (dan jenis) dapat berubah. Tentu saja, ini tidak terjadi jika kita menggunakan ADOQuery untuk mengambil baris hanya dari satu tabel dengan set bidang konstan - dan set yang dihasilkan tergantung pada bagian WHERE dari pernyataan SQL.

Salah satu properti hebat dari komponen TADOQuery adalah Params Properti. Kueri parameterisasi adalah kueri yang memungkinkan pemilihan baris / kolom yang fleksibel menggunakan parameter dalam klausa WHERE dari pernyataan SQL. Properti Params memungkinkan parameter yang bisa diganti dalam pernyataan SQL yang telah ditentukan. Parameter adalah pengganti untuk nilai dalam klausa WHERE, yang ditentukan tepat sebelum kueri dibuka. Untuk menentukan parameter dalam kueri, gunakan titik dua (:) sebelum nama parameter.
Pada waktu desain, gunakan Object Inspector untuk mengatur properti SQL sebagai berikut:

ADOQuery1.SQL: = 'SELECT * FROM Applications WHERE type =: apptype'

Ketika Anda menutup jendela editor SQL, buka jendela Parameter dengan mengklik tombol elipsis di Object Inspector.

Parameter dalam pernyataan SQL sebelumnya diberi namaapptype. Kita dapat mengatur nilai parameter dalam koleksi Params pada waktu desain melalui kotak dialog Parameter, tetapi sebagian besar waktu kita akan mengubah parameter saat runtime. Dialog Parameter dapat digunakan untuk menentukan tipe data dan nilai default dari parameter yang digunakan dalam kueri.

Pada saat run-time, parameter dapat diubah dan permintaan dijalankan kembali untuk menyegarkan data. Untuk mengeksekusi query parameter, perlu memberikan nilai untuk setiap parameter sebelum eksekusi query. Untuk mengubah nilai parameter, kami menggunakan properti Params atau metode ParamByName. Sebagai contoh, mengingat pernyataan SQL seperti di atas, pada saat run-time kita dapat menggunakan kode berikut:

dengan ADOQuery1 mulai
Menutup;
SQL.Clear;
SQL.Add ('SELECT * FROM Applications WHERE type =: apptype');
ParamByName ('apptype'). Nilai: = 'multimedia';
Buka;
akhir;

Seperti ketika bekerja dengan komponen ADOTable, ADOQuery mengembalikan set atau catatan dari sebuah tabel (atau dua atau lebih). Menavigasi melalui dataset dilakukan dengan set metode yang sama seperti yang dijelaskan dalam bab "Di belakang data dalam dataset".

Secara umum komponen ADOQuery tidak boleh digunakan saat pengeditan berlangsung. Kueri berbasis SQL sebagian besar digunakan untuk tujuan pelaporan. Jika kueri Anda mengembalikan kumpulan hasil, kadang-kadang dimungkinkan untuk mengedit dataset yang dikembalikan. Set hasil harus berisi catatan dari satu tabel dan itu tidak boleh menggunakan fungsi agregat SQL. Mengedit dataset yang dikembalikan oleh ADOQuery sama dengan mengedit dataset ADOTAble.

Untuk melihat beberapa tindakan ADOQuery kami akan memberi kode contoh kecil. Mari kita membuat kueri yang dapat digunakan untuk mengambil baris dari berbagai tabel dalam database. Untuk menampilkan daftar semua tabel dalam database kita bisa menggunakan GetTableNamesmetode ADOConnection komponen. GetTableNames dalam acara OnCreate dari formulir mengisi ComboBox dengan nama tabel dan Button digunakan untuk menutup kueri dan untuk membuatnya kembali untuk mengambil catatan dari tabel yang dipilih. Penangan event () harus terlihat seperti:

procedure TForm1.FormCreate (Pengirim: TObject);
mulai
ADOConnection1.GetTableNames (ComboBox1.Items);
akhir;
procedure TForm1.Button1Click (Pengirim: TObject);
var tblname: string;
mulai
jika ComboBox1.ItemIndex maka Keluar;
tblname: = ComboBox1.Items [ComboBox1.ItemIndex];
dengan ADOQuery1 mulai
Menutup;
SQL.Text: = 'SELECT * FROM' + tblname;
Buka;
akhir;
akhir;

Perhatikan bahwa semua ini dapat dilakukan dengan menggunakan properti ADOTable dan TableName-nya.