Yuph kali ini kita akan membahas
fungsi menarik (SELECT SCOPE_IDENTITY(), SELECT LAST_INSERT_ID() dan RETURNING
PK) yang dimiliki oleh database2x terkenal seperti SQL Server, MySQL dan
Firebird.
Dari nama fungsinya kita bisa
menebak kegunaan dari fungsi diatas yaitu untuk mendapatkan nilai ID terakhir
(biasanya bertipe angka) yang diinputkan.
Saya dan mungkin Anda biasanya dalam
merancang tabel untuk selalu menambahkan field ID dengan attribut
IDENTITY/AUTONUMBER dan sekaligus dijadikan sebagai PRIMARY KEY.
Tentunya hal ini kita lakukan untuk
mempermudah dalam proses manipulasi data (edit dan delete).
Contoh beberapa tabel yang biasanya
menggunakan field ID untuk PRIMARY KEY dan sekaligus diset dengan attribut
IDENTITY/AUTONUMBER
Bagi yang males membaca referensi
(termasuk sy 
) biasa menuliskan kode
berikut untuk mengINSERTkan dan mendapatkan nilai ID yang terakhir, kita ambil
contoh tabel provinsi.
) biasa menuliskan kode
berikut untuk mengINSERTkan dan mendapatkan nilai ID yang terakhir, kita ambil
contoh tabel provinsi.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
btnInsert.Click
Dim
lastID As Long =
0
' langkah 1 - menambahkan data
strSql = "INSERT INTO
provinsi (keterangan) VALUES (@1)"
Using cmd As New
SqlClient.SqlCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@1",
"Riau")
.ExecuteNonQuery()
End With
End
Using
' langkah 2 - mengambil id
terakhir dg memanfaatkan fungsi MAX
strSql = "SELECT MAX(id) FROM
provinsi"
Using cmd As New
SqlClient.SqlCommand(strSql, conn)
lastID =
Convert.ToInt32(cmd.ExecuteScalar())
End
Using
' tampilkan ID terakhir
MessageBox.Show("Last ID :
" &
lastID.ToString())
End Sub
|
Sekarang kita lihat bedanya jika
memanfaatkan fungsi SELECT SCOPE_IDENTITY().
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
btnInsert.Click
Dim
lastID As Long =
0
strSql = "INSERT INTO
provinsi (keterangan) VALUES (@1) SELECT SCOPE_IDENTITY()" ' ada tambahan SELECT
SCOPE_IDENTITY()
Using cmd As New
SqlClient.SqlCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@1",
"Riau")
lastID
= Convert.ToInt32(.ExecuteScalar())
End With
End
Using
MessageBox.Show ("Last ID :
" &
lastID.ToString())
End Sub
|
Gimana lebih simple kan ? 
Oke sekarang kita lihat kode untuk
MySQL(SELECT LAST_INSERT_ID) dan Firebird (RETURN KOLOM_PK).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
' MySQL
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
btnInsert.Click
Dim
lastID As Long =
0
strSql = "INSERT INTO
provinsi (keterangan) VALUES (@1); SELECT LAST_INSERT_ID()"
Using cmd As New
MySqlClient.MySqlCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@1",
"Riau")
lastID
= Convert.ToInt32(.ExecuteScalar())
End With
End
Using
MessageBox.Show ("Last ID :
" &
lastID.ToString())
End Sub
' Firebird
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
btnInsert.Click
Dim
lastID As Long =
0
strSql = "INSERT INTO
provinsi (keterangan) VALUES (@1) RETURNING ID" ' ID -> kolom primary key
Using cmd As New
FirebirdClient.FbCommand(strSql, conn)
With cmd
.Parameters.Clear()
.Parameters.AddWithValue("@1",
"Riau")
lastID
= Convert.ToInt32(.ExecuteScalar())
End With
End
Using
MessageBox.Show ("Last ID :
" &
lastID.ToString())
End Sub
|
.jpg)
