Membuat Penomoran Otomatis di vb.net 2008

Public Function autonumber()
        Dim query As String
        Dim xmyread As SqlDataReader
        Dim xmycmd As SqlCommand
        Dim nilaiawal, nilaiauto, nilaiakhir As String

        query = "select nim from mahasiswa order by nim desc"
        xmycmd = New SqlCommand(query, mycn)
        xmyread = xmycmd.ExecuteReader
        If xmyread.HasRows = True Then
            xmyread.Read()
            nilaiawal = xmyread.Item("NIM")
            nilaiauto = Val(Mid(xmyread.Item("nim"), 4, 7)) + 1
            nilaiakhir = "nim" & Right("0000000", 7 - nilaiauto.Length) & nilaiauto
        Else
            nilaiakhir = "NIM0000001"
        End If
        xmyread.Dispose()
        Return nilaiakhir

    End Function

SELAMAT MENCOBA

Comments

cara menampilkan data di combobox di vb.net 2008

Buka Vb.net 2008 Pilih icon combobox yang ada di toolbox

Sejarah de untuk menyatukan dua daratan di Kota Palembang ”Seberang Ulu dan Seberang Ilir” dengan jembatan, sebetulnya sudah ada sejak zaman Gemeente Palembang, tahun 1906. Saat jabatan Walikota Palembang dijabat Le Cocq de Ville, tahun 1924, ide ini kembali mencuat dan dilakukan banyak usaha untuk merealisasikannya. Namun, sampai masa jabatan Le Cocq berakhir, bahkan ketika Belanda hengkang dari Indonesia, proyek itu tidak pernah terealisasi. Pada masa kemerdekaan, gagasan itu kembali mencuat. DPRD Peralihan Kota Besar Palembang kembali mengusulkan pembangunan jembatan kala itu, disebut Jembatan Musi dengan merujuk na-ma Sungai Musi yang dilintasinya, pada sidang pleno yang berlangsung pada 29 Oktober 1956. Usulan ini sebetulnya tergolong nekat sebab anggaran yang ada di Kota Palembang yang akan dijadikan modal awal hanya sekitar Rp 30.000,00. Pada tahun 1957, dibentuk panitia pembangunan, yang terdiri atas Penguasa Perang Komando Daerah Militer IV/Sriwijaya, Harun...

Urutan Kabel LAN ( straight & cross)

Urutan dan cara membuat kabel lan 1. Straight kabel lan dan susunan seperti ini biasanya digunakan untuk menghungkan device yang berbeda. ada 2 ujung kabel - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat. - ujung satunya dengan urutan yang sama. 2.Cross Kabel dengan susunan seperti ini biasanya digunakan untuk menghubungkan device yang sama. contoh : komputer dengan komputer. ada 2 ujung kabel - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat. - ujung kedua : Putih Hijau , Hijau , Putih Orange , Orange , Putih Biru , Biru , Putih Coklat , Coklat. Semoga bermanfaat.

Catatan Pribadi

Search This Blog