ABRIR CONEXAO

RODRIGOFERRO 01/04/2011 06:57:08
#370016

ah lembrando que estou usando ado.net, por isso é so uma ideia de como fazer !

ALTAIR148 01/04/2011 08:29:18
#370018

Zerocal, sua idéia foi perfeita, funcionou do jeito que eu queria, segue abaixo o meu código para caso alguém um dia tenha a mesma dúvida.

Imports System.Data.OleDb

Module conector
Dim CN As New ADODB.Connection
[ô]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 comando As New ADODB.Command




Public Sub Conectar()

CN = New ADODB.Connection [ô]conexao usando ADO
CN.Open([Ô]DRIVER={MySQL ODBC 5.1 Driver};server=XX;user id=XX;password=748596;database=XX[Ô])

End Sub

[ô] Procedimento para desconectar do banco de dados.

Public Sub Desconectar()
CN.Close()
End Sub

[ô] Procedimento para testar conexão com o banco de dados.

Public Sub testaconexao()
Try
Conectar()
MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
Catch ex As Exception
MsgBox([Ô]Não foi possível conectar o banco de dados[Ô])
Desconectar()
End Try
Desconectar()

End
End Sub
[ô]Solicitar instancia
Public Function GetConexao() As ADODB.Connection

If CN.State <> ConnectionState.Open Then
Conectar()
End If

Return CN

End Function
End Module

Obrigado