Jmsilva

Parabéns......Eh Show

Olá Pessoal, gostei do Sqlite como alternativa para sistema embarcado, parece ser melhor que os DBFs, gostaria de saber se alguém pode me fornecer uma rotina para exemplo usando o Sqlite, ex: inclusão de um registro...(aceito dicas tb) valeu! xHARBOUR/FWH/SQLLIB

Olá Pessoal, gostei do Sqlite como alternativa para sistema embarcado, parece ser melhor que os DBFs, gostaria de saber se alguém pode me fornecer uma rotina para exemplo usando o Sqlite, ex: inclusão de um registro...(aceito dicas tb) valeu! xHARBOUR/FWH/SQLLIB

oActX = TActiveX():New( oWndMapa, "Shell.Explorer.2",0,0 ) oWndMapa:oClient := oActiveX oActiveX:Do("Navigate2",cFILE) Olá Pessoal, o codigo acima abre o Explorer, alguém sabe como usar FIREFOX ? Silva Caraguatatuba/SP xHarbour/fivewin/sqllib

oActX = TActiveX():New( oWndMapa, "Shell.Explorer.2",0,0 ) oWndMapa:oClient := oActiveX oActiveX:Do("Navigate2",cFILE) Olá Pessoal, o codigo acima abre o Explorer, alguém sabe como usar FIREFOX ? Silva Caraguatatuba/SP xHarbour/fivewin/sqllib

Olá pessoal, Alguém pode me dizer como posso obter o resultado em hexadecimal ex: #1E90FF, através do uso paleta de cores. Como por exemplo ChooseColor(). Ideia é qdo o usuário selecionar uma cor, o retorno ser um hexadecimal da cor selecionada. JMSILVA Caraguatatuba/SP

Olá pessoal, Alguém pode me dizer como posso obter o resultado em hexadecimal ex: #1E90FF, através do uso paleta de cores. Como por exemplo ChooseColor(). Ideia é qdo o usuário selecionar uma cor, o retorno ser um hexadecimal da cor selecionada. JMSILVA Caraguatatuba/SP

Valeu a dica, vou usar somente cmd sql, achei o cmd mysql SELECT last_insert_id(), que funciona com o insert e update. Parece que vai funcionar, vamos ver depois em rede nos testes, pois o sistema será usado em todo estado de SP. Obrigado!

Estou usando como o Clipper somente a na inclusão e alteração, as consultas usa cmd sql nativo, não fica bom assim, uso a sqllib.

Olá Pessoal, Estou iniciando com Mysql: Minha tabela Mysql tem campo NUMERO auto incremento. Eu preciso que após incluir um registro, o sistema pegar o número gerado Mysql do campo numero e mostra na tela, acontece que vem zerado, veja o codigo: BEGIN TRANSACTION //GRAVA SQL IF lAPP //Inclusão tabela->(DBAPPEND()) /* grava data hora */ lAPP := .F. ENDIF //altera /* grava os demais campos */ END TRANSACTION //GRAVA SQL SqlCommit() SqlExecute("commit") cNUMERO := tabela->NUMERO //achei que ia pegar o novo numero... se fosse no dbf dava certo..rss oSay:SetText(cNUMERO) RETURN .T. OBRIGADO! FWH,MySQL,SQLLIB,xHARBOUR

Olá Pessoal, Estou iniciando com Mysql: Minha tabela Mysql tem campo NUMERO auto incremento. Eu preciso que após incluir um registro, o sistema pegar o número gerado Mysql do campo numero e mostra na tela, acontece que vem zerado, veja o codigo: BEGIN TRANSACTION //GRAVA SQL IF lAPP //Inclusão tabela->(DBAPPEND()) /* grava data hora */ lAPP := .F. ENDIF //altera /* grava os demais campos */ END TRANSACTION //GRAVA SQL SqlCommit() SqlExecute("commit") cNUMERO := tabela->NUMERO //achei que ia pegar o novo numero... se fosse no dbf dava certo..rss oSay:SetText(cNUMERO) RETURN .T. OBRIGADO! FWH,MySQL,SQLLIB,xHARBOUR

Como faço para que browse vai posicionando conforme digito no get, usando ARRAY. FIZ ISSO: MAS NÃO FUNCIONOU. ..... nPOS := ASCAN(aVETCID, {|X| X[1]=cPESQ}) IF nPOS > 0 oBrw:nRowSel := nPOS oBrw:Refresh() ENDIF .... SILVA CARAGUÃ/SP

Como faço para que browse vai posicionando conforme digito no get, usando ARRAY. FIZ ISSO: MAS NÃO FUNCIONOU. ..... nPOS := ASCAN(aVETCID, {|X| X[1]=cPESQ}) IF nPOS > 0 oBrw:nRowSel := nPOS oBrw:Refresh() ENDIF .... SILVA CARAGUÃ/SP

Alguem sabe de onde é esta rotina? Error: Unresolved external '_hb_storvnll' referenced from C:\XHARBOUR\LIB\FIVEHC.LIB|FWGIF Classe TGif Silva Caraguá/SP

Alguem sabe de onde é esta rotina? Error: Unresolved external '_hb_storvnll' referenced from C:\XHARBOUR\LIB\FIVEHC.LIB|FWGIF Classe TGif Silva Caraguá/SP

Eu uso o BULLZIP, tem no baixaki....é show de bola. Silva Caraguá/SP

Olá pessoal, Uso o xBrowse com DBF, o VSCROLL funciona corretamente, porém acessando a tabela do MySQL com a SQLLIB, o VSCROLL fica perdidinho, qdo está no meio da tabela ele marca que esta top e assim por diante. Não há uma acorrespondência entre a registro e o VSroll. Algo mais a se fazer além de habilita-lo em oBrw:lVScroll := .T. Silva Caraguá/SP xHarbour+Fivewin+Sqllib Editado por - JMSILVA on 21/01/2011 16:44:08

Olá pessoal, Uso o xBrowse com DBF, o VSCROLL funciona corretamente, porém acessando a tabela do MySQL com a SQLLIB, o VSCROLL fica perdidinho, qdo está no meio da tabela ele marca que esta top e assim por diante. Não há uma acorrespondência entre a registro e o VSroll. Algo mais a se fazer além de habilita-lo em oBrw:lVScroll := .T. Silva Caraguá/SP xHarbour+Fivewin+Sqllib Editado por - JMSILVA on 21/01/2011 16:44:08

Veja a solução.....ficou dez veja 13ª Reposta Silva Caraguá/SP Editado por - jmsilva on 20/01/2011 11:27:01

Veja a solução.....ficou dez veja 13ª Reposta Silva Caraguá/SP Editado por - jmsilva on 20/01/2011 11:27:01

Olá Pessoal, valeu a força de todos.... Veja o que eu queria extamente......, com o browse na tela, caso alguem delete ou inclui um registro ele some ou aparece sem qualquer intervensão do usuário..... Grato ao grande Vailton....que me deu uma ajuda por email e a todos..... Vale a pena testar...... STATIC oBRW **=================================================================== FUNCTION main(oWnd) **=================================================================== LOCAL oDlg, oIco, oBar, oFont, oFontG, oBrush LOCAL oBtnSair /* fazer a conexão....MYSQL */ USE CLIENTES ALIAS TEMP NEW VIA "MYSQL" DEFINE ICON oIco FILE "bmp\meuico.ICO" DEFINE FONT oFont NAME "Arial" SIZE 00,-12 DEFINE FONT oFontG NAME "Arial" SIZE 00,-14 DEFINE BRUSH oBrush STYLE "BORLAND" //"BORLAND", "BRICKS", "TILED", "TABS" DEFINE DIALOG oDlg OF oWnd SIZE 710,440; FONT oFont BRUSH oBrush ; ICON oIco TITLE " Clientes"; STYLE nOR(WS_SYSMENU,WS_MINIMIZEBOX) //browse 02 - itens @ 04,04 XBROWSE oBrw OF oDlg SIZE 344,174 PIXEL FONT oFont AUTOSORT CELL LINES ADD COLUMN TO oBrw DATA TEMP->CODIGO HEADER "COD" SIZE 40 CENTER ADD COLUMN TO oBrw DATA TEMP->NOME HEADER "Nome" SIZE 216 oBrw:cAlias := "TEMP" oBrw:lHScroll := .F. //desabilita barra rolagem horizontal oBrw:CreateFromCode() @ 184, 286 BTNBMP oBtnSair PROMPT "&Sair" SIZE 60,20 CENTER 2007; OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTER; ON INIT (Timer(oDlg), oBrw:SetFocus()) DBCLOSEAll() RETURN NIL **============================================== FUNCTION Timer(oDlg) **============================================= LOCAL oTmr DEFINE TIMER oTmr INTERVAL 1000 ; ACTION (SQLEXECUTE( "commit"),oBrw:Gotop(),oBrw:Refresh()); OF oDlg ACTIVATE TIMER oTmr RETURN NIL

Tudo bem, só vai ser dado :End(), quando sair, o funcionamento da lágica parece estar perfeito com ou sem o End(), o que ele não fez foi atualização dos dados com banco. (Sincronia) Mandei exibir os dados, fui na tabela com Navicat e deletei um registro, era para atualizar ou seja sumir da tela, mas não atualizaou, sair e entrei na rotina ai sim atualizou..... Caption...

onde consta oBrw:End() leia-se OTmr:End(), erro de digitação no forum.... eps

Quase funcionou o exemplo abaixo, falta apenas atualizar o CURSOR com os dados banco e atualizar a tela, com :Refresh() **============================================================== FUNCTION X_BRW_INTERATIVO() **============================================================== LOCAL oDlg, oBrw, cSQL cSQL := " SELECT codigo, nome FROM clientes " USE SQL (cSQL) ALIAS Temp Temp->(DBGOTOP()) DEFINE DIALOG oDlg SIZE 700,324 TITLE " Teste" @ 01,01 XBROWSE oBrw SIZE 340,130 PIXEL OF oDlg LINES CELL ADD COLUMN TO oBrw DATA Temp->codigo HEADER "Codigo" SIZE 40 CENTER ADD COLUMN TO oBrw DATA Temp->nome HEADER "Nome" SIZE 50 oTB:CreateFromCode() //vincula as colunas ao formulario oDlg:oClient := oBrw ACTIVATE DIALOG oDlg CENTER; ON INIT (Timer(oDlg,oBrw,cSQL), oBrw:SetFocus()) Temp->(DBCLOSEAREA()) RETURN NIL **============================================== FUNCTION Timer( oDlg, oBrw, cSQL ) **============================================= LOCAL oTmr DEFINE TIMER oTmr INTERVAL 1000 ; ACTION (SQLSetQuery((cSQL), .F. ),oBrw:Refresh()) OF oDlg ACTIVATE TIMER oTmr oBrw:End() RETURN NIL Se alguém puder ajudar agradeço!

Olá Pessoal, alguém tem alguma dica para justificar um campo memo (texto) na hora de imprimir. valeu Silva Caraguá/SP