Membuat Koneksi Delphi Dengan SQL SERVER

DenganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » DelphiPrinsip dasar pembuatan Keylogger. Read more ... » selain dapat membuat aplikasi statis, kitaCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » juga dapat menggunakan delphi untukBasic Pattern Recognition. Read more ... » pembuatan aplikasi dinamis dengan bantuan pihak ketiga aplikasi database yakni yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » SQL server. Dengan SQL Server ini kita bisa menambahkan data, merubah atau menghapus data. Namun pada kaliMenjalankan Aplikasi Android di Windows. Read more ... » 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, CaraMenjalankan Aplikasi Android di Windows. Read more ... » membuat database sebagai berikut :

  • Klik StartMembuka Command Prompt mode Administrator. Read more ... » ==> 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 :
    Membuat Database dengan Query

    Database dengan Query

    Notifikasi database

    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

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 dalamCara mengatasai Cannot modify header PHP. Read more ... » 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 :
Running Program
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

by 1n53ct4

Posted in Delphi 7, Programing and tagged , .