Membuat Kode Otomatis Database MySQL di VIsual Basic.Net

Kali ini admin mau berbagi script php untuk membuat kode otomatis dengan database MySQL. Buat para web programer khusus yang sedang belajar/pemula langsung aja nih admin kasih coding-nya.

Cekidot ...

Public Sub kodeotomatis()

        Try
            conn.Close()
            conn.Open()
            Dim command As New MySqlCommand("SELECT max(primarykey) FROM tabel ", conn)
            Dim reader As MySqlDataReader = command.ExecuteReader
            While reader.Read()
                lblKodeOtomatis.Text = (reader("max(primarykey)").ToString)
            End While
            If lblKodeOtomatis.Text = "" Then
                lblKodeOtomatis.Text = "000" & 1
            Else
                Dim no, tot As Integer
                no = Val(lblKodeOtomatis.Text)
                tot = 1 + no
                lblKodeOtomatis.Text = "000" & Val(tot)
            End If
            reader.Close()
            command.Dispose()
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

**ganti huruf berwarna merah sesuai atribut yang agan semua butuhkan..

Trimakasih. Jangan lupa share dan follow ya ... ^^