Dalam sebuah pemrograman baik itu dekstop maupun web sangat penting adanya kode otomatis, yang digunakan untuk memberikan nilai primary key secara otomatis dan menghindari redudansi data.



Untuk dapat membuat sebuah kode otomatis pada VB.Net anda dapat mencoba code dibawah ini :




Private Sub btnBaru_Click(sender As Object, e As EventArgs) Handles btnBaru.Click
        buka_koneksi() 'variabel yang diambil dari module1 untuk membuka koneksi database

        sql = "SELECT SUBSTRING(kode_buku, 3, 3) FROM tb_buku ORDER BY kode_buku DESC"
        'query untuk mengambil nilai angka dari database

        comSQL = New SqlCommand(sql, conn)
        Dim dr As SqlDataReader = comSQL.ExecuteReader()
        If dr.Read() Then
            Dim IDlama = dr.GetString(0)
            Dim IDbaru = IDlama + 1
            Dim nol = ""

            'langkah untuk menambahkan nilai nol "0" kedalam kode
            If Len(IDbaru.ToString) = 1 Then
                nol = "00"
            ElseIf Len(IDbaru.ToString) = 2 Then
                nol = "0"
            ElseIf Len(IDbaru.ToString) = 3 Then
                nol = ""
            End If
            txtKodeBuku.Text = "B-" & nol & IDbaru
        Else
            txtKodeBuku.Text = "B-001"
        End If
        tutup_koneksi() 'variabel yang diambil dari module1 menutup koneksi
    End Sub


Selamat mencoba dan jangan lupa berdoa sebelum mencoba :)

TAGS : | | | | | |