Autor Tópico: Erro de conexao  (Lida 2554 vezes)

Marcos Gurupi

  • Newbie
  • *
  • Mensagens: 16
  • Karma: +0/-0
Erro de conexao
« Online: Agosto 15, 2016, 03:09:13 pm »
Caros, estou desenvolvendo um projeto pequeno. Estou na fase de testes. Ocorre que esta dando uma msg de erro. A conexao passa sem erros no debug. O que esta ocorrendo eh q o windev esta considerando o caminho dos dados na analisys e nao da minha conexao:
Segue abaixo os detalhes:

Meu codigo:

Código: [Selecionar]
ConnDBF is Connection

ConnDBF..Provider = hNativeAccessXBase
ConnDBF..User = ""
ConnDBF..Password = ""
ConnDBF..Source = fCurrentDir()+"\" //fExeDir()+"\"
ConnDBF..Database = ""
ConnDBF..Access = hOReadWrite

IF HOpenConnection(ConnDBF) = False THEN
Info("Não foi possivel abrir a conexão para acessar arquivo DBF.")
EndProgram()
END
IF HChangeConnection(empresa,ConnDBF) = False
Info("Erro ao tentar acessar arquivo DBF.","Erro: "+HErrorInfo())
EndProgram()
END

nReg = HNbRec(empresa)  // O ERRO OCORRE AQUI
IF HRead(empresa,nReg) = False
Info("Não foi possivel encontrar os dados da empresa.")
EndProgram(True)
END


http://screencast.com/t/wtOSS0hNy

A msg do erro na linha 24 onde estou pegando a quantidade de registros:

http://screencast.com/t/SXjwZz6y5gV

Se alguem ja passou por isso e puder me ajudar.

Marcos Roberto





Angelo

  • Newbie
  • *
  • Mensagens: 20
  • Karma: +0/-0
  • Fidelidade com o verdadeiro caminho da Razão
Re:Erro de conexao
« Responder #1 Online: Agosto 24, 2016, 03:28:56 pm »
Caros, estou desenvolvendo um projeto pequeno. Estou na fase de testes. Ocorre que esta dando uma msg de erro. A conexao passa sem erros no debug. O que esta ocorrendo eh q o windev esta considerando o caminho dos dados na analisys e nao da minha conexao:
Segue abaixo os detalhes:

Meu codigo:

Código: [Selecionar]
ConnDBF is Connection

ConnDBF..Provider = hNativeAccessXBase
ConnDBF..User = ""
ConnDBF..Password = ""
ConnDBF..Source = fCurrentDir()+"\" //fExeDir()+"\"
ConnDBF..Database = ""
ConnDBF..Access = hOReadWrite

IF HOpenConnection(ConnDBF) = False THEN
Info("Não foi possivel abrir a conexão para acessar arquivo DBF.")
EndProgram()
END
IF HChangeConnection(empresa,ConnDBF) = False
Info("Erro ao tentar acessar arquivo DBF.","Erro: "+HErrorInfo())
EndProgram()
END

nReg = HNbRec(empresa)  // O ERRO OCORRE AQUI
IF HRead(empresa,nReg) = False
Info("Não foi possivel encontrar os dados da empresa.")
EndProgram(True)
END


http://screencast.com/t/wtOSS0hNy

A msg do erro na linha 24 onde estou pegando a quantidade de registros:

http://screencast.com/t/SXjwZz6y5gV

Se alguem ja passou por isso e puder me ajudar.

Marcos Roberto

Código: [Selecionar]
mude para ConnDBF..Source = completeDir(fCurrentDir())

Quando quiser o [fsep()], dependendo do sistema operacional a barra será "\" ou essa "/"


Marcos Gurupi

  • Newbie
  • *
  • Mensagens: 16
  • Karma: +0/-0
Re:Erro de conexao
« Responder #2 Online: Agosto 24, 2016, 03:43:52 pm »
Caro, obrigado por responder. Consegui a solução usando/substituindo o comando:

Ao inves de:
HOPEN(...

Eu usei para o DBF:

HDBOpen(...

Ai td se clareou.


Marcos Roberto.