LISTING PROGRAM

LISTING PROGRAM

Dim constring As String

Private Sub CMDHAPUS_Click()
Dim dbtbbarang As New ADODB.Connection
Dim rstbbarang As ADODB.Recordset
dbtbbarang.Open constring, "delta", "2104"
dbtbbarang.Execute "Delete from tbbarang where kodebrg ='" & txtkodebrg.Text & "'"
bersih
End Sub

Private Sub CMDSIMPAN_Click()
Dim dbtbbarang As New ADODB.Connection
Dim rstbbarang As ADODB.Recordset
dbtbbarang.Open constring, "delta", "2104"
Set rstbbarang = dbtbbarang.Execute("select * from tbbarang where kodebrg ='" & txtkodebrg.Text & "'")
If rstbbarang.EOF Then
dbtbbarang.Execute ("insert into tbbarang(kodebrg,nama,satuan,harga,stok) values ('" & txtkodebrg.Text & "','" & TXTNAMA.Text & "','" & TXTSATUAN.Text & "','" & TXTHARGA.Text & "','" & TXTSTOK.Text & "')")
Else
If MsgBox("data ini sudah ada dalam database," & " perbaiki?", vbQuestion + vbYesNo, "konfirmasi") Then
dbtbbarang.Execute "update barang set nama ='" & TXTNAMA.Text & ""
End If
End If
End Sub

Private Sub CMDTUTUP_Click()
Unload Me
End Sub

Private Sub Form_Load()
bersih
constring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=delta;Initial Catalog=penjualan;Data Source=COM25"
End Sub
Private Sub bersih()
txtkodebrg.Text = ""
TXTNAMA.Text = ""
TXTSATUAN.Text = ""
TXTHARGA.Text = ""
TXTSTOK.Text = ""
End Sub

Private Sub CMDBERSIH_Click()
bersih
End Sub

Private Sub TXTKODEBRG_Change()
Dim dbtbbarang As New ADODB.Connection
Dim rstbbarang As ADODB.Recordset
dbtbbarang.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=delta;Initial Catalog=penjualan;Data Source=COM25", "delta", "2104"
Set rstbbarang = dbtbbarang.Execute("select *from tbbarang where kodebrg = '" & txtkodebrg.Text & "'")
If Not rstbbarang.EOF Then
txtkodebrg.Text = rstbbarang!kodebrg
TXTNAMA.Text = rstbbarang!nama
TXTSATUAN.Text = rstbbarang!satuan
TXTHARGA.Text = rstbbarang!harga
TXTSTOK.Text = rstbbarang!stok
End If
If txtkodebrg.Text = "" Then
bersih
End If
End Sub

perintah select

Perintah SELECT digunakan untuk menampilkan data dalam tabel. Secara
umun sintaknya adalah sebagai berikut:
SELECT Daftar_Kolom FROM Nama_Tabel WHERE Kondisi ORDER
BY Kolom
Contoh :
a. Menampilkan Data Mahasiswa
SELECT * FROM Mahasiswa
Ket : Tanda asterisk ( * ) menandakan bahwa semua kolom akan
ditampilkan
b. Menampilkan Nim dan Nama Mahasiswa
SELECT NIM, Nama FROM Mahasiswa

A. SELECT Dengan Klausa WHERE

WHERE digunakan untuk membatasi hasil SELECT yang ditampilkan
sesuai kondisi yang ditentukan. Secara umum sintaknya adalah sebagai berikut:
SELECT Daftar_Kolom FROM Nama_Tabel WHERE Kondisi

a. Operator relasional
OPERATOR ARTINYA
= Sama dengan
> Lebih dari
< Kurang dari
<= Lebih dari atau sama dengan
>= Kurang dari atau sama dengan
<> Tidak sama dengan

Contoh :
SELECT * FROM Mahasiswa WHERE NIM =’06.11.0123’

b. Operator logika
· OR
Akan menampilkan data jika salah satu atau lebih syarat
terpenuhi.
Contoh :
SELECT * FROM Mahasiswa WHERE NIM = ’06.11.0123’ OR
Agama = ‘Islam’
· AND
Akan menampilkan data jika semua syarat terpenuhi.
Contoh :
SELECT * FROM Mahasiswa WHERE NIM = ’06.11.0123’ AND
Agama = ‘Islam’
· NOT
Akan menampilkan data yang sebaliknya (negasinya)
Contoh :
SELECT * FROM Mahasiswa WHERE NOT NIM = ’06.11.0123’
B. DISTINCT
DISTINCT digunakan untuk menampilkan data secara unik artinya data
yang sama hanya akan ditampilkan satu kali saja.

Sintak : SELECT DISTINCT [Kolom] FROM Table
Contoh :
SELECT DISTINCT NIM FROM KRS

C. BETWEEN Dan NOT BETWEEN
BETWEEN digunakan untuk menampilkan data dalam nilai range tertentu
(diantaranya). BETWEEN hanya perlaku pada bilangan dan tanggal.

Sintak : SELECT [Daftar_Kolom] FROM Table WHERE Kondisi BETWEEN
Batas_Bawah AND Batas_Bawah

Contoh :
SELECT * FROM Penagajar WHERE Id_Mengajar BETWEEN 2
AND 5

D. TOP
TOP digunakan untuk menampilkan beberapa data paling atas dari hasil
perintah SELECT.

Sintak : SELECT TOP n [Daftar_Kolom] FROM Table

Contoh :
SELECT TOP 3 * FROM Mahasiswa

E. IS NULL Dan IS NOT NULL
IS NULL digunakan untuk menampilkan data – data null (Tidak Memiliki
Data). Null berbeda dengan 0 atau spasi.

Contoh : SELECT * FROM Mahasiswa WHERE Alamat IS NULL

F. ORDER BY
ORDER BY digunakan untuk mengurutkan data dari hasil perintah
SELECT. Pengurutan dapat dilakukan secara Ascending (ASC) atau Descending
(DESC). Default-nya adalah secara ascending.

Contoh : SELECT * FROM Mahasiswa ORDER BY NIM ASC

G. KOLOM ALIAS
Nama kolom hasil dari perintah SELECT dapat diganti namanya.

Sintak : SELECT kolom1 AS Alias1, Kolom2 AS Alias2,…dst FROM Table

Contoh :
SELECT NIM AS Nim_MHS, Nama AS Nama_MHS, Gender AS
[Jenis Kelamin] FROM Mahasiswa
DI AMBIL DARI :

SISTEM BASIS DATA
S1 TEKNIK INFORMATIKA
STMIK “AMIKOM” YOGYAKARTA
2007

dcl (data control languages)

DATA CONTROL LANGUAGE (DCL)

Setelah mengenal perintah dalam DDL dan DML selanjutnya masih ada dua perintah lagi yang akan kita kenal, yaitu grant dan revoke. Kedua perintah ini tergolong dalam Data Controlling Language (DCL) yaitu perintah yang akan membantu mengontrol keamanan setiap database atau sebagian isi dari database dengan membuat hak - hak akses tertentu bagi setiap user.

1. Grant : Grant digunakan untuk memberikan hak - hak tertentu kepada seorang user. Grant diberikan oleh user yang mempunyai hak untuk memberkan grant atau administrator (root).
2. Revoke : Kebalikan dari grant. Revoke digunakan untuk mencabut hak - hak dari seorang user terhadap database tertentu atau sebagian isi dari database.

Diambil dari : widya.dagdigdug.com

DCL (Data Control Language)

n Berisi perintah untuk mengendalikan pengkasesan data.

n Pengendalian dapat dilakukan per pengguna, per tabel, per kolom maupun per opersi yang boleh dilakukan.

Sintak Pernyataan

n CREATE: membuat tabel, indeks, atau view (sebaiknya non spasi dan tanda baca

n ALTER: mengubah struktur tabel

n DROP: menghapus tabel, indeks, atau view

n INSERT: menambah baris pada tabel

n SELECT: memilih baris dan kolom pada tabel

n DELETE: menghapus baris pada tabel

Diambil dari : yuli prihartini

DATA CONTROL LANGUAGE

1. GRANT

Fungsi : digunakan untuk memberikan izin akses kepada user

Sintaks : GRANT privileges ON tbname TO user

SQL 14 Pengantar Basis Data

Contoh :

GRANT SELECT ON CLUB TO PUBLIC

GRANT SELECT, INSERT, UPDATE, DELETE ON CLUB TO USER01

2. REVOKE

Fungsi : digunakan untuk mencabut izin akses kepada user

Sintaks : REVOKE privileges ON tbname FROM user

Contoh :

REVOKE INSERT, UPDATE, DELETE ON CLUB FROM USER01

REVOKE ALL ON CLUB FROM PUBLIC

Diambil dari : gunandarma ac.id

dml (data manipulation language)

1. Apa yang dimaksud dengan DML?

Merupakan perintah-perintah yang berfungsi untuk melakukan manipulasi data ataupun objek-objek yang ada didalam table.

2. Jelaskan syntaks DML dan berikan contoh!

1. Insert
è Berfungsi Untuk memasukkan sejumlah data kedalam table yang telah dibuat.
Syntax:
insert into table_name (column1, column2, …, column_n)
values (value1, value2, …, value_n);
Contoh:
insert into mahasiswa (nrp,nama)
values (‘5106100032′, ‘Fajri Aryuanda’);
2. Delete
è Berfungsi untuk menghapus sejumlah data yang ada didalam table yang telah dibuat.
Syntax:
delete table_name where column_name=column_content;
Contoh:
delete mahasiswa where nrp=’5106100032′;
3. Update
è Berfungsi untuk melakukan perubahan terhadap sejumlah data yang ada didalam table yang telah dibuat.Syntax:
update table_name
set column1_name=column1_content
where column2_name=column2_content;
Contoh:
update mahasiswa
set nama=’Fajri Aryuanda’, alamat=’U-144′
where nrp=’5106100032′;
4. Select
è Berfungsi untuk melakukan pengambilan sejumlah data yang ada di dalam table untuk ditampilkan ataupun dimanipulasi
Syntax:
Select column from table_name
Contoh:
Select * from mahasiswa;

3. Jelaskan kegunaan perintah - perintah berikut:

• COMMIT
Merupakan syntax untuk melakukan record perubahan data yang kita lakukan selama session manipulasi table (selama login hingga logoff).
• ROLLBACK
Merupakan syntax untuk melakukan pembatalan terhadap semua perubahan yang telah kita lakukan selama session manipulasi data table (selama login hingga logoff).

Diambil dari : Aryuanda site

ddl

Apakah yang dimaksud dengan DDL? Jelaskan beserta sintaksnya!

Data Definition Language (DDL) adalah bahasa dalam DBMS yang digunakan untuk membuat atau mendefinisikan obyek-obyek di dalam database. Secara umum digunakan untuk membuat obyek table dan view.

Secara khusus, di dalam DBMS tertentu digunakan untuk :

• Membuat trigger
• Membuat stored procedure
• Membuat database, index, rule, schema dll (tergantung DBMS)

Contoh sintaks DDL :

DDL untuk tabel

* Untuk membuat tabel

CREATE TABLE (
|
)

* Untuk menghapus tabel

DROP TABLE

* Untuk memodifikasi tabel

- Menambahkan kolom baru

ALTER TABLE
ADD

- Menghapus kolom

ALTER TABLE
DROP

DDL untuk view

* Untuk membuat view

CREATE VIEW AS

* Untuk menghapus view

DROP VIEW

DDL untuk trigger

* Untuk membuat trigger

CREATE TRIGGER ON TABLE ON [DELETE] [,] [INSERT] [,] [UPDATE] AS

Sintaks DDLnya :

CREATE TABLE Mahasiswa (
NRP char(8),
Nama varchar(20) NOT NULL,
Alamat varchar(30),
JenisKel char(1) DEFAULT “L”,
NIPDosen char(9),
PRIMARY KEY (NRP),
CONSTRAINT fk_mhs_dosen FOREIGN KEY (NIPDosen) REFERENCES Dosen(NIP) ON DELETE RESTRICT ON UPDATE CASCADE ON INSERT RESTRICT
);

View

View adalah tabel bayangan. Tidak menyimpan data secara fisik. Biasanya berupa hasil query dari tabel-tabel dalam sebuah database.

Contoh : view MahasiswaPria yang diambil dari tabel Mahasiswa di mana field JenisKel = “L”.

Sintaks DDLnya :

CREATE VIEW MahasiswaPria AS
SELECT * FROM Mahasiswa WHERE JenisKel = “L”

Trigger

Trigger adalah sebuah obyek dalam database yang berupa prosedur yang merespon setiap kali terdapat proses modifikasi (insert, update, dan delete) pada tabel.

Contoh : trigger tLogUbahNilai melakukan penambahan data pada tabel LogHistoris untuk setiap penambahan / update data pada tabel PesertaKul.

Sintaks DDLnya :

CREATE TRIGGER tLogUbahNilai ON TABLE PesertaKul
FOR UPDATE, INSERT AS
INSERT INTO LogHistoris (Tanggal, Proses) VALUES (getdate(), ‘Terjadi proses perubahan data nilai’)

Dengan menggunakan sintaks SQL, buatlah DDL untuk rancangan berikut ini :

Keterangan :

• Emp_name dan dep_name tidak boleh dikosongi
• Isi default emp_name = pegawai baru
• Isi default emp_address = surabaya

create table DEP (
DEP_ID CHAR(6) not null,
DEP_NAME VARCHAR2(20),
constraint PK_DEP primary key (DEP_ID)
);

create table EMP (
EMP_ID CHAR(8) not null,
DEP_ID CHAR(6),
EMP_NAME VARCHAR2(25) default ‘pegawai_baru’,
EMP_ADDRESS VARCHAR2(35) default ’surabaya’,
constraint PK_EMP primary key (EMP_ID),
constraint FK_EMP_WORK_AT_DEP foreign key (DEP_ID) references DEP (DEP_ID)
);

diambil dari : dyah chantikgue’s weblog