Skip to main content

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

Post a Comment

Popular posts from this blog

Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC Module Module_koneksi Dim connection As New OdbcConnection( "DSN= NAMADSN ;" ) Private Sub connection_open() Try If connection.State <> ConnectionState.Closed Then connection.Close() connection.Open() Catch ex As Exception End Try End Sub Private Sub connection_close() Try If connection.State <> ConnectionState.Open Then connection.Open() connection.Close() Catch ex As Exception End Try End Sub End Module
Post a Comment
Read more

cara membuat hapus data di vb.net 2008

public function hapus data () as integer '--------------------------------------------- 'class untuk menghapus data '--------------------------------------------- dim sql as string dim xcmd as sqlcomand dim x sql ="delete from siswa where nis=@nis" xcmd = new sqlcommand (sql ,con) xcmd.paramater.addwithvalue("nis", Fnis) x = xcmd.executenonquery xcmd.dispose () return x end function
Post a Comment
Read more