STATUS DE CONEXAO COM O BANCO DE DADOS
Olá pessoal, preciso colocar em um txtbox ou uma label.. o status da conexão do banco de dados (FIREBIRD) em rede Local se ONLINE ou OFFILINE.
obrigado pela atenção de todos !!
obrigado pela atenção de todos !!
Bom dia ,
Qual tipo de conex~]ao você utiliza DAO , ADO , ODBC.
Posta aqui para agente tentar encontrar uma solução
Qual tipo de conex~]ao você utiliza DAO , ADO , ODBC.
Posta aqui para agente tentar encontrar uma solução
If Conexao.State = 0 Then
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
else
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
end if
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
else
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
end if
Opa, errei
If Conexao.State = 0 Then
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
else
label1.caption = [Ô][Ô] & [Ô]Conexao ATIVA[Ô]
end if
If Conexao.State = 0 Then
label1.caption = [Ô][Ô] & [Ô]Conexao Inativa[Ô]
else
label1.caption = [Ô][Ô] & [Ô]Conexao ATIVA[Ô]
end if
olá pessoal.. a string da conexão é esta aqui...
[ô]Modúlo de conexão
Public Conexao As New ADODB.Connection
[ô]Public Rst As New ADODB.Recordset
Public Caminho As String
[ô]Public Sql As String
[ô]Função para se conectar ao MySQL e retorna true se a conexão foi estabelecida
Public Function ConectaMySQL() As Boolean
On Error GoTo Err_Conexao
Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=\\Servidor\C:\SysPdv\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
Conexao.CursorLocation = adUseClient
ConectaMySQL = True
Exit Function
Err_Conexao:
ConectaMySQL = False
MsgBox Err.Description
End Function
[ô]Função para Desconectar corretamente do banco
Public Function DesconectaMySQL()
Conexao.Close
Set Rst = Nothing
Set Conexao = Nothing
End Function
Public Sub Main()
If ConectaMySQL = False Then
MsgBox ([Ô]Ocorreu um erro ao tentar efetuar uma conexão com o servidor de banco de dados. O programa será finalizado !![Ô]), vbCritical, [Ô]Erro na conexão !![Ô]
End
Else
Frm_FrenteCaixa.Show
End If
End Sub
[ô]Modúlo de conexão
Public Conexao As New ADODB.Connection
[ô]Public Rst As New ADODB.Recordset
Public Caminho As String
[ô]Public Sql As String
[ô]Função para se conectar ao MySQL e retorna true se a conexão foi estabelecida
Public Function ConectaMySQL() As Boolean
On Error GoTo Err_Conexao
Conexao.Open [Ô]Provider=SIBPROvider.2;Data Source=\\Servidor\C:\SysPdv\Banco\Dados.fdb;User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & [Ô]masterkey[Ô]
Conexao.CursorLocation = adUseClient
ConectaMySQL = True
Exit Function
Err_Conexao:
ConectaMySQL = False
MsgBox Err.Description
End Function
[ô]Função para Desconectar corretamente do banco
Public Function DesconectaMySQL()
Conexao.Close
Set Rst = Nothing
Set Conexao = Nothing
End Function
Public Sub Main()
If ConectaMySQL = False Then
MsgBox ([Ô]Ocorreu um erro ao tentar efetuar uma conexão com o servidor de banco de dados. O programa será finalizado !![Ô]), vbCritical, [Ô]Erro na conexão !![Ô]
End
Else
Frm_FrenteCaixa.Show
End If
End Sub
Amigo, vou te dar umas dicas, veja so isso..
Ou seja, você está vinculado ao servidor ser essa maquina ai que vc colocou na string, está na hora de voce começar a pensar em desfazer esse vinculo.. concorda? tipo passar para um arquivo ini ou um arquivo txt sei la.. a configuracao dos locais onde se encontra o banco..
Data Source=\\Servidor\C:\SysPdv\Banco\Dados.fdb;User
Ou seja, você está vinculado ao servidor ser essa maquina ai que vc colocou na string, está na hora de voce começar a pensar em desfazer esse vinculo.. concorda? tipo passar para um arquivo ini ou um arquivo txt sei la.. a configuracao dos locais onde se encontra o banco..
Bom dia,
Quanto ao caminho do banco de dados eu gravo no registro do windows, muito bem notado pelo xxangelsxx no caso do servidor trocar de nome , não irá funcionar.
Bom trabalho.
Quanto ao caminho do banco de dados eu gravo no registro do windows, muito bem notado pelo xxangelsxx no caso do servidor trocar de nome , não irá funcionar.
Bom trabalho.
Tópico encerrado , respostas não são mais permitidas