|
Windev e Webdev - Acessando base de Dados DBF |
Iniciado por adrianoboller, jun., 20 2015 7:15 PM - 8 respostas |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 7:15 PM |
Procedure DB_Inicializar_DBF()
ok is boolean = False
ok = HDescribeConnection("CntxBase", "", "", fExeDir(), "", hNativeAccessXBase, hOReadWrite, "OEMTOANSI=WINDOWS;")
ok = HChangeConnection("*", "CntxBase")
ok = HDBOpen("Dados", "DA", fExeDir()+"\DADOS.DBF")
IF ok = True THEN
Info(1)
END
ok = HDBOpen("Dados", "DA", fExeDir()+"\MOVIM01.DBF")
IF ok = True THEN
Info(1)
END |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 7:15 PM |
DB_Inicializar_DBF()
FOR EACH Dados
Info(Dados.CODHIST,Dados.CODIGO,Dados.DATALAN,Dados.DESCRICAO,Dados.HISTORIC,Dados.NCONTA,Dados.OBS,Dados.QUANT,Dados.TIPO,Dados.VALOR)
END |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 7:20 PM |
Import as tabelas e defina elas no Analisys como Xbase e altere o subtipo para Clipper 87, conforme imagem abaixo:
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 7:32 PM |
Apesar de ser um arquivo DBF voce pode criar AS Querys de SELECT, INSERT, UPDATE, DELETE desde que tenha importado AS tabelas DBF no analsys e usar em seu sistema como se fosse uma base SQL:
SELECT Dados.CODIGO AS CODIGO, Dados.TIPO AS TIPO, Dados.DATALAN AS DATALAN, Dados.NCONTA AS NCONTA, Dados.QUANT AS QUANT, Dados.DESCRICAO AS DESCRICAO, Dados.CODHIST AS CODHIST, Dados.HISTORIC AS HISTORIC, Dados.VALOR AS VALOR, Dados.OBS AS OBS FROM Dados |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 7:33 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 8:01 PM |
DB_Inicializar_DBF()
ok is boolean = HExecuteQuery(QRY_DeleteAll_MOVI_DBF,hQueryDefault)
IF ok = True THEN
ToastDisplay("Tabela de Movimento DBF Inicializada com Sucesso!",toastShort,vaMiddle,haCenter)
ELSE
Info("Erro: "+ErrorInfo())
END |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 8:42 PM |
Procedure DB_Inicializar_DBF()
ok is boolean = False
gsPathDbf = INIRead("Path","MOVIM01DBF","",fExeDir+"\Config.ini")
IF gsPathDbf <> ""
ok = HDescribeConnection("CntxBase", "", "", gsPathDbf , "", hNativeAccessXBase, hOReadWrite, "OEMTOANSI=WINDOWS;")
ok = HOpenConnection("CntxBase")
ok = HChangeConnection("*", "CntxBase")
ok = HDBOpen("MOVIM01", "MO", gsPathDbf)
IF ok = True THEN
ELSE
Info(ErrorInfo())
END
ELSE Info("É necessário informar o local onde está o arquivo MOVIM01.DBF") END |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 10:08 PM |
Procedure DB_Inicializar_DBF()
ok is boolean = False
gsPathDbf = INIRead("Path","MOVIM01DBF","",fExeDir+"\Config.ini")
IF gsPathDbf <> ""
ok = HDescribeConnection("CntxBase", "", "", gsPathDbf , "", hNativeAccessXBase, hOReadWrite, "OEMTOANSI=WINDOWS;")
ok = HChangeConnection("*", "CntxBase")
ok = HDBOpen("MOVIM01", "MO", gsPathDbf)
IF ok = True THEN
ToastDisplay("Arquivo Movim01.DBF acessado com sucesso!",toastShort,vaMiddle,haCenter)
ELSE
Info(ErrorInfo())
END
ELSE Info("É necessário informar o local onde está o arquivo MOVIM01.DBF") END
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em junho, 20 2015 - 11:08 PM |
Texto = NoAccent(Texto) ChangeCharset(charsetOccidental) IF PositionOccurrence(Texto, "charset=UTF-8",firstRank,FromBeginning) > 0 THEN Texto = UTF8ToString(Texto,charsetAnsi) ELSE BufferTexto is Buffer = Texto IF StringCount(BufferTexto, “ISO-8859-1”, IgnoreCase) = 0 THEN Texto = UTF8ToString(BufferTexto) ELSE Texto = AnsiToUnicode(BufferTexto) END END
|
| |
| |
| | | |
|
| | | | |
| | |
|