CLASSE CONEXAO BD VB.NET

EDISONSILVA 22/07/2010 10:24:43
#348109 Resposta escolhida

Public Class conexao

[ô]tambem pode ser definido como dim ao invés de public
Public conn As New MySqlConnection [ô]use o provedor que desejar
Public cmd As MySqlCommand [ô]use o provedor que desejar
Public da As MySqlDataAdapter [ô]use o provedor que desejar
Public dr As MySqlDataReader [ô]use o provedor que desejar
Public connString As String = [ô]use sua conexão


Sub conectar()
conn.ConnectionString = connString
Try
conn.Open()
Catch ex As MySqlException
MsgBox([Ô]Erro ao conectar no servidor![Ô], MsgBoxStyle.Critical, [Ô]Erro ao conectar[Ô])
End Try
End Sub

Sub desconectar()
Try
conn.Close()
conn.Dispose()
conn = Nothing
Catch ex As Exception
MsgBox([Ô]Erro ao desconectar do servidor![Ô], MsgBoxStyle.Critical, [Ô]Erro ao conectar[Ô])
End Try
End Sub
End Class


[ô]---------------------------------------------------------
[ô]Essa é minha função mais light, mas funciona.
[ô]--------------------------------------------------------
Public Function sql(ByVal StringSql As String)
Dim cmd As New MySqlCommand
[ô]Dim dr As MySqlDataReader
Dim conn As New conexao [ô]CRIA UMA NOVA ESTÂNCIA DA CONEXÃO
Try
conn.conectar() [ô]ABRE A CONEXÃO

[ô]DEFINE OS VALORES AOS CAMPOS
cmd.Connection = conn.conn
cmd.CommandType = CommandType.Text
cmd.CommandText = StringSql [ô]PASSA A SQL PARA A CONSULTA
Return cmd.ExecuteReader [ô]REALIZA A CONSULTA
Catch ex As Exception
MsgBox([Ô]Ocorreu algum erro durante a consulta[Ô], MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, [Ô]Erro[Ô])
End Try
End Function