ConnDBF is ConnectionConnDBF..Provider = hNativeAccessXBaseConnDBF..User = ""ConnDBF..Password = ""ConnDBF..Source = fCurrentDir()+"\" //fExeDir()+"\"ConnDBF..Database = ""ConnDBF..Access = hOReadWriteIF HOpenConnection(ConnDBF) = False THEN Info("Não foi possivel abrir a conexão para acessar arquivo DBF.") EndProgram()ENDIF HChangeConnection(empresa,ConnDBF) = False Info("Erro ao tentar acessar arquivo DBF.","Erro: "+HErrorInfo()) EndProgram()ENDnReg = HNbRec(empresa) // O ERRO OCORRE AQUIIF HRead(empresa,nReg) = False Info("Não foi possivel encontrar os dados da empresa.") EndProgram(True)END
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 ConnectionConnDBF..Provider = hNativeAccessXBaseConnDBF..User = ""ConnDBF..Password = ""ConnDBF..Source = fCurrentDir()+"\" //fExeDir()+"\"ConnDBF..Database = ""ConnDBF..Access = hOReadWriteIF HOpenConnection(ConnDBF) = False THEN Info("Não foi possivel abrir a conexão para acessar arquivo DBF.") EndProgram()ENDIF HChangeConnection(empresa,ConnDBF) = False Info("Erro ao tentar acessar arquivo DBF.","Erro: "+HErrorInfo()) EndProgram()ENDnReg = HNbRec(empresa) // O ERRO OCORRE AQUIIF 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/SXjwZz6y5gVSe alguem ja passou por isso e puder me ajudar.Marcos Roberto
mude para ConnDBF..Source = completeDir(fCurrentDir())