Dim LeitorSQL2 As MySqlDataReader Dim conn As New MySqlConnection conn.Open() Dim Query2 As String Query2 = "SELECT MAX(OcorrenciaID) + 1 as 'NovoID' FROM 8Gest.ocorrencias" Dim AutoNumero = New MySqlCommand(Query2) LeitorSQL2 = AutoNumero.ExecuteReader While LeitorSQL2.Read Dim autonmr = LeitorSQL.GetString("NovoID") lblNumeroAuto.Text = autonmr End While conn.Close()
lblNumeroAuto.Text = (autonmr) lblNumeroAuto.Text = 3 '(This didnt work too) lblNumeroAuto.Text += autonmr
lblNumeroAuto.Text += autonmr
Dim AutoNumero = New MySqlCommand(Query2)
Dim AutoNumero = New MySqlCommand(Query2, conn)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)