MODULO
Boa noite, Estou com um problema, estou iniciando em vb.net e estou aprendendo umas coisinhas porem estou com uma duvida.
No vb6 eu fazia o seguinte
criava conexao mysql por meio do modulo para que nao precisa-se toda vez colocar o caminho do banco etc..
porém no vb.net consegui fazer a conexao tudo ok mais nao consigo declarar isso para todos os forms utilizarem, apenas carrega o gridview se colocar a conexao no mesmo form
Gostaria de saber se vocês podem me ajudar. a criar uma conexao mysql em um modulo ou class(tentei com class, nao sei se existe modulo no vb.net)
e carregar uma gridview em 1 form separado da conexao
Obrigado!.
No vb6 eu fazia o seguinte
criava conexao mysql por meio do modulo para que nao precisa-se toda vez colocar o caminho do banco etc..
porém no vb.net consegui fazer a conexao tudo ok mais nao consigo declarar isso para todos os forms utilizarem, apenas carrega o gridview se colocar a conexao no mesmo form
Gostaria de saber se vocês podem me ajudar. a criar uma conexao mysql em um modulo ou class(tentei com class, nao sei se existe modulo no vb.net)
e carregar uma gridview em 1 form separado da conexao
Obrigado!.
Amigão nosso amigo Altair teve a mesma duvida que voce, leia o Topico dele !
ABRIR CONEXAO [VB.NET]
Abraços
ABRIR CONEXAO [VB.NET]
Abraços
estou fazendo assim no form mais nao ta dando certo para separar a conexao
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
Dim conn As New MySqlConnection
conn.ConnectionString = [Ô]server=123;user id=123;password=312;database=312[Ô]
Try
conn.Open()
myCommand.Connection = conn
SQL = [Ô]SELECT * FROM Produtos[Ô]
Try
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
GridControl1.DataSource = myData
Catch myerro As MySqlException
MsgBox([Ô]Erro de leitura no banco de dados : [Ô] & myerro.Message)
End Try
MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
conn.Close()
Catch myerro As MySqlException
MessageBox.Show([Ô]Erro ao conectar com o Banco de dados : [Ô] & myerro.Message)
Finally
conn.Dispose()
End Try
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String
Dim conn As New MySqlConnection
conn.ConnectionString = [Ô]server=123;user id=123;password=312;database=312[Ô]
Try
conn.Open()
myCommand.Connection = conn
SQL = [Ô]SELECT * FROM Produtos[Ô]
Try
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
GridControl1.DataSource = myData
Catch myerro As MySqlException
MsgBox([Ô]Erro de leitura no banco de dados : [Ô] & myerro.Message)
End Try
MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
conn.Close()
Catch myerro As MySqlException
MessageBox.Show([Ô]Erro ao conectar com o Banco de dados : [Ô] & myerro.Message)
Finally
conn.Dispose()
End Try
Crie um modulo e coloque esse código
mports System, MySql.Data.MySqlClient.MySqlConnection
Module conector_ado
Dim CN1 As New MySql.Data.MySqlClient.MySqlConnection
[ô]Instanciando um novo objeto “conecta†do tipo OleDbConnection para ser utilizado no projeto.
[ô]Instanciando um novo objeto “comando†do tipo OleDbCommand para ser usado no projeto.
[ô]Public conecta As New ADODB.Connection
Public comando1 As New MySql.Data.MySqlClient.MySqlCommand
[ô] Procedimento para conexão com o banco de dados.
Public Sub Conectar1()
[ô] CN1 = New MySql.Data.MySqlClient.MySqlConnection [ô]conexao usando ADO
CN1 = New MySql.Data.MySqlClient.MySqlConnection([Ô]server=127.0.0.1;user id=altair;password=123;database=exemplo[Ô])
CN1.Open()
End Sub
[ô] Procedimento para desconectar do banco de dados.
Public Sub Desconectar1()
CN1.Close()
End Sub
[ô] Procedimento para testar conexão com o banco de dados.
Public Sub testaconexao1()
Try
Conectar1()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel conectar o banco de dados[Ô])
Desconectar1()
End Try
Desconectar1()
End
End Sub
[ô]Solicitar instancia
Public Function GetConexao1() As MySql.Data.MySqlClient.MySqlConnection
If CN1.State <> ConnectionState.Open Then
Conectar1()
End If
Return CN1
End Function
End Module
Depois no form basta colocar [Ô]Call getconexao1[Ô] que ele chama a conexão, se ela já estiver aberta ela continua, e se caso ela estiver fechada ele abre ela novamente.
Crédios: ZEROCAL[txt-color=#e80000] [/txt-color]
Abraços
mports System, MySql.Data.MySqlClient.MySqlConnection
Module conector_ado
Dim CN1 As New MySql.Data.MySqlClient.MySqlConnection
[ô]Instanciando um novo objeto “conecta†do tipo OleDbConnection para ser utilizado no projeto.
[ô]Instanciando um novo objeto “comando†do tipo OleDbCommand para ser usado no projeto.
[ô]Public conecta As New ADODB.Connection
Public comando1 As New MySql.Data.MySqlClient.MySqlCommand
[ô] Procedimento para conexão com o banco de dados.
Public Sub Conectar1()
[ô] CN1 = New MySql.Data.MySqlClient.MySqlConnection [ô]conexao usando ADO
CN1 = New MySql.Data.MySqlClient.MySqlConnection([Ô]server=127.0.0.1;user id=altair;password=123;database=exemplo[Ô])
CN1.Open()
End Sub
[ô] Procedimento para desconectar do banco de dados.
Public Sub Desconectar1()
CN1.Close()
End Sub
[ô] Procedimento para testar conexão com o banco de dados.
Public Sub testaconexao1()
Try
Conectar1()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possÃvel conectar o banco de dados[Ô])
Desconectar1()
End Try
Desconectar1()
End
End Sub
[ô]Solicitar instancia
Public Function GetConexao1() As MySql.Data.MySqlClient.MySqlConnection
If CN1.State <> ConnectionState.Open Then
Conectar1()
End If
Return CN1
End Function
End Module
Depois no form basta colocar [Ô]Call getconexao1[Ô] que ele chama a conexão, se ela já estiver aberta ela continua, e se caso ela estiver fechada ele abre ela novamente.
Crédios: ZEROCAL[txt-color=#e80000] [/txt-color]
Abraços
ALTAIR148 os créditos são nossos ! =]
Abraços
Abraços
Tópico encerrado , respostas não são mais permitidas