Pegar o próximo Auto-increment do banco de dados MySql - VB.NET

Neste artigo vou mostrar como pegar o próximo "Id" que o banco de dados seta como Auto-Increment. 

1:  Using conn As New MySqlConnection("server=localhost;user id=root;password=12345;database=test")  
2:        Using cmd As New MySqlCommand("SHOW TABLE STATUS LIKE 'tabela'", conn)  
3:          Try  
4:            conn.Open()  
5:          Catch ex As Exception  
6:            MsgBox("Houve um erro ao abrir uma conexão com o servidor" & vbNewLine & vbNewLine & ex.ToString)  
7:          End Try  
8:          Try  
9:            Using rdr As MySqlDataReader = cmd.ExecuteReader()  
10:              While rdr.Read()  
11:                Label1.Text = rdr.Item("Auto_increment")  ' Aqui recebemos o proximo auto-increment
12:    
13:              End While  
14:            End Using  
15:          Catch ex As Exception  
16:            MsgBox("Erro" & vbNewLine & vbNewLine & ex.ToString)  
17:          End Try  
18:        End Using  
19:      End Using  

Você também pode usar em uma função que retorne um valor;

1:  Public Function ProximoIncrement () As Integer  
2:  Using conn As New MySqlConnection("server=localhost;user id=root;password=12345;database=test")  
3:        Using cmd As New MySqlCommand("SHOW TABLE STATUS LIKE 'tabela'", conn)  
4:          Try  
5:            conn.Open()  
6:          Catch ex As Exception  
7:            MsgBox("Houve um erro ao abrir uma conexão com o servidor" & vbNewLine & vbNewLine & ex.ToString)  
8:          End Try  
9:          Try  
10:            Using rdr As MySqlDataReader = cmd.ExecuteReader()  
11:              While rdr.Read()  
12:                Return(Convert.ToInt32(rdr.Item("Auto_increment")))  
13:              End While  
14:            End Using  
15:          Catch ex As Exception  
16:            MsgBox("Erro" & vbNewLine & vbNewLine & ex.ToString)  
17:          End Try  
18:        End Using  
19:      End Using  

Para chama-la;

1:  Try  
2:    Label1.Text = ProximoIncrement()  
3:  Catch ex As Exception  
4:    MsgBox("Houve um erro ao tentar buscar o proximo increment" & VbNewLine & ex.ToString)  
5:  End Try  

COMENTE

& Compartilhe

Tweet