membuat autogen dan autocomplate pada vbnet2010

MEMBUAT AUTOGEN ADA VBNET2010
 Sub KodeOtomatis()
        Call bukaDB()
        CMD = New MySqlCommand("SELECT Max(right(nopesan, 5)) FROM dbpesanan", Conn)
        RD = CMD.ExecuteReader
        RD.Read()

        Dim number As String

        If IsDBNull(CMD.ExecuteScalar) Then
            number = "PS-" + "00001"
            TxtNoDoc.Text = number
        Else
            number = (CMD.ExecuteScalar + 1).ToString()
            If Len(number) = 1 Then
                TxtNoDoc.Text = "PS-" + "0000" + number
            ElseIf Len(number) = 2 Then
                TxtNoDoc.Text = "PS-" + "000" + number
            ElseIf Len(number) = 3 Then
                TxtNoDoc.Text = "PS-" + "00" + number
            ElseIf Len(number) = 4 Then
                TxtNoDoc.Text = "PS-" + "0" + number
            ElseIf Len(number) = 5 Then
                TxtNoDoc.Text = "PS-" + number

            End If

        End If

    End Sub


setelah itu dipanggil di load dengan call KodeOtomatis()


MEMBUAT AUTOCOMPLATE PADA TEXTBOX DAN COMBOBOX

1. PADA TEXTBOX

Private Sub complitenama()

        Dim conectionstring As String
        conectionstring = "Server=localhost;User=root;database=dbsalembainventori"
        Dim SQLQuery As String = "select namabarang from dbmbarang"

        Dim MyConn As New MySql.Data.MySqlClient.MySqlConnection(conectionstring)
        Dim dataset As DataSet = New DataSet()
        Dim dr As MySqlDataReader
        MyConn.Open()
        Dim Cmd As New MySql.Data.MySqlClient.MySqlCommand(SQLQuery, MyConn)
        dr = Cmd.ExecuteReader()
        While dr.Read
            TxtNama.AutoCompleteCustomSource.Add(dr.Item(0).ToString)
        End While

    End Sub
setalah itu panggil di form load call  complitenama()
2. PADA COMBOBOX

        Dim conectionstring As String
        conectionstring = "Server=localhost;User=root;database=dbsalembainventori"
        Dim SQLQuery As String = "select nopesan from dbpesanan"
        Dim MyConn As New MySql.Data.MySqlClient.MySqlConnection(conectionstring)
        Dim dataset As DataSet = New DataSet()
        Dim dr As MySqlDataReader
        MyConn.Open()
        Dim Cmd As New MySql.Data.MySqlClient.MySqlCommand(SQLQuery, MyConn)
        dr = Cmd.ExecuteReader()
        While dr.Read
            cmbnopesan.Items.Add(dr(0).ToString())
        End While


----SEMOGA BERMANFAAT---- SELAMAT MENCOBA YAHHHH :))