Pesquisar quantos registros há no banco de dados MySql - VB.NET

Importe MySql.Data.MySqlCliente

Agora, para fazer a busca;

1:  Dim _conexaoMySQL As String = "server=localhost;user id=root;password=123456;database=test"  
2:      Dim con As MySqlConnection = New MySqlConnection(_conexaoMySQL)  
3:      Dim sqlquery = "SELECT COUNT(*) From tabela01;"  
4:    
5:      
6:      Dim myCommand As New MySqlCommand(sqlquery, con)  
7:      con.Open()  
8:    
9:      Dim intQuantidade As Integer = myCommand.ExecuteScalar  
10:    
11:      LIMIT = intQuantidade.ToString 'String "LIMIT" é uma variavel global!, más pode ser local também  

Você pode também usar como uma função que retorne um valor do tipo String com parâmetros de entrada do tipo String, ex;

1:  Public Function CountDB (tabela As String) As String  
2:  Dim _conexaoMySQL As String = "server=localhost;user id=root;password=123456;database=test"  
3:      Dim con As MySqlConnection = New MySqlConnection(_conexaoMySQL)  
4:      Dim sqlquery = "SELECT COUNT(*) FROM " & tabela & ";"  
5:    
6:      Dim myCommand As New MySqlCommand(sqlquery, con)  
7:      con.Open()  
8:    
9:      Dim intQuantidade As Integer = myCommand.ExecuteScalar  
10:      Return(IntQuantidade).ToString()  
11:  End Function  

Então CountDB é uma função que retorna um valor do tipo String que foi convertido de Integer que é a quantidade de registro que há na tabela especificada, (tabela As String) é o parâmetro de entrada onde indicamos nossa tabela para fazer a busca.

Para chamar esta função é simples, ex;

1:  Textbox1.text = CountDB("tabela_01")  

Percebe-ce que estamos chamando a função CountDB("tabela_01")  e especificamos que queremos verificar quantos registros há no banco de dados na tabela tabela_01.

COMENTE

& Compartilhe

Tweet