Search the Community
Showing results for tags 'dbf'.
-
Amiguinhos, Eis uma forma rápida de importação de tabelas .DBF para arquivos .CSV e/ou .XLS de forma rápida: use tabela oExcel := TOleAuto():New( "Excel.Application" ) oWorkbook := oExcel:WorkBooks oWorkbook:Open( (DBF_TEMP) ) oExcel:DisplayAlerts := .f. oExcel:Visible := .t. oWorksheet := oExcel:Get( "ActiveSheet" ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.CSV", 6 ) oWorksheet:SaveAs( cPathDados + "DBF_TEMP.XLS", 56 ) Só não resolvi o processo preso na task manager.
- 6 replies
-
- importação
- dbf
-
(and 3 more)
Tagged with:
-
Boas.. Amigos: Como descubro se um determinado campo existe ou não no meu Arquivo .DBF ? Obrigado.
-
Amiguinhos, Encontrei no meu arquivo de funções. Não lembro de ter usado, mas vai que alguém precise. function dbSaveCRC() if dbFieldCRC() FieldPut(FCount(),dbCalcCRC()) end return nil function dbFieldCRC() return Right(RTrim(FieldName(FCount())),3) == "CRC" function dbCalcCRC() local cSum := "" local f local i * for i := 1 to FCount()-1 f := FieldGet(i) cSum += if(ValType(f) = "C", f ,; if(ValType(f) = "N", Str(f,18,6) ,; if(ValType(f) = "D", DtoS(f) ,; if(ValType(f) = "L", if(f,"1","0"), "")))) next return .t. // CRC32Calc(cSum)
-
Olá pessoal... Boa tarde. Em um cliente foi instalado um Servidor Dell com Windows Server 2008 em Julho de 2016. No dia 03/03 estive lá e fiz um Backup para minha analise. No dia 13/03 estive lá novamente e fui informado que muitas informações haviam desaparecidas do Sistema. Ao checar, reparei que o último movimento encontrado foi registrado no dia 27/02. Tenho cliente que utiliza o mesmo sistema num servidor semelhante a mais de 8 anos e isso nunca ocorreu. A primeira impressão que tive foi de que alguém reinstalou um backup equivocadamente, más não tenho certeza. Perguntas... Alguém já passou por coisa semelhante ? Quais as possíveis causa disto ter ocorrido ? Obrigado.
-
Bom dia! Alguém já usou o comando Join com DBF's ?