Auto Number vb.net Mysql
Pada tulisan sebelumnya saya sudah menampilkan bagaimana cara mebuat combobo dinamis. yaitu item combobox yang berasal dari database. nah pada tulisan kali ini saya akan menunjukkan bagaimana cara untuk membuat kode otomatis (autonumber) di vb.net
cara untuk menampilkanya kode otomatis :
- buat module koneksi
- buat form dengan code seperti berikut
Imports MySql.Data.MySqlClient
Public Class Form1
Dim ds As DataSet
Dim myadp As MySqlDataAdapter
Dim dt As New DataTable
Dim query As String
Dim DREADER As MySqlDataReader
Dim CMD As MySqlCommand
Dim sql As String
Sub Kodeotomatis()
Call hubungkan()
CMD = New MySqlCommand("Select NoAgt From tbl_agt where NoAgt in(select max(NoAgt) from tbl_agt) ", con)
DREADER = CMD.ExecuteReader
DREADER.Read()
If DREADER.HasRows = 0 Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00001"
DREADER.Close()
End If
If Not DREADER.HasRows Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00001"
DREADER.Close()
Else
txtNoAgt.Text = Val(Microsoft.VisualBasic.Right(DREADER.Item("NoAgt").ToString, 4)) + 1
If Len(txtNoAgt.Text) = 1 Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "0000" & txtNoAgt.Text & ""
ElseIf Len(txtNoAgt.Text) = 2 Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "000" & txtNoAgt.Text & ""
ElseIf Len(txtNoAgt.Text) = 3 Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00" & txtNoAgt.Text & ""
ElseIf Len(txtNoAgt.Text) = 4 Then
txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "0" & txtNoAgt.Text & ""
End If
DREADER.Close()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Kodeotomatis()
End Sub
End Class
catatan :
- kode yang berwarna putih adalah nama field tabel sumber dan kode warna kuning adalah nama tabel di databse yang digunakan.
- kode yang berwarna hijau adalah namam kontrol (textfield) yang ada pada form
Selamat mencoba. semoga bermanfaat
No comments :
Post a Comment