Item combobox yang diakses dari tabel (Delphi)

1. Masukkan dan setting ADOConection
2. Tambahkan ADODataset, setting dengan nama golongan.
3. Tambahkan combobox dan beri nama cmbjabatan

4. Masuk ke procedure form1.Activate
5. Tambahkan script tbjabatan.active:=false;  tbjabatan.commandtext:='select * from jabatan order by nama_jabatan’;

  tbjabatan.Active:=true;

  cmbjabatan.Items.Clear;

  while not tbjabatan.Eof do

  begin

  cmbjabatan.Items.add(tbjabatan ['nama_jabatan']);

  tbjabatan.Next;

  end;

6. Keterangan :

'select * from jabatan order by nama_jabatan’

ð     Pilih semua field dari tabel jabatan diurutkan berdasarkan field nama_jabatan.

ð     Jabatan = tabel

ð     Nama_jabatan = field

SQL DDL

Artikel ini merupakan penjelasan tentang SQL DDL yang sebelumnya sudah dibahas di SUB BAHASA SQL.  Berisi cara penulisan atau penerapannya dengan contoh agar lebih paham lagi tentang DDL  (Data Definition Language).

1.      Buat Database dengan nama perpustakaan.

CREATE DATABASE perpustakaan;

2.      Buat Tabel dengan nama data_buku

Nama field	Tipe data	panjang
kode_buku*	Char	5
judul_buku	Varchar	30
pengarang	Varchar	20
penerbit	Varchar	20

CREATE TABLE data_buku

(kode_buku char(5) not null primary key,

Judul_buku varchar(30) not null,

pengarang varchar(20) not null,

penerbit varchar(20) not  null);

not null berarti bahwa field tidak boleh kosong,dalam artian field harus diisi.

3.      Menambahkan satu field dengan nama tanggal_terbit dan tipe datanya date.

ALTER TABLE data_buku

ADD tanggal_terbit date;

4.      Membuat VIEW dengan data kode_buku,judul_buku dan pengarang dari table data_buku diberi nama buku_view.

CREATE VIEW  buku_view AS SELECT kode_buku, judul_buku, penerbit FROM data_buku;

5.       Menghapus field penerbit dari table data_buku

ALTER TABLE data_buku

DELETE penerbit varchar(20);

Kira-kira seperti itu..Sebenere mo nambah lagi yang DML tapi uda lumayan ngantuk,yang laen ditambah besok aja yah..Jika ada yang kurang silakan ditambahi..mari berbagi ilmu.. :-D

SUB BAHASA SQL

SQL adalah kepanjangan dari Structured Query Language kalo dibahasa Indonesia jadi Bahasa Query yang terstruktur (moga aja  g salah hehe) digunakan untuk mengakses data dalam database relasional.

Bahasa SQL dibagi menjadi 3 yaitu DDL,DML dan DCL. Apakah itu? mari kita cari tau..

Dimulai dari DDL atau Data Definition Language artinya bahasa yang digunakan untuk mendefinisikan, merubah dan menghapus database atau objek yang laen misal table, index dan view. DDL terdiri dari CREATE (membuat), USE (menggunakan), DROP (Menghapus) dan ALTER (mengubah). Penerapannya seperti berikut:

> CREATE DATABASE nama_db;

> CREATE TABLE nama_tabel

      (nama_kolom1, type_kolom1,

       nama_kolom2, type_kolom2,…);  

> CREATE [UNIQUE] INDEX nama_index ON 

        nama_tabel (nama_kolom);  

> CREATE VIEW view_name [(column1, column2,… )]

      AS SELECT statement FROM table_name

       [WITH CHECK OPTION];

> ALTER TABLE nama_table 

    ADD (nama_kolom_baru type_kolom

    [BEFORE nama_kolom])

    MODIFY (nama_kolom_lama type_kolom)

    DROP (nama_kolom_lama type_kolom); 

> DROP DATABASE | TABLE | INDEX | VIEW  [nama_db | nama_tabel | nama_index | nama_view] ;

DML itu kepanjangan dari Data Manipulation Language, dari kata manipulation sudah dapat ditebak kalo DML digunakan untuk memanipulasi data (Ya iyalah..) lanjut lagi ya…Oke bahasa yang digunakan diantaranya SELECT (menampilkan data), INSERT (memasukkan data), DELETE (menghapus data), UPDATE (mengubah data yang udah ada). Cara Penerapannya :

-     >  SELECT [DISTINCT] nama_kolom

      FROM nama_table

      [WHERE kondisi]

      [GROUP BY nama_kolom]

      [HAVING kondisi_agregat]

      [ORDER BY nama_kolom [ASC|DESC]]

-     > INSERT INTO nama_table VALUES   

 (data1,data2,...);

-     > UPDATE nama_tabel SET nama_kolom=ekspresi

       WHERE kondisi;

-    > DELETE FROM nama_table [WHERE kondisi];

Sekarang kita bahas DCL (Data Control Language) digunakan untuk mengontrol keamanan database. Bahasa yang digunakan diantaranya GRANT dan REVOKE. GRANT digunakan untuk memberikan hak akses sedangkan REVOKE digunakan untuk mencabut hak akses. Sintaxnya adalah

-    > GRANT hak_akses ON nama_db TO nama_pemakai

  [WITH GRANT OPTION] {AS Grantor]; 

-    > REVOKE hak_akses ON nama_db FROM nama_pemakai;

Yang kita bahas disini baru sintaksnya..untuk contoh penggunaannya menyusul ya…

Oya..Tolong Kritik dan sarannya..hehe..maklum anak baru..

Koneksi Database SQL server di Bahasa Pemrograman Delphi

Langkah Koneksi ke Database SQL server :

1. Buat 1 From
2. Masukkan objek ADOConnection    (di tab ADO) kedalam form
3. Double Klik ADOConnection atau pilih Connectionstring pada properties klik tombol [...]
4.  Keluar kotak dialog ConnectionString
5. Pilih “Use Connection String”, klik Build
6. 
7. Pada tab provider pilih “Microsoft OLE DB Provider for SQL Server”, klik next

7. Pastikan kamu berada pada tab connection. Pada point 1 pilih nama server.
8. Di point ke-2 pilih “Use Windows NT Integrated Security”
9. Point ke-3 pilih database pada option “Select the database on the server”

10. Test Connection digunakan untuk mengecek database sudah terkoneksi atau belum. Jika muncul Message “Test Connection Succeeded” Berarti Database sudah terkoneksi dan klik OK sampe kembali ke Form.

Selesai... Gampang kan.. Silakan Dicoba..