'''''''''''''' My blogger Tanjung ''''''''''''

Senin, 02 April 2012

 
 


"FRMMENU"

RUMUS:

Private Sub Form_Load()
MDATA.Visible = False
MLAPORAN.Visible = False
MTRANSAKSI.Visible = False
End Sub
Private Sub MDOSEN_Click()
FrmDosen.Show
End Sub
Private Sub MLAT1_Click()
frmlat1.Show
End Sub
Private Sub MLAT2_Click()
Frmlat2.Show
End Sub
Private Sub MLAT3_Click()
frmlat3.Show
End Sub
Private Sub MLAT4_Click()
Frmlat4.Show
End Sub
Private Sub MLAT5_Click()
FrmLat5.Show
End Sub
Private Sub MLAT6_Click()
FRMLAT6.Show
End Sub
Private Sub MLAT7_Click()
Frmlat7.Show
End Sub
Private Sub MLOGIN_Click()
Frmlogin.Show
End Sub
Private Sub MLOGOUT_Click()
MDATA.Visible = False
MTRANSAKSI.Visible = False
MLAPORAN.Visible = False
Load Me
FRMMENU.MLOGIN.Visible = True
FRMMENU.MLOGOUT.Visible = False 
End Sub
Private Sub MMAHASISWA_Click()
FrmMahasiswa.Show
End Sub
Private Sub MMATAKULIAH_Click()
FrmMatakuliyah.Show
End Sub
Private Sub Timer1_Timer()
Text3 = Format(Now, "DD/MM/YY")
Text4 = Format(Now, "HH:MM:SS")
End Sub

"FRMLOGIN"


RUMUS:

Private Sub Command1_Click()
If Text1 = "" Then
MsgBox ("user name tidak boleh kosong")
Text1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox ("password tidak boleh di kosongkan")
Text2.SetFocus
Exit Sub
End If
rslogin.CommandType = adCmdText
rslogin.RecordSource = "select * from bagian where username='" & Text1 & " ' and Password =  '" & Text2 & "'"
rslogin.Refresh
If rslogin.Recordset.EOF Then
MsgBox ("username atau password ada kesalahan")
Text1 = Clear
Text2 = Clear
Text1.SetFocus
Else
MsgBox ("vertifikasi password benar")
Unload Me
FRMMENU.MDATA.Visible = True
FRMMENU.MTRANSAKSI.Visible = True
FRMMENU.MLAPORAN.Visible = True
End If
FRMMENU.Text5 = rslogin.Recordset.Fields(1)
FRMMENU.Text6 = rslogin.Recordset.Fields(2)
End Sub
Private Sub Command2_Click()
Frmlogin.Hide
End Sub
Private Sub Form_Load()
Text1 = Clear
Text2 = Clear
rslogin.Refresh
End Sub

"FRMMATAKULIAH"

RUMUS:

Private Sub CETAK_Click()
tri.ReportFileName = App.Path + "/lapmatakuliyah.RPT"
tri.RetrieveDataFiles
tri.WindowState = crptMaximized
tri.Action = 1
End Sub
Private Sub CMDBARU_Click()
BERSIH
Text1 = Clear
Text1.SetFocus
End Sub
Private Sub CMDBATAL_Click()
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub CMDEDIT_Click()
RSMatakuliyah.Recordset.Fields(1) = Combo1
RSMatakuliyah.Recordset.Fields(2) = Combo2
RSMatakuliyah.Recordset.Update
MsgBox ("Data telah di perbaiki")
RSMatakuliyah.Refresh
TAMPILDATA
End Sub
Private Sub CMDHAPUS_Click()
A = MsgBox("YAKINKAH INGIN DI HAPUS?", vbYesNo, "")
If A = vbYes Then
    RSMAHASISWA.Recordset.Delete
    RSMAHASISWA.Refresh
Else
Cancel = True
End If
Text1 = Clear
Combo1.SetFocus
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub CMDSIMPAN_Click()
If Text1 = "" Then
MsgBox (" NID SKUL harap di isi")
Exit Sub
End If
If Combo1 = "" Then
MsgBox (" MATAKULIYAH harap di isi")
Exit Sub
End If
If Combo2 = "" Then
MsgBox ("JENIS harap di isi")
Exit Sub
End If
RSMatakuliyah.Recordset.AddNew
RSMatakuliyah.Recordset.Fields(0) = Text1
RSMatakuliyah.Recordset.Fields(1) = Combo1
RSMatakuliyah.Recordset.Fields(2) = Combo2
RSMatakuliyah.Recordset.Update
MsgBox ("DATA BERHASIL DI SIMPAN")
RSMatakuliyah.Refresh
BERSIH
TAMPILDATA
End Sub
Private Sub Form_Load()
RSMatakuliyah.Refresh
Text1.MaxLength = 3
BERSIH
End Sub
Private Sub TAMPILDATA()
RSMatakuliyah.CommandType = adCmdText
RSMatakuliyah.RecordSource = "Select * from MATAKULIYAH"
RSMatakuliyah.Refresh
DataGrid1.Refresh
End Sub
Private Sub BERSIH()
Text1 = Clear
Combo2 = Clear
Combo1 = Clear
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Text1_Change()
Dim panjang As Byte
panjang = Len(Text1)
If panjang < 3 Then
    Exit Sub
End If
RSMatakuliyah.CommandType = adCmdText
RSMatakuliyah.RecordSource = "select*from matakuliyah Where IDSKUL ='" & Text1 & "'"
RSMatakuliyah.Refresh
If Not RSMatakuliyah.Recordset.EOF Then
MsgBox ("ID SKUL SUDAH ADA")
Combo1 = RSMatakuliyah.Recordset.Fields(1)
Combo2 = RSMatakuliyah.Recordset.Fields(2)
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = True
CMDEDIT.Enabled = True
Else
BERSIH
Combo1.SetFocus
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
End If
End Sub

"FRMMAHASISWA"








RUMUS:

Private Sub CETAK_Click()
x
End Sub
Private Sub CMDBARU_Click()
BERSIH
Text1 = Clear
Text1.SetFocus
End Sub
Private Sub CMDBATAL_Click()
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub TAMPILDATA()
RSMAHASISWA.CommandType = adCmdText
RSMAHASISWA.RecordSource = "Select * from MAHASISWA"
RSMAHASISWA.Refresh
DataGrid1.Refresh
End Sub
Private Sub CMDCETAK_Click()
tri.ReportFileName = App.Path + "/lapmahasiswa.RPT"
tri.RetrieveDataFiles
tri.WindowState = crptMaximized
tri.Action = 1
End Sub
Private Sub CMDEDIT_Click()
RSMAHASISWA.Recordset.Fields(1) = Text2
RSMAHASISWA.Recordset.Fields(2) = Text3
RSMAHASISWA.Recordset.Fields(3) = Text4
RSMAHASISWA.Recordset.Fields(4) = DTPicker1.Value
RSMAHASISWA.Recordset.Fields(5) = Text6
RSMAHASISWA.Recordset.Fields(6) = Text7
RSMAHASISWA.Recordset.Fields(7) = Text8
RSMAHASISWA.Recordset.Fields(8) = Text9
RSMAHASISWA.Recordset.Update
MsgBox ("Data Telah DiPerbaiki")
RSMAHASISWA.Refresh
TAMPILDATA
End Sub
Private Sub CMDHAPUS_Click()
A = MsgBox("YAKINKAH INGIN DI HAPUS?", vbYesNo, "")
If A = vbYes Then
    RSMAHASISWA.Recordset.Delete
    RSMAHASISWA.Refresh
Else
Cancel = True
End If
Text1 = Clear
Text2.SetFocus
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub CMDSIMPAN_Click()
If Text1 = "" Then
    MsgBox ("NS Harap Di isi")
    Exit Sub
End If
If Text2 = "" Then
    MsgBox ("Nama Harap Di isi")
    Exit Sub
End If
RSMAHASISWA.Recordset.AddNew
RSMAHASISWA.Recordset.Fields(0) = Text1
RSMAHASISWA.Recordset.Fields(1) = Text2
RSMAHASISWA.Recordset.Fields(2) = Text3
RSMAHASISWA.Recordset.Fields(3) = Text4
RSMAHASISWA.Recordset.Fields(4) = DTPicker1.Value
RSMAHASISWA.Recordset.Fields(5) = Text6
RSMAHASISWA.Recordset.Fields(6) = Text7
RSMAHASISWA.Recordset.Fields(7) = Text8
RSMAHASISWA.Recordset.Fields(8) = Text9
RSMAHASISWA.Recordset.Update
MsgBox ("Data Telah Disimpan")
RSMAHASISWA.Refresh
TAMPILDATA
End Sub
Private Sub Form_Load()
BERSIH
RSMAHASISWA.Refresh
Text1.MaxLength = 8
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
Text1 = Clear
End Sub
Private Sub BERSIH()
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Text9 = Clear
End Sub
Private Sub Text1_Change()
Dim panjang As Byte
panjang = Len(Text1)
If panjang < 7 Then
    Exit Sub
End If
RSMAHASISWA.CommandType = adCmdText
RSMAHASISWA.RecordSource = "select*from mahasiswa Where NIS ='" & Text1 & "'"
RSMAHASISWA.Refresh
If Not RSMAHASISWA.Recordset.EOF Then
MsgBox ("NIS SUDAH ADA")
Text2 = RSMAHASISWA.Recordset.Fields(1)
Text3 = RSMAHASISWA.Recordset.Fields(2)
Text4 = RSMAHASISWA.Recordset.Fields(3)
DTPicker1.Value = RSMAHASISWA.Recordset.Fields(4)
Text6 = RSMAHASISWA.Recordset.Fields(5)
Text7 = RSMAHASISWA.Recordset.Fields(6)
Text8 = RSMAHASISWA.Recordset.Fields(7)
Text9 = RSMAHASISWA.Recordset.Fields(8)
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = True
CMDEDIT.Enabled = True
Else
BERSIH
Text2.SetFocus
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

"FRMDOSEN"

RUMUS:
Private Sub CETAK_Click()
tri.ReportFileName = App.Path + "/lapdosen.RPT"
tri.RetrieveDataFiles
tri.WindowState = crptMaximized
tri.Action = 1
End Sub
Private Sub CMDBARU_Click()
BERSIH
Text1 = Clear
Text1.SetFocus
End Sub
Private Sub CMDBATAL_Click()
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub CMDEDIT_Click()
RSDOSEN.Recordset.Fields(1) = Text2
RSDOSEN.Recordset.Fields(2) = Text3
RSDOSEN.Recordset.Fields(3) = Text4
RSDOSEN.Recordset.Update
MsgBox ("Data Telah DIPerbaiki")
RSDOSEN.Refresh
TAMPILDATA
End Sub
Private Sub CMDHAPUS_Click()
A = MsgBox("YAKINKAH INGIN DI HAPUS?", vbYesNo, "")
If A = vbYes Then
    RSDOSEN.Recordset.Delete
    RSDOSEN.Refresh
Else
Cancel = True
End If
Text1 = Clear
Text2.SetFocus
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
CMDSIMPAN.Enabled = False
BERSIH
TAMPILDATA
End Sub
Private Sub CMDSIMPAN_Click()
If Text1 = "" Then
    MsgBox ("ND Harap Di isi")
    Exit Sub
End If
If Text2 = "" Then
    MsgBox ("Nama Harap Di isi")
    Exit Sub
End If
RSDOSEN.Recordset.AddNew
RSDOSEN.Recordset.Fields(0) = Text1
RSDOSEN.Recordset.Fields(1) = Text2
RSDOSEN.Recordset.Fields(2) = Text3
RSDOSEN.Recordset.Fields(3) = Text4
RSDOSEN.Recordset.Update
MsgBox ("Data Telah Disimpan")
RSDOSEN.Refresh
TAMPILDATA
End Sub
Private Sub Form_Load()
BERSIH
RSDOSEN.Refresh
Text1.MaxLength = 7
End Sub
Private Sub TAMPILDATA()
RSDOSEN.CommandType = adCmdText
RSDOSEN.RecordSource = "Select * from DOSEN"
RSDOSEN.Refresh
DataGrid1.Refresh
End Sub
Private Sub BERSIH()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
End Sub
Private Sub Text1_Change()
Dim panjang As Byte
panjang = Len(Text1)
If panjang < 7 Then
    Exit Sub
End If
RSDOSEN.CommandType = adCmdText
RSDOSEN.RecordSource = "select*from dosen Where NID ='" & Text1 & "'"
RSDOSEN.Refresh
If Not RSDOSEN.Recordset.EOF Then
MsgBox ("NID SUDAH ADA")
Text2 = RSDOSEN.Recordset.Fields(1)
Text3 = RSDOSEN.Recordset.Fields(2)
Text4 = RSDOSEN.Recordset.Fields(3)
CMDSIMPAN.Enabled = False
CMDHAPUS.Enabled = True
CMDEDIT.Enabled = True
Else
BERSIH
Text2.SetFocus
CMDSIMPAN.Enabled = True
CMDHAPUS.Enabled = False
CMDEDIT.Enabled = False
End If
End Sub

"FRMLAT1 (RSMATAKULIAH)"

RUMUS:


Private Sub Form_Load()
frmlat1.Show

End Sub

"FRMLAT2(MAHASISWA)"





RUMUS:



Private Sub Command1_Click()
RSMAHASISWA.Recordset.MoveFirst
TAMPIL
End Sub
Private Sub Command2_Click()
RSMAHASISWA.Recordset.MovePrevious
If RSMAHASISWA.Recordset.BOF Then
    MsgBox ("ini data awal")
    RSMAHASISWA.Recordset.MoveFirst
End If
TAMPIL
End Sub

Private Sub Command3_Click()
RSMAHASISWA.Recordset.MoveNext
If RSMAHASISWA.Recordset.EOF Then
MsgBox ("ini data terakhir")
    RSMAHASISWA.Recordset.MoveLast
End If
TAMPIL
End Sub

Private Sub Command4_Click()
RSMAHASISWA.Recordset.MoveLast
TAMPIL
End Sub

Private Sub Command5_Click()
RSMAHASISWA.Refresh
TAMPIL
End Sub

Private Sub Form_Load()
RSMAHASISWA.Refresh
TAMPIL
End Sub

Private Sub TAMPIL()
Text1 = RSMAHASISWA.Recordset.Fields(0)
Text2 = RSMAHASISWA.Recordset.Fields(1)
Text3 = RSMAHASISWA.Recordset.Fields(2)
Text4 = RSMAHASISWA.Recordset.Fields(3)
Text5 = RSMAHASISWA.Recordset.Fields(4)
Text6 = RSMAHASISWA.Recordset.Fields(5)
Text7 = RSMAHASISWA.Recordset.Fields(6)
Text8 = RSMAHASISWA.Recordset.Fields(7)
Text9 = RSMAHASISWA.Recordset.Fields(8)
End Sub

"FRMLATLAT3(MAHASISWA)"






"FRMLAT4(DOSEN)"




RUMUS:

Private Sub Command1_Click()RSDOSEN.Recordset.MoveFirstTAMPILEnd SubPrivate Sub Command2_Click()RSDOSEN.Recordset.MovePreviousIf RSDOSEN.Recordset.BOF Then    MsgBox ("ini data awal")    RSDOSEN.Recordset.MoveFirstEnd IfTAMPILEnd SubPrivate Sub Command3_Click()RSDOSEN.Recordset.MoveNextIf RSDOSEN.Recordset.EOF ThenMsgBox ("ini data terakhir")    RSDOSEN.Recordset.MoveLastEnd IfTAMPILEnd SubPrivate Sub Command4_Click()RSDOSEN.Recordset.MoveLastTAMPILEnd SubPrivate Sub Command5_Click()RSDOSEN.RefreshTAMPILEnd SubPrivate Sub Form_Load()RSDOSEN.RefreshTAMPILEnd SubPrivate Sub TAMPIL()Text1 = RSDOSEN.Recordset.Fields(0)Text2 = RSDOSEN.Recordset.Fields(1)taxt3 = RSDOSEN.Recordset.Fields(2)Text4 = RSDOSEN.Recordset.Fields(3)End Sub

"FRMLAT5(MAHASISWA)"








RUMUS:

Private Sub Command1_Click()
On Error Resume Next
RSMAHASISWA.CommandType = adCmdText
RSMAHASISWA.RecordSource = Text1
RSMAHASISWA.Refresh
Text2 = RSMAHASISWA.Recordset.RecordCount
End Sub

"FRMLAT6(MATAKULIAH)"






RUMUS:

Private Sub Command1_Click()
On Error Resume Next
RSMAHASISWA.CommandType = adCmdText
RSMAHASISWA.RecordSource = Text1
RSMAHASISWA.Refresh
Text2 = RSMAHASISWA.Recordset.RecordCount
End Sub

"FRMLAT7(MATAKULIAH)"





RUMUS:

Private Sub Command1_Click()
On Error Resume Next
RSMatakuliyah.CommandType = adCmdText
RSMatakuliyah.RecordSource = Text1
RSMatakuliyah.Refresh
Text2 = RSMatakuliyah.Recordset.RecordCount
End Sub

"FRMLAT8(MATAKULIAH)"

RUMUS:

Private Sub Command1_Click()On Error Resume NextRSMATAKULIAH.CommandType = adCmdTextRSMATAKULIAH.RecordSource = Text1RSMATAKULIAH.RefreshText2 = RSMATAKULIAH.Recordset.RecordCountEnd Sub

"FRMLAT9(DOSEN)"

RUMUS:

0 komentar

Kamis, 26 Januari 2012

PERINTAH DASAR SQL SERVER

Diposkan oleh Tya ""Computer Information Management"" di 21:41

Pemakaian dasar
Secara umum, SQL terdiri dari dua bahasa, yaitu Data Definition Language (DDL) dan Data Manipulation Language (DML). Implementasi DDL dan DML berbeda untuk tiap sistem manajemen basis data (SMBD)[1], namun secara umum implementasi tiap bahasa ini memiliki bentuk standar yang ditetapkan ANSI. Artikel ini akan menggunakan bentuk paling umum yang dapat digunakan pada kebanyakan SMBD.
Data Definition Language
DDL digunakan untuk mendefinisikan, mengubah, serta menghapus basis data dan objek-objek yang diperlukan dalam basis data, misalnya tabel, view, user, dan sebagainya. Secara umum, DDL yang digunakan adalah CREATE untuk membuat objek baru, USE untuk menggunakan objek, ALTER untuk mengubah objek yang sudah ada, dan DROP untuk menghapus objek. DDL biasanya digunakan olehadministrator basis data dalam pembuatan sebuah aplikasi basis data.
CREATE
CREATE digunakan untuk membuat basis data maupun objek-objek basis data. SQL yang umum digunakan adalah:
CREATE DATABASE nama_basis_data
CREATE DATABASE membuat sebuah basis data baru.
CREATE TABLE nama_tabel
CREATE TABLE membuat tabel baru pada basis data yang sedang aktif. Secara umum, perintah ini memiliki bentuk
CREATE TABLE [nama_tabel]
(
nama_field1 tipe_data [constraints][,
nama_field2 tipe_data,
...]
)
atau
CREATE TABLE [nama_tabel]
(
nama_field1 tipe_data [,
nama_field2 tipe_data,
...]
[CONSTRAINT nama_field constraints]
)
dengan:
nama_field adalah nama kolom (field) yang akan dibuat. Beberapa sistem manajemen basis data mengizinkan penggunaan spasi dan karakter nonhuruf pada nama kolom.
tipe_data tergantung implementasi sistem manajemen basis data. Misalnya, pada MySQL, tipe data dapat berupa VARCHAR, TEXT, BLOB, ENUM, dan sebagainya.
constraints adalah batasan-batasan yang diberikan untuk tiap kolom. Ini juga tergantung implementasi sistem manajemen basis data, misalnya NOT NULL, UNIQUE, dan sebagainya. Ini dapat digunakan untuk mendefinisikan kunci primer (primary key) dan kunci asing (foreign key).
Satu tabel boleh tidak memiliki kunci primer sama sekali, namun sangat disarankan mendefinisikan paling tidak satu kolom sebagai kunci primer.
Contoh:
CREATE TABLE user
(
username VARCHAR(30) CONSTRAINT PRIMARY KEY,
passwd VARCHAR(20) NOT NULL,
tanggal_lahir DATETIME
);
akan membuat tabel user seperti berikut:
username
passwd
tanggal_lahir
[sunting]Data Manipulation Language
DML digunakan untuk memanipulasi data yang ada dalam suatu tabel. Perintah yang umum dilakukan adalah:
§  SELECT untuk menampilkan data
§  INSERT untuk menambahkan data baru
§  UPDATE untuk mengubah data yang sudah ada
§  DELETE untuk menghapus data
[sunting]SELECT
SELECT adalah perintah yang paling sering digunakan pada SQL, sehingga kadang-kadang istilahquery dirujukkan pada perintah SELECT. SELECT digunakan untuk menampilkan data dari satu atau lebih tabel, biasanya dalam sebuah basis data yang sama. Secara umum, perintah SELECT memiliki bentuk lengkap: ( QUERY BUDIN ) Cilegon.
SELECT [nama_tabel|alias.]nama_field1 [AS alias1] [, nama_field2, ...]
FROM nama_tabel1 [AS alias1] [INNER|LEFT|RIGHT JOIN tabel2 ON kondisi_penghubung]
[, nama_tabel3 [AS alias3], ...]
[WHERE kondisi]
[ORDER BY nama_field1 [ASC|DESC][, nama_field2 [ASC|DESC], ...]]
[GROUP BY nama_field1[, nama_field2, ...]]
[HAVING kondisi_aggregat]
dengan:
§  kondisi adalah syarat yang harus dipenuhi suatu data agar ditampilkan.
§  kondisi_aggregat adalah syarat khusus untuk fungsi aggregat.
Kondisi dapat dihubungkan dengan operator logika, misalnya AND, OR, dan sebagainya.
Contoh:
Diasumsikan terdapat tabel user yang berisi data sebagai berikut.
username
passwd
tanggal_lahir
jml_transaksi
total_transaksi
Aris
6487AD5EF
09-09-1987
6
10.000
Budi
97AD4erD
01-01-1994
0
0
Charlie
548794654
06-12-1965
24
312.150
Daniel
FLKH947HF
24-04-1980
3
0
Erik
94RER54
17-08-1945
34
50.000
Contoh 1: Tampilkan seluruh data.
SELECT *
FROM user
Contoh 2: Tampilkan pengguna yang tidak pernah bertransaksi.
SELECT *
FROM user
WHERE total_transaksi = 0
Contoh 3: Tampilkan username pengguna yang bertransaksi kurang dari 10 dan nilainya lebih dari 1.000.
SELECT username
FROM user
WHERE jml_transakai < 10 AND total_transaksi > 1000
Contoh 4: Tampilkan total nominal transaksi yang sudah terjadi.
SELECT SUM(total_transaksi) AS total_nominal_transaksi
FROM user
Contoh 5: Tampilkan seluruh data diurutkan berdasarkan jumlah transaksi terbesar ke terkecil.
SELECT *
FROM user
ORDER BY jml_transaksi DESC
[sunting]Fungsi aggregat
Beberapa SMBD memiliki fungsi aggregat, yaitu fungsi-fungsi khusus yang melibatkan sekelompok data (aggregat). Secara umum fungsi aggregat adalah:
§  SUM untuk menghitung total nominal data
§  COUNT untuk menghitung jumlah kemunculan data
§  AVG untuk menghitung rata-rata sekelompok data
§  MAX dan MIN untuk mendapatkan nilai maksimum/minimum dari sekelompok data.
Fungsi aggregat digunakan pada bagian SELECT. Syarat untuk fungsi aggregat diletakkan pada bagian HAVING, bukan WHERE.
[sunting]Subquery
Ada kalanya query dapat menjadi kompleks, terutama jika melibatkan lebih dari satu tabel dan/atau fungsi aggregat. Beberapa SMBD mengizinkan penggunaan subquery. Contoh:
Tampilkan username pengguna yang memiliki jumlah transaksi terbesar.
SELECT username
FROM user
WHERE jml_transaksi =
(
SELECT MAX(jml_transaksi)
FROM user
)
[sunting]INSERT
Untuk menyimpan data dalam tabel dipergunakan sintaks:
INSERT INTO [NAMA_TABLE] ([DAFTAR_FIELD]) VALUES ([DAFTAR_NILAI])
Contoh:
INSERT INTO TEST (NAMA, ALAMAT, PASSWORD) VALUES ('test', 'alamat', 'pass');
[sunting]UPDATE
Untuk mengubah data menggunakan sintaks:
UPDATE [NAMA_TABLE] SET [NAMA_KOLOM]=[NILAI] WHERE [KONDISI]
Contoh:
UPDATE Msuser set password="123456" where username="abc"
[sunting]DELETE
Untuk menghapus data dipergunakan sintaks:
DELETE FROM [nhew andiz] [KONDISI]
Contoh:
DELETE FROM TEST WHERE NAMA='test';
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)