VERIFICAR CONEXAO

MOREIRA 05/12/2010 21:39:38
#358859
olá pessoal.. boa noite.
preciso informar verificar na conexao abaixo se é está conectado ou não.....

messegerbox informando caso o caminho do banco de dados esteja incorreto...
obrigado pela atenção


Imports FirebirdSql.Data.FirebirdClient

Public Class ConecataDb
Dim ConexaoFB As FbConnection
Dim Da As FbDataAdapter
Dim ds As New DataSet
Public Sub Conecta()
ConexaoFB = New FbConnection([Ô]Server=localhost;User=SYSDBA;Password=masterkey;Database=C:\SysGestor\Banco\Dados.fdb[Ô])
End Sub
End Class
ADHEL 05/12/2010 22:03:36
#358860
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
ConexaoFB.Open()
MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
ConexaoFB.Close()
Catch
MessageBox.Show([Ô]Erro ao conectar ao banco de dados:[Ô] & Err.Description)
Finally
ConexaoFB.Dispose()
End Try
End Sub
MOREIRA 05/12/2010 22:21:14
#358861
Ola Adhel. cara coloquei a função no Botão.. mas está dando erro.. por favor, veja a imagem abaixo..

Public Class ConecataDb
Dim ConexaoFB As FbConnection
Dim Da As FbDataAdapter
Dim ds As New DataSet
Public Sub Conecta()
[ô]Coleque public sub New() ou Public Sub Conecta() , se colcoar new toda vez que vc instaciar xxx = new ConectaDB, irá abrir uma nova conexão
ConexaoFB = New FbConnection([Ô]Server=localhost;User=SYSDBA;Password=masterkey;Database=C:\SysGestor\Banco\Dados.fdb[Ô])

Try
ConexaoFB.Open()
MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
ConexaoFB.Close()
Catch
MessageBox.Show([Ô]Erro ao conectar ao banco de dados:[Ô] & Err.Description)
Finally
ConexaoFB.Dispose()

End Try
End Sub
End Class

coloquei assim... mudei o caminho do banco de dados mas nao detectou erro..
RODRIGOFERRO 05/12/2010 22:36:25
#358862 Resposta escolhida 


    Dim strSQL As String
    Dim Connection As FbConnection
    strSQL = [Ô]AQUI_VAI_SUA_STRING_DE_CONEXAO[Ô]

    Connection = New FbConnection(strSQL)
    Connection.Open()



voce nao esta instanciando a conexao amigo.
MOREIRA 06/12/2010 11:50:38
#358896
Olá pessoal,, bom dia... estou alguns dias iniciei com o vb.net..
bom vamos lá...preciso validar a conexao com o banco de dados.. e ainda não tive sucesso..
já fiz isso aqui.. preciso saber o que se está errado...

caso esteja correto.. quero testar incluído dados.

obrigado pela atenção de todos

Isso Está em uma CLASS

Imports FirebirdSql.Data.FirebirdClient
Public Class ConectaDb
Dim ConexaoFB As FbConnection
Dim Da As FbDataAdapter
Dim ds As New DataSet
Public strSQL As String
Public Connection As FbConnection

Public Sub Conecta()
[ô]Coleque public sub New() ou Public Sub Conecta() , se colcoar new toda vez que vc instaciar xxx = new ConectaDB, irá abrir uma nova conexão
ConexaoFB = New FbConnection([Ô]Server=localhost;User=SYSDBA;Password=masterkey;Database=C:\SysGestor\Banco\Dados.fdb[Ô])
Connection = New FbConnection(strSQL)
Connection.Open()
End Sub
End Class
MOREIRA 06/12/2010 16:55:15
#358926
ninguem...
MOREIRA 06/12/2010 21:25:03
#358946
será que é pedir d+ essa informação....acima..ajuda aê pessoal, pliss!!
RODRIGOFERRO 07/12/2010 08:29:12
#358962
Amigão, guenta ai que to no trampo, mas ja estou montando um exemplo de conexao com Classe, conforme voce mesmo solicita.
assim que chegar em casa depois do trampo+Curso eu posto pra tu, o exemplo Funcionando e comentado.

Abração
RODRIGOFERRO 08/12/2010 13:11:48
#359087
ok Aqui vai o Exemplo Comentado, o Ini esta no Projeto e contem os dados da conexao, tem um banco de exemplo na pasta BANCO.
so colocar suas configurações e mandar bala...
Tópico encerrado , respostas não são mais permitidas
Voltar