cendon

Boa noite Srs.! Estou precisando de alguns tutoriais para sql. Vou migrar uma aplicação, mas inicialmente preciso atualizar um banco de dados que ficara em um servidor remoto. Onde encontro literatura sobre isso ou mesmo alguns exemplos? Um abraço a todos Fivewin 17.7 bcc7 xharbour

Agradeço meu amigo vou testar aqui. Um abraço

Boa noite Srs! Comprei a ultima versão do fivewin, e estou tendo alguns problemas: A aquisição foi para migrar para sql e conseguir utilizar novos recursos. Consegui compilar todos os programas, tive de fazer pequenas alterações, porem notei algo, houve alteração nas resoluções dos BMP quando uso BNTBMP. alguém ja passou por isso? se passou e consegui resolver, é possível me passar o caminho das pedras, ou me enviar um exemplo com rc e fontes do uso do botão. Agradeço Ps. quando estiver convertendo para SQL vou perturbar bastante novamente. rsrsrs Angelo Cendon Fivewin 17.4 Harbour bbc7 25-03-2017 Workshop

Luiz Fernando, não sei se você resolveu o problema da tela do prompt do DOS ficar na barra de acesso, mas vai a dica, quando terminar a checagem chamar o programa usando call [programa.exe] e depois exit, o call executa o comando e continua o script

Bom dia! Talvez não seja este o lugar para a postagem, mas alguém tem noticias do Gilmer? Angelo Cendon

kkkkkk

Obrigado!! Ele deve estar viajando, vou aguardar até semana que vem, o email que eu tinha está correto, de qualquer maneira obrigado João.

Boa tarde Srs.! Estou precisando adquirir a ultima versão do Fivewin, tinha um e-mail do Gilmer mas acho q não funciona mais alguém poderia me passar o contato por favor. Abraço a todos Angelo Cendon

Não de minha autoria peguei na internet, mil desculpas ou autor, quando copiei para o sistema devo ter tirado o cabeçalho function cep() public oBar, cCep, ccepa, dEnd, dBai, dCid, dEst // static oJan cCep := space(9) ccepa := "" //??? sem traco dEnd := SPACE(40) dBai := SPACE(20) dCid := SPACE(20) dEst := SPACE(02) mretorno:=space(9) DEFINE DIALOG oDlg1 FROM 5, 1 TO 15, 70 FONT oFont; TITLE "Pesquisa CEP" ; @ 1, 2 SAY "CEP:" OF oDlg1 @ 1, 4 GET oretorno VAR mretorno OF oDlg1 pict "99999-999" @ 2, 1 BUTTON "&Ok" OF oDlg1 SIZE 50, 12 ; ACTION FindCEP( mretorno, subs(mretorno,1,5)+subs(mretorno,7,2), dEnd, dBai, dCid, dEst ) @ 2,23 BUTTON "&Sair" OF oDlg1 SIZE 50, 12 ACTION oDlg1:End() ACTIVATE DIALOG oDlg1 close data return function FindCEP( cCep, ccepa, dEnd, dBai, dCid, dEst ) Local oPg, cBuf, tmp, aRet := array(7) Local xCep, mcepx, xComando Local mestado, mCidade, mxBairro, mxEndere LOCAL MENDERE, MBAIRRO, MCOD_CIDADE, MIBGEUF, DCEP aFill(aRet,'') cbuf :=space(255) xcep := (cCep) //? cCepa //mcepa = alltrim(tiratraco(ccepa)) // cade a funcao mcepx = alltrim(xcep) If Empty(xCep) .Or. Len(AllTrim(xCep)) <= 1 MsgGet( "É Preciso Digitar o Cep","CEP",@xCEP,,"CEP") xCep := (xCep) mcepx = alltrim(xcep) End //if internet_ok("www.terra.com.br",80) // cade a funcao?? IF ISINTERNET() if xCep <> "00000000" oPg := CreateObject("Microsoft.XMLHTTP") xComando := "https://viacep.com.br/ws/" + xCEP + "/xml" oPg:Open("GET",xComando,.f.) oPg:Send() cBuf := oPg:responseBody if .f. // rtrim(substr(cBuf, at('<resultado_txt>', cBuf)+15, 7)) <> "sucesso" MsgInfo("CEP não encontrado, favor verificar....","Busca") cBuf = space(255) return .t. endif endif mestado := AllTrim((substr(cBuf, at('<uf>', cBuf) + 4, 2))) mCidade := AllTrim((substr(cBuf, at('<localidade>', cBuf) + 12, at('</localidade>', cBuf) - (at('<localidade>', cBuf) + 12)))) mxBairro := AllTrim((substr(cBuf, at('<bairro>', cBuf) + 8, at('</bairro>', cBuf) - (at('<bairro>', cBuf) + 8)))) mxEndere := AllTrim((substr(cBuf, at('<tipo_logradouro>', cBuf) + 17, at('</tipo_logradouro>', cBuf) - (at('<tipo_logradouro>', cBuf) + 17)))) mxendere += " "+((substr(cBuf, at('<logradouro>', cBuf) + 12, at('</logradouro>', cBuf) - (at('<logradouro>', cBuf) + 12)))) // mxBairro := HB_OemToAnsi( HB_UTF8ToStr( mxBairro )) // mxEndere := AllTrim( HB_OemToAnsi( HB_UTF8ToStr( mxEndere )) ) // mCidade := HB_OemToAnsi( HB_UTF8ToStr( mCidade )) if empty(mxEndere) if MsgYesNo("Cidade sem Logradouro nos Correios, Confirma troca ?") mEndere := mxendere mBairro := mxBairro Else Return .f. endif else mEndere := mxendere mBairro := mxBairro endif mCod_cidade := upper((substr(cBuf,at('<ibge_municipio_verificador>', cBuf) + 28, 07))) mIbgeUF := upper((substr(cBuf, at('<ibge_uf>', cBuf)+ 9, 02))) dEnd := Substr(mEndere+space(40),1,40) dBai := Substr(mBairro+space(30),1,40) dCid := Substr(mCidade+space(50),1,50) dEst := Substr(mestado+space(2),1,2) dCep := SubStr(xCep,1) // ,5)+"-"+SubStr(xCep,6) msgalert( "Rua: "+dend +CRLF+CRLF+; "Bairro: "+dbai+CRLF+CRLF+; "Cidade: "+dcid+CRLF+CRLF+; "Estado: "+dest+CRLF+CRLF+; "CEP: "+dcep) // ? dEnd, dBai, dCid, dEst, dCep // oJan:Update() // oJan:Display() //??? Nao entendi... O que faz isso? Quebrou. //SysRefresh() // Porque? Tem algum looping aqui? endif return .t. Function TiraTraco(ccepa) ccepa := StrTran(ccepa,"-","") Return(ccepa) FUNCTION TIRA_ACENTUACAO( cStr ) local cStrNew := "", nX cAcentos := {"—","ƒ","Æ","Ç"," ","µ","…","·","‚","É","ê","ˆ","","Ò","í","Í","ó","¢","à","ä","å","“","â","ú","é","","š","ç","€","ã","Ã","á","Á","à","À","é","É","ê","Ê","í","Í","ó","Ó","õ","Õ","ô","Ô","ú","Ú","ü","Ü","ç","ù","AAO","§","¦","º","ª","€","‡","Ç","ç","'","`","ø","¡","Þ","×","Ø", chr(239)} cLetras := {"U","A","A","A","A","A","A","A","E","E","E","E","E","E","I","I","O","O","O","O","O","O","O","U","U","U","U","C","C","A","A","A","A","A","A","E","E","E","E","I","I","O","O","O","O","O","O","U","U","U","U","C"," ","CAO",".",".",".",".","C","C","C","C","" ,"" ,".","I","I","I","I", "" } For nX := 1 TO LEN(cAcentos) cStrNew := StrTran(cStr, cAcentos[nX], cLetras[nX]) cStr := cStrNew Next Return( cStrNew )

Amigos! Agradeço a todos a colaboração. funcionou corretamente. Agradecimento especial ao Rocinha, pelo caminho das pedras. Muito bom as rotinas implementadas da ADO. Parabens pelo trabalho um abraço a todos

Bom dia Srs. consegui conectar e criar tabelas usando as rotinas da ADO. estou executando umas rotinas do Rocinha e deu um erro nesta linha oBrw:nHeaderHeight := 2 Error description: Erro base/1005 Message not found TWBROWSE :_NHEADERHEIGHT Pesquisei no forum e na net me parece que precisa de uma classe modificada do Herman. Procede? Ela é publica? se for, como consigo? obrigado

Srs. problema inicial solucionado, os arquivos que peguei do Rocinha estavam com problemas, baixei novamente de outro endereço que ele postou (4share) e parece que esta funcionando, vou testar mais. Obrigado a todos

rsrsrsrs, ok ok ok! Já ate voltei pra versão anterior e estou tentando a ADO Aproveitando o gancho tentei compilar o Customer.prg do Rocinha e deu erro: customer.prg(13) Error E0030 Syntax error: "parse error at ´CTITLE´" A linha de comando e: default cTitle := "Teste MySQL" Ocorrem outros erros mas imagino que estejam ligados A versão que estou usando e: FiveWin for Harbour 6.12 Borland C++ Compiler 5.5 Workshop Um abraço a todos

Obrigado Rocinha, já tinha visto nas minhas pesquisas. Vou estudar Um abraço

rsrs, agradeço a resposta, vai mais uma. Encontrei na internet para baixar uma versão mais nova do fivewin num forum de fivewin não me lembro bem o forum mas vou procurar nos historicos, porem não sei se é pirata, se for desde já aviso que se tudo funcionar vou adquirir uma versão legal com o Gilmer. A versão é a seguinte: versão do FivewinH 14.12 Xharbour: xharbour 1.2.3 (simplex) (build 20141106) Quanto tento recompilar os programas aparece a mensagem de erro reclamando da falta da .CH SQLRDD.CH Preciso instalar o Mysql para a compilação funcionar? A versão que baixei está incompleta? Ela é pirata? Agradeço desde já a atenção

Agradeço a colaboração de todos, vou dar uma estudada nos links enviados. So mais uma coisa, alguém tem o endereço para download da sqllib demo ou free para que eu possa testar? Tentei buscar na internet mas a pagina do Vailton que aparece, está fora do ar.

Mil desculpas srs. não percebi que o perfil não estava aparecendo nas mensagens, FiveWin for Harbour 6.12 Borland C++ Compiler 5.5 Workshop Belo Horizonte - MG

Boa tarde Srs. Estou precisando da valiosa ajuda dos mestres. Preciso acessar um banco de dados MySql, que está num servidor remoto (Inclusão, exclusão e alteração de dados). Onde posso encontrar algum material para a empreitada. Pesquisei sobre a SQLLIB do Vailton, existe ou existia um versão para avaliação (demo), porem não encontro para baixar em nenhum lugar. Se alguém possuir manual ou exemplos que possam ser postados ou enviados para mim ficaria muito agradecido Um abraço a todos Angelo Cendon

Srs boa tarde! Preciso de uma pequena ajuda, estou tentando colocar um dbu dentro de uma aplicação porem esta dado um erro na compilação fonte @ 0, 0 XBROWSE oBrw OF oWnd LINES ; AUTOCOLS ALIAS Alias() AUTOSORT ; ON CHANGE ( oMsgBar:cMsgDef := "FileName: " + cFileName,; oMsgBar:Refresh(),; oMsgRecNo:SetText( "RecNo: " + ; AllTrim( Str( ( cAlias )->( RecNo() ) ) ) + " / " + ; AllTrim( Str( ( cAlias )->( RecCount() ) ) ) ),; oMsgTagName:SetText( "Ordered by: " + If( ! Empty( OrdName() ), OrdName(), "Natural order" ) ),; oMsgDeleted:SetText( If( ( oBrw:cAlias )->( Deleted() ),; "DELETED", "NON DELETED" ) ),; oMsgDeleted:SetBitmap( If( ( oBrw:cAlias )->( Deleted() ),; "deleted", "nondeleted" ) ) ) Erro Error E0030 Syntax error: "parse error at '@'" a versao do fivewin é a 6.12 e do xharbour é 0.99.71 simplex Obrigado de antemão Um abraço

http://code.google.com/p/fivewin-contributions/downloads/detail?name=Explorer%20Lib-2.0-win32.exe&can=2&q=

Quando preciso de saber como executar um comando do Excel no Fivewin constumo gravar uma macro no excel executando o comando, salvo e depois edito fiz isso e a resposta para sua pergunta foi Sheets.Add After:=Sheets(Sheets.Count) não testei mas talvez seja: oExcel:Sheets:Addafter()

Imagino que seja a mesma interpretação da Picture no DOS(Clipper), porque quando é colocada a Picture e a movimentação do cursor é feita pelas setas ele também não apaga.

Funciona normalmente, mas a picture correta acho que é: "@K!"

Olá pessoal! To com um pequeno problema, já procurei no fórum e no google mas não consegui encontrar nada sobre colocar uma figura dentro de uma planilha do excel. Achei uma maneira de colocar no cabeçalho. oAS:PAGESETUP:CENTERHEADERPICTURE:FILENAME := "C:\IMAGEM\AJLOGO.BMP" // SELECIONA A IMAGEM oAS:PAGESETUP:CENTERHEADER := "&G" // MOSTRA A IMAGEM (NÃO SEI PORQUE MAS SEM ESTA LINHA NÃO MOSTRA) mas no corpo da planilha não achei nada. Se alguém puder ajudar Um abraço Angelo Cendon

http://fivewin.com.br/index.php?/topic/21673-usando-o-createobject-excelapplication/?hl=excel http://fivewin.com.br/index.php?/topic/21727-classe-tword-resolvido/?hl=word