Sudah lama saya tidak mengupdate blok ini, kasian saya kucilkan.. hahhaaha
ok sekarang saya mau share tentang cara membuat nomor otomatis di vb.net 2010 dengan database access, sebelumnya saya juga sudah pernah membuat nomor otomatis namun di vb6 (Linknya
disini)
Pertama kalian buat database dahulu :
- Nama database (dbNo_Otomatis)
- Nama Tabel (tbnomor)
- Fieldny (nomor varchar 15),(nama varchar 45) ) atau bisa download disini
Kemudian lanjutkan dengan membuat tampilan di VB.net nya, seperti ini:
Kemudian tambahkan modul untuk melakukan koneksi dengan database acces yang sudah kita buat tadi,
Tambahkan perinta berikut di module tersebut :
Imports System.Data.OleDb
Module Module1
Public CONN As OleDbConnection
Public CMD As OleDbCommand
Public DS As New DataSet
Public DA As OleDbDataAdapter
Public RD As OleDbDataReader
Public LokasiData As String
Public strSql As String
Sub Koneksi()
LokasiData = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbNo_Otomatis.mdb"
CONN = New OleDbConnection(LokasiData)
If CONN.State = ConnectionState.Closed Then
CONN.Open()
End If
End Sub
Public Sub tutupDB()
If CONN.State = ConnectionState.Open Then
CONN.Close()
End If
End Sub
End Module
Setelah selesai pada perintah module sekarang kita kembali ke form, silahkan tambah perintah dipaling atas code di (general) (declaration)
Imports System.Data.OleDb
Kemudian kita buat procedure private untuk menampilkan data pada datagridview, perintahnya seperti ini.
Private Sub CekData()
Koneksi()
Try
DA = New OleDb.OleDbDataAdapter("Select * from tbnomor", CONN)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "tbnomor")
DataGridView1.DataSource = (DS.Tables("tbnomor"))
DataGridView1.Columns(0).Width = 150
DataGridView1.Columns(1).Width = 150
DataGridView1.ReadOnly = True
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
CONN.Close()
End Try
End Sub
Tambahkan juga procedure nomor otomatis sehingga nanti cukup kita panggil saja procedure ini jika akan digunakan, berikut perintahnya
Private Sub Kodenomor()
Dim NomOt As String = ""
Koneksi()
Try
CMD = New OleDbCommand("SELECT TOP 1 right(nomor,3) + 1 as nomor FROM tbnomor ORDER BY nomor DESC ", CONN)
RD = CMD.ExecuteReader
If RD.Read Then
Select Case RD!nomor
Case Is <= 9
NomOt = "BRG-" & "00" & RD!nomor
Case Is <= 99
NomOt = "BRG-" & "0" & RD!nomor
End Select
Else
'tabel kosong
NomOt = "BRG-" & "001"
End If
TextBox1.Text = NomOt
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Lanjut panggil kedua procedure yang telah kita buat tadi pada form load, seperti berikut
Terakhir kita tambahkan perintah pada tombol simpan, sehingga nanti pada saat simpan tetboxt yang menampung nomor akan otomatis bertambah, berikut perintahnya
Try
tutupDB()
CONN.Open()
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
MsgBox("Koneksi tidak berhasil dilakukan")
Exit Sub
End Try
Try
Koneksi()
Dim cmd As New OleDbCommand("insert into tbnomor(nomor) values('" & TextBox1.Text & "')", CONN)
cmd.ExecuteNonQuery()
MsgBox("Nomor berhasil disimpan")
CekData()
Kodenomor()
Catch ex As Exception
MsgBox(ex.Message)
End Try
ok sekian cara membuat nomor otomatis di VB.Net 2010, untuk file jadi silahkan download disini
Bagi yang belum mengerti silahkan ditanyakan,, :)
About Me :
Saya Martin Purnansyah
Nama
Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs
marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)
