CONEXAO COM O FIRIBIRD
[txt-color=#e80000] Galera por favor uma luz. Tenho uma aplicação que se iniciada do PC independente de qual partição conecta numa boa, agora se inicio de uma unidade da rede não conecta nem a pau, não era pra conectar tabém?
se no meu PC tem três partições C:, D: e E: em qualquer uma conecta numa boa, agora se inicio do N: que é uma unidade da rede não conecta, procurei no google e não achei nada...
[/txt-color]
se no meu PC tem três partições C:, D: e E: em qualquer uma conecta numa boa, agora se inicio do N: que é uma unidade da rede não conecta, procurei no google e não achei nada...
[/txt-color]
Explica melhor! Mais dados.. por gentileza...
E - NÃO COLOQUE EM VERMELHO...
E - NÃO COLOQUE EM VERMELHO...
explicar melhor? o q vc não entendeu?
coloca sua string de conexão é melhor
Public Const DBProvider = [Ô]Provider=ZStyle IBOLE Provider;Data Source=[Ô]
Public Sub SU_Conecta()
[ô]O CAMINHO BANCO VAI TA NO LOAD DO FOR DE LOGIN
10 On Error GoTo SU_Conecta_Error
[ô]variaves para conexao com o FiriBird
IPconexao = [Ô][Ô]
20 CaminhoBD = IPconexao & [Ô]:[Ô] & App.Path & [Ô]\imo.fdb[Ô]
30 UserBD = [Ô]UID=SYSDBA[Ô]
40 SenhaBD = [Ô]masterkey[Ô]
50 Set ConexaoADO = New ADODB.Connection
60 ConexaoADO.ConnectionString = DBProvider & CaminhoBD & [Ô];[Ô] & _
UserBD & [Ô];[Ô] & [Ô]Password=[Ô] & SenhaBD
70 ConexaoADO.CursorLocation = adUseClient
80 CNN_string = ConexaoADO.ConnectionString
90 MsgBox CNN_string
ConexaoADO.Open
160 On Error GoTo 0
170 Exit Sub
SU_Conecta_Error:
180 MsgBox [Ô]Ocorreu um error de número: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description & [Ô], na linha: [Ô] & Erl & [Ô] - [Ô] & Err.Description & [Ô] na procedure SU_Conecta no Módulo CONECXAO_BD[Ô]
End Sub
Public Sub SU_Conecta()
[ô]O CAMINHO BANCO VAI TA NO LOAD DO FOR DE LOGIN
10 On Error GoTo SU_Conecta_Error
[ô]variaves para conexao com o FiriBird
IPconexao = [Ô][Ô]
20 CaminhoBD = IPconexao & [Ô]:[Ô] & App.Path & [Ô]\imo.fdb[Ô]
30 UserBD = [Ô]UID=SYSDBA[Ô]
40 SenhaBD = [Ô]masterkey[Ô]
50 Set ConexaoADO = New ADODB.Connection
60 ConexaoADO.ConnectionString = DBProvider & CaminhoBD & [Ô];[Ô] & _
UserBD & [Ô];[Ô] & [Ô]Password=[Ô] & SenhaBD
70 ConexaoADO.CursorLocation = adUseClient
80 CNN_string = ConexaoADO.ConnectionString
90 MsgBox CNN_string
ConexaoADO.Open
160 On Error GoTo 0
170 Exit Sub
SU_Conecta_Error:
180 MsgBox [Ô]Ocorreu um error de número: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description & [Ô], na linha: [Ô] & Erl & [Ô] - [Ô] & Err.Description & [Ô] na procedure SU_Conecta no Módulo CONECXAO_BD[Ô]
End Sub
ALFTERRA tenta assim
IPconexao = [Ô]numero do ip remoto[Ô]
CaminhoBD = IPconexao & [Ô]\pasta do pc remoto\imo.fdb[Ô]
ou seja indique o caminho completo pra ver se a conexão é efetuada, tenha certeza que a pasta do pc remoto esteja compartilhada.
IPconexao = [Ô]numero do ip remoto[Ô]
CaminhoBD = IPconexao & [Ô]\pasta do pc remoto\imo.fdb[Ô]
ou seja indique o caminho completo pra ver se a conexão é efetuada, tenha certeza que a pasta do pc remoto esteja compartilhada.
Treze, já tentei e também não deu, com IP e sem IP e nada...... já tou quase desistindo...................
olha tente o seguinte acesse a pasta pelo explorer do windows depois copie o caminho e cole no local, ficará algo mais ou menos assim
CaminhoBD = [Ô]\\pc remoto\pasta do programa\imo.fdb[Ô]
repare que começa com duas barras
CaminhoBD = [Ô]\\pc remoto\pasta do programa\imo.fdb[Ô]
repare que começa com duas barras
Citação:CaminhoBD = [Ô]\\pc remoto\pasta do programa\imo.fdb[Ô]
Sempre usei assim e funcionou, verifica se a porta 3050 esta ativo no firewall do servidor e estação.
Caso esteja, libere a porta ou desative o firewall.
Abraços
Troca seu componente de conexão....
Eu utilizo a SIBPRO2.dll e não tenho nenhum problema!!!
Eu utilizo a SIBPRO2.dll e não tenho nenhum problema!!!
Galera o problema não era no provedor, e sim no drive de rede, a rede tem agumas restrições, coloquei o bnaco em outra maquina e foi numa boa......
valew....
valew....
Tópico encerrado , respostas não são mais permitidas