vmolina Posted January 27, 2012 Report Share Posted January 27, 2012 Pessoal boa tarde, Fiz um formulário aqui pra excluir dados da minha tabela no BD MySql através das Datas. A dúvida é a seguinte, no meu BD o formato das datas estão 2012-01-26 e gostaria que no formulário eu digita-se para excluir através da forma como estamos familiarizados 26/01/2012. Como devo proceder? Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 30/01/2012 16:03:47 Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 27, 2012 Author Report Share Posted January 27, 2012 Pessoal boa tarde, Fiz um formulário aqui pra excluir dados da minha tabela no BD MySql através das Datas. A dúvida é a seguinte, no meu BD o formato das datas estão 2012-01-26 e gostaria que no formulário eu digita-se para excluir através da forma como estamos familiarizados 26/01/2012. Como devo proceder? Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 30/01/2012 16:03:47 Quote Link to comment Share on other sites More sharing options...
vagner Posted January 27, 2012 Report Share Posted January 27, 2012 OLá, Set Date Brit dData := StoD(StrTran(SuaData,"-","")) Ou ao contrário cData := Tran(DtoS(SuaData),"@R 9999-99-99") Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 27, 2012 Author Report Share Posted January 27, 2012 Vagner Boa Tarde, desculpa mas como eu procedo com esse código no meu fonte? Segue fonte. Function Main() Local oDlg,lGrava:=.f. Local oGetData Local cData:=space(10) Local dDate SQL CONNECT ON 'localhost'; PORT 3306 ; DATABASE "vitortest" ; USER "root"; PASSWORD '123'; OPTIONS SQL_NO_ERROR ; LIB 'MySQL' IF SQLErrorNO() > 0 alert( 'Não conectou' ) //-----QUANDO ALTERO OS DADOS DA ERRO NO SISTEMA else alert( 'Conexão estabelecida com sucesso!') endif Set Date Brit COR_TEXTO:= RGB(70,130,180) DEFINE FONT oFont NAME "ARIAL" SIZE 0,36 BOLD DEFINE DIALOG oDlg RESOURCE "excluir" TITLE "Excluir" ICON "vitor_icone.ico" REDEFINE GET oGetData VAR cData ID 101 OF oDlg picture "@E 99/99/9999" COLOR COR_TEXTO FONT oFont REDEFINE BUTTON ID 102 OF oDlg ACTION (lGrava:=.t.,oDlg:end()) REDEFINE BUTTON ID 103 OF oDlg ACTION (lGrava:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED IF lGrava==.t. sql_cmd = "DELETE FROM test WHERE DATA = ('"+cData+"');" BEGIN TRANSACTION SQLExecute(sql_cmd) COMMIT TRANSACTION // Estrutura. END TRANSACTION MsgInfo ( "Registro excluido com sucesso!","Excluir") ELSE alert('Você clicou em sair') ENDIF Return nil Desde já agradeço a ajuda. att Vitor Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 27/01/2012 17:24:11 Editado por - vmolina on 27/01/2012 17:33:36 Quote Link to comment Share on other sites More sharing options...
vagner Posted January 27, 2012 Report Share Posted January 27, 2012 citação:Vagner Boa Tarde, desculpa mas eu procedo com esse código no meu fonte. Function Main() Local oDlg,lGrava:=.f. Local oGetData //Local cData:=space(10) Local dDate := Date() SQL CONNECT ON 'localhost'; PORT 3306 ; DATABASE "vitortest" ; USER "root"; PASSWORD '123'; OPTIONS SQL_NO_ERROR ; LIB 'MySQL' IF SQLErrorNO() > 0 alert( 'Não conectou' ) //-----QUANDO ALTERO OS DADOS DA ERRO NO SISTEMA else alert( 'Conexão estabelecida com sucesso!') endif Set Date Brit COR_TEXTO:= RGB(70,130,180) DEFINE FONT oFont NAME "ARIAL" SIZE 0,36 BOLD DEFINE DIALOG oDlg RESOURCE "excluir" TITLE "Excluir" ICON "vitor_icone.ico" REDEFINE GET oGetData VAR dData ID 101 OF oDlg picture "@E 99/99/9999" COLOR COR_TEXTO FONT oFont REDEFINE BUTTON ID 102 OF oDlg ACTION (lGrava:=.t.,oDlg:end()) REDEFINE BUTTON ID 103 OF oDlg ACTION (lGrava:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED IF lGrava==.t. sql_cmd = "DELETE FROM test WHERE DATA = ('"+Tran(DtoS(dData),"@R 9999-99-99") +"');" BEGIN TRANSACTION SQLExecute(sql_cmd) COMMIT TRANSACTION // Estrutura. END TRANSACTION MsgInfo ( "Registro excluido com sucesso!","Excluir") ELSE alert('Você clicou em sair') ENDIF Return nil como eu devo proceder? att Vitor Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 27/01/2012 17:24:11 id=quote>id=quote>Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 27, 2012 Author Report Share Posted January 27, 2012 Vagner, desculpa minha falta de conhecimento mas tem como fazer 27/01/2012? e essa função que vc me passou só exclui o dia de hj. Eu gostaria de escolher a data para a exclusão. tem como? Desde já agradeço a ajuda Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Quote Link to comment Share on other sites More sharing options...
vagner Posted January 30, 2012 Report Share Posted January 30, 2012 Vc mudou a data quando apareceu o dialog ? pois dData é para aparecer o dia de hoje e vc troca a não ser que vc tenha colocado o seu get como readonly Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted January 30, 2012 Report Share Posted January 30, 2012 BOm Vitor, é como o vagner disse, mas como está usando sqllib, não entendo porque o vagner complicou um pouco em montar a query ^^ (não me leve a mal) criei seu get, usando a variável dData.... monte a query cSQL:='SELECT BOLINHO FROM PACOCA WHERE DATA_FABRICACAO = '+SQLDATE(dData) sqlExecute(cSQL)id=code>id=code>Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Quote Link to comment Share on other sites More sharing options...
vagner Posted January 30, 2012 Report Share Posted January 30, 2012 citação:BOm Vitor, é como o vagner disse, mas como está usando sqllib, não entendo porque o vagner complicou um pouco em montar a query ^^ (não me leve a mal) criei seu get, usando a variável dData.... monte a query cSQL:='SELECT BOLINHO FROM PACOCA WHERE DATA_FABRICACAO = '+SQLDATE(dData) sqlExecute(cSQL)id=code>id=code>Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Sem problema, mas respondendo sua pergunta Eu não uso SQLLIB alias, eu não uso nenhum BD, eu uso mesmo é o DBF Quanto a Query, eu só coloquei o que eu achei que deveria mudar na dele Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted January 30, 2012 Report Share Posted January 30, 2012 Hehehe, entendi, não fica bravo comigo não, só estranhei só Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Vitor, nunca usei REDEFINE maledeto, mas eu prefiro usar a máscara da data assim REDEFINE GET oGetData VAR dData ID 101 OF oDlg PICT "@D" COLOR COR_TEXTO FONT oFont id=code>id=code>e lembre de por no inÃcio do sistema o SET DATE TO BRITISH que o Vagner disse. Editado por - eco_fw on 30/01/2012 15:26:16 Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 30, 2012 Author Report Share Posted January 30, 2012 Obrigado pessoal pelas dicas. consegui resolver essa questão. Agradeço a todos pelas dicas. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 30/01/2012 15:36:19 Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted January 30, 2012 Report Share Posted January 30, 2012 Vitor, Na SQLLIB vc pode usar assim. Seu Get normal PICTURE "99/99/9999" e naao hora de gravar "INSERT/UPDATE tabela SET" " campo = "+Any2Sql(sua_var) Dimob / SPED(pis/cofins) ..:: Mancelo mandou, eu obedeço ::.. Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 31, 2012 Author Report Share Posted January 31, 2012 Valeu pela dica Oliveira. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.