Database dengan Query

Dengan Delphi selain dapat membuat aplikasi statis, kita juga dapat menggunakan delphi untuk pembuatan aplikasi dinamis dengan bantuan pihak ketiga aplikasi database yakni yang SQL server. Dengan SQL Server ini kita bisa menambahkan data, merubah atau menghapus data. Namun pada kali ini yang akan kita cobakan adalah membuat koneksi terlebih dahulu, antara Delhi==> SQL Server, karena tanpa adanya koneksi kita tidak dapat terhubung dengan database.
Sebelumnya kita harus membuat database di Sql server untuk ujicoba koneksi yang akan kita buat nantinya, Cara membuat database sebagai berikut :
Klik Start ==> Microsoft SQL Server ==> Pilih Query Analizer.
Ketikan berikut untuk membuat database “create database coba “.
Tekan keyboar CTRL+F5 untuk mengecek sintak query yang kita ketikan dan tekan F5 untuk eksekusi query.
Jika berhasil akan tampil seperti berikut :

Database dengan Query

Notifikasi Database
Setelah membuat database, tahap berikutnya buka delphi dan buat aplikasi dengan menambahkan 2 Label, 2 Edit, 1 adoconnection (pada tab ado) dan 1 button, kemudian atur seperti berikut ini:

Form Utama
Kemudian kita masuk ke tahap coding, sekarang klik 2x pada komponen Button1 atau Coba Koneksi dan ketikan source berikut :


==================Start Code ======================
try
with ADOConnection1 do
begin
Connected:=false;
LoginPrompt:=false;
ConnectionString:='Provider='+Edit1.Text+'.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+Edit2.Text;
Connected:=true;
end;
ShowMessage('Koneksi ke database '+Edit2.Text+ ' sukses.');
except
ShowMessage('Koneksi ke database '+Edit2.Text+ ' gagal.');
edit1.SetFocus;
end;
==================End Code ======================
Selanjutnya simpan project dalam folder tersendiri dan compile program tersebut, untuk mengecek jalannya program sebaiknya ke aplikasinya langsung, maksudnya aplikasi yang sudah jadi dari hasil compile. Isikan nama server dengan “SQLOLEDB” dan database dengan “coba”. Jika berhasil maka akan tampil seperti berikut :

Penjelasan :
try…Except…End => Merupakan blok eksespi untuk penanganan kesalahan, seperti halnya if namun pada try lebih aman dalam pencegahan kesalahan.
With Adoconnection1 do => Untuk menghindari penulisan yang berulang-ulang pada adoconnection.
selamat mencoba


Read more: http://burhanudin.web.id/programing/membuat-koneksi-delphi-dengan-sql-server#ixzz1tqehav9u