Auto Number ( Kombinasi Angka Dan Huruf )

Auto Number ( Kombinasi Angka Dan Huruf )

Sebelumnya harap pahami koneksi ke database, bagi yang udah paham bisa langsung ke sini .

Langsung Copas kode di bawah ini :

    Sub AutoGenerate()
        Dim no_dftr As String

        Try
            Using Conn As New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)
                Conn.Open()
                Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM bayi ORDER BY no_dftr DESC", Conn)
                Dim dr As SqlDataReader = cmd.ExecuteReader
                dr.Read()

                Try
                    If Not dr.HasRows Then
                        no_dftr = "PB0001"
                    Else
                        no_dftr = Val(Microsoft.VisualBasic.Mid(dr.Item("no_dftr").ToString, 5, 3)) + 1
                        If Len(no_dftr) = 1 Then
                            no_dftr = "PB000" & no_dftr & ""
                        ElseIf Len(no_dftr) = 2 Then
                            no_dftr = "PB00" & no_dftr & ""
                        ElseIf Len(no_dftr) = 3 Then
                            no_dftr = "PB0" & no_dftr & ""
                        End If
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                Finally
                    TextBox8.Text = no_dftr
                    Conn.Close()
                End Try
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Sekian dan terima kasih

Semoga bermanfaat

Browse More Articles

Tweet

Written by thoestone

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.