Nomor Otomatis Visual Basic

Cara membuat nomor otomatis di visualbasic vb.net

Melanjutkan artikel kemarin tentang Cara membuat perintah hapus di Program Visualbasic .Net, kali ini kita akan membahas bagaimana Cara membuat nomor otomatis di Program Visualbasic .Net ini.

Artikel Lain: Merubah Data Visual Basic

Fungsi dari nomor otomatis ini banyak sekali, diantaranya adalah jika program kita menginputkan banyak data, untuk setiap nomornya kita tidak perlu bersusah payah menginputkannya satu persatu.Tidak hanya itu nomor otomatis juga dapat digunakan untuk mencegah agar data kita tidak bentrok jika field nomor otomatis kita kita buat Primary Key, tentu ini sangat penting dan sangat diperlukan.

Untuk membuat nomor otomatis silakan ikuti langkah-langkah berikut ini:

1. Tambahkan Region Deklarasinya, jika belum baca artikel Cara menyimpan data ke dalam database menggunakan Visualbasic .Net.

2. Tambahkan Sebuah button, ganti Textnya menjadi Nomor Otomatis.

3. Klik dua kali button Nomor otomatis Anda dan tambahkan code atau scriptnya berikut ini:

Dim notomatis As Single
        mycmd = myconnection.open.CreateCommand
        mycmd.CommandText = “select count(*) as jumlah from tbmudamers”
        objdatareader = mycmd.ExecuteReader
        While objdatareader.Read
            notomatis = Val(objdatareader.Item(“jumlah”).ToString) + 1
        End While
        Select Case Len(Trim(notomatis))
            Case 1 : TNO.Text = “MUDAMU0000” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 2 : TNO.Text = “MUDAMU000” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 3 : TNO.Text = “MUDAMU00” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 4 : TNO.Text = “MUDAMU0” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 4 : TNO.Text = “MUDAMU” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
        End Select
        myconnection.close()

4. Nomor otomatis Anda sudah jadi, namun untuk memunculkannya masih harus mengklik button nomor otomatis, jika ingin benar-benar otomatis rubah kodenya menjadi seperti ini dan taruh di bawah Region atau Public Class lainnya:

#Region “nomor”
    Sub nomorinavb()
        mycmd = myconnection.open.CreateCommand
        mycmd.CommandText = “select count(*) as jumlah from tbmudamers”
        objdatareader = mycmd.ExecuteReader
        While objdatareader.Read
            notomatis = Val(objdatareader.Item(“jumlah”).ToString) + 1
        End While
        Select Case Len(Trim(notomatis))
            Case 1 : TNO.Text = “MUDAMU0000” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 2 : TNO.Text = “MUDAMU000” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 3 : TNO.Text = “MUDAMU00” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 4 : TNO.Text = “MUDAMU0” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
            Case 4 : TNO.Text = “MUDAMU” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”)
        End Select
        myconnection.close()
    End Sub
#End Region

5. Tambahkan nomorinavb() di form load, button simpan, ubah, hapus yang dibagian akhir contoh di button simpan:

mycmd.CommandText = “insert into inavb values(‘” & Me.TNO.Text & “‘,'” & Me.TNAMA.Text & “‘)”
                mycmd.Connection = myconnection.open
                mycmd.ExecuteNonQuery()
                myconnection.close()
                bacamudamers()
nomorinavb() ‘Nah ini Contohnya 🙂

6. Penjelasan nomor otomatis ini Saya contohkan pada Case yang pertama yaitu:
TNO.Text = “MUDAMU0000” + Trim(Str(notomatis)) + Format(Now, “ddMMyyyyhhmmss”):
– Textbox yang bernamama Tno akan diisi MUDAMU0000+TANGGAL+BULAN+TAHUN+JAM+MENIT+DETIK dan kondisinya adalah sesuai dengan waktu lokal komputer Anda, jadi tidak mungkin sama setiap waktu, untuk case2 dan case3 cuma beda depannya saja.

7. Tips !!, sebaiknya gunakan Label jika ingin nomornya tidak bisa di Edit.

Seperti itulah kira-kira membuat nomor otomatis di Visualbasic .Net untuk mencegah Double data (Redudansi) maupun untuk ke efektifan sebuah program, dan ingat selalu tonton Video yang sudah Saya praktekkan dibawah agar Anda tidak bingung !!. Semoga bermanfaat buat sobat iNaVBers.

Download Video
Download Code

 

Tags:

5 Comments

  1. Pingback: Option File Player 2015 untuk PES 2006

Leave a Reply

Your email address will not be published. Required fields are marked *