Penggunaan SQL AS (Alias)

Pada Tutorial SQL kali ini akan dibahas Penggunaan Dari SQL AS. SQL AS biasanya digunakan untuk Penggantian nama atau Alias. untuk lebih jelasnya silahkan baca Artikel dan Praktik dibawah ini :

Syntaq dasarnya adalah sebagai berikut :

SELECT column_name AS column_alias
FROM table_name

atau

SELECT column_name
FROM table_name  AS table_alias

Untuk mempraktikannya ikuti langkah dibawah ini :

Buatlah sebuah Folder dengan Nama "Latihanku"
Buat database dengan nama : DBPintarvb.mdb
Masukan database DBPintarvb.mdb tersebut pada folder "Latihanku"

Tambahkan Tabel "Barang" dan Design Tabel Barang adalah sebagai berikut :

 Kemudian masukan data pada Tabel Barang seperti contoh dibawah ini :
 

Buka Visual Basic 6.0 anda, kemudian simpan didalam Folder "Latihanku"
Buatlah Form seperti gambar dibawah ini :

Kemudian pada Form1 masukan Koding dibawah ini :

Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Conn = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBPintarvb.mdb"
End Sub
Private Sub Form_Activate()
Call BukaDB
Conn.CursorLocation = adUseClient
RSBarang.Open "SELECT KodeBarang AS [Kode], NamaBarang AS [Nama], HargaBarang AS [Harga], JumlahBarang AS [Jumlah], SatuanBarang AS [Satuan] FROM barang", Conn
Set DataGrid1.DataSource = RSBarang.DataSource
End Sub

Kemudian Run atau Jalankan Program, jika sukses maka akan muncul seperti dibawah ini :

Jika anda tidak menggunakan Alias, maka Header pada Datagrid1 akan muncul sesuai dengan nama Field didalam tabel. dan gambar dibawah ini adalah hasil tanpa menggunakan AS :

KLIK DISINI UNTUK DOWNLOAD APPSQL

Semoga bermanfaat,
Salam,
BelajarVB.com