Membuat Stored Procedure Untuk Generate Auto Number/No Urut/No Bukti SQL SERVER+VBNET

Kali ini saya akan lanjutkan kembali pembahasan tentang auto generate number bagian ke-3, pada bagian 1 dan 2 saya membahas bagimana membuat auto increment di aplikasi VBNET, nah kali ini saya akan coba share bagaimana cara membuat auto increment di stored procedure dan sekaligus cara memanggilnya di VBNET. Baik berikut ini script sql nya :

CREATE PROCEDURE [dbo].[djiesoft_autogenerate_number]

@tablename as varchar(50), @fieldname as varchar(20)

AS

BEGIN

       declare @sqlquery as varchar(1000)

       SET @sqlquery ='SELECT LEFT(''0000'',4 - (LEN(CONVERT(VARCHAR,CONVERT(float,'+@fieldname+')+1))) ) + CONVERT(VARCHAR,CONVERT(float,'+@fieldname+')+1)'+' FROM '+ @tablename +' ORDER BY '+@fieldname+' DESC'

    EXEC (@sqlquery)

       --ubah/sesuaikan ''0000'',4 dengan kebutuhan

       --contoh jika ingin 7 digit = ''0000000'',7

END

Nah, setelah anda membuat store procedure itu, maka tinggal panggil saja di aplikasi VBNET, parameter nya nama_tabel dan nama_kolom, jadi stored procedure ini dapat anda gunakan ke berbagai table (multi table) jadi lebih dinamis. Saya sudah buatkan contoh function nya :

    Functiondjie_generate_number(ByVal pTableName As String, ByVal pFieldName As String, ByValpValueIfNull As String) As String

        Usingcon As NewSqlClient.SqlConnection("data source=djiesoft\sql2012e;user id=sa;password=mypwd;initial catalog=mydb")

            con.Open()

            Usingcmd As NewSqlClient.SqlCommand("EXEC djiesoft_autogenerate_number '" + pTableName + "','" + pFieldName + "'", con)

                DimlastNo As String= cmd.ExecuteScalar()

                IflastNo Is NothingThen

                    ReturnpValueIfNull

                Else

                    ReturnlastNo

                EndIf

            EndUsing

        End Using

    End Function

Contoh penggunaanya adalah :

TextBox1.Text = djie_generate_number("table_test", "nomor", "0001")

 

Stored procedure diatas adalah contoh yang paling sederhana, yaitu increment 0001,0002 dan seterusnya, silahkan anda kembangkan lagi jikan ingin penmabhan bulan,tahun,kode tertentu dan sebagainya.OK, Selamat Mencoba !!

Tags:

cara generate autonumber, cara membuat nobukti bertambah, cara generate nobukti otomatis, cara membuat auto nourut, cara membuat custom nourut vbnet, generate auto increment sqlserver , cara membuat norutu berdasarkan tahun tangal bulan , cara membuat nourut berganti setiap tahun atau bulan, membuat no bukti pertanggal, membuat nourut transaksi vbnet sql, auto increment stored procedure sql server, auto generate number stored procedure vbnet