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 :))
