vmolina

Eduardo, entrei nesse tópico e resolvi meu problema, usei o SET EXACT ON e agora ta fazendo a comparação certa. valeu pela dica, Obrigado a todos pelas dicas e atenções. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 02/02/2012 08:56:02

rsrsrsrs...só pode ser coisa do mal... Mas ta ok vou testar aqui e retorno a resposta, mas de qualquer forma muito obrigado pela ajuda e atenção. att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 01/02/2012 17:27:59

Segue imagem com as mensagens durante o login. logo após o ultimo alert não aparece a mensagens de senha incorreta agora se eu colocar uma senha(93849585) que está fora do padrão 12345 ele acusa senha incorreta. att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

VAGNER OBRIGADO PELA AJUDA, MAS TA DANDO O SEGUINTE ERRO: Application =========== Path and name: C:\FW1012\samples\vitor.exe (32 bits) Size: 2,082,304 bytes Time from start: 0 hours 0 mins 7 secs Error occurred at: 01/02/12, 16:37:17 Error description: Error BASE/1003 Variable does not exist: CBDSENHA Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

Valeu Eco. Com o SqlArray ele busca a senha na tabela do BD, se a senha do BD é 12345 ele busca essa sequencia e se eu digitar 12345678, como fez a sequencia que o array busco ele não leva em consideração o 678 e acusa que foi feito o login com sucesso, mas quando eu digito uma senha(ex.9485458) que não tem nada a ver com a que está cadastrada no bd o programa acusa senha incorreta. será que entendi essa mistureba que eu fiz? ----------------------------------------------------------------------------------------------- Function Senha(oWnd) LOCAL oDlg LOCAL ogetLogin LOCAL ogetSenha LOCAL cLogin:=space(20) LOCAL cSenha:=space(10) LOCAL lOk:=.f. LOCAL cSQL LOCAL aSQL DEFINE DIALOG oDlg RESOURCE "senha" TITLE "Acesso do usuário" ICON "vitor_icone.ico" REDEFINE GET oGetLogin VAR cLogin ID 101 OF oDlg REDEFINE GET oGetSenha VAR cSenha ID 102 OF oDlg REDEFINE BUTTON ID 103 OF oDlg ACTION (lOk:=.t.,oDlg:end()) REDEFINE BUTTON ID 104 OF oDlg ACTION (lOk:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED IF !lOk //Isso é o botão sair? Entendi assim return ENDIF IF cLogin=" " MsgAlert("Campo NOME não pode der nulo!","Aviso") //VALIDA OS CAMPOS OBRIGATORIOS Return .f. ENDIF IF cSenha=" " MsgAlert("Campo NOME não pode der nulo!","Aviso") //VALIDA OS CAMPOS OBRIGATORIOS Return .f. ENDIF cSQL:='SELECT login,senha FROM cadastro WHERE login = '+SQLSTR(cLogin) aSQL:=sqlArray(cSQL) ?TOSTRING(aSQL) IF EMPTY(aSQL) MSGINFO('Usuário informado não encontrado.','ATENÇÃO') //Não existe este Login no BD RETURN ENDIF cBDSenha:=ALLTRIM(UPPER(aSQL[01,02])) cSenha:=ALLTRIM(UPPER(cSenha)) //Tirei os espaços em branco e deixei em maiúsculo para testar com o retorno do BD IF cSenha != cBDSenha MSGINFO('Senha informada está incorreta.','ATENÇÃO') RETURN ENDIF ? " Olá, " +cLogin Return nil Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 01/02/2012 16:19:41

Eco desculpe pela insistência, mas ta acontecendo o seguinte no campo de Senha. Digito o usuário ex.: Vitor senha: 12345 seu eu digitar esse mesmo usuário com uma senha: 1234567890 passa tb, agora se for uma senha 2343546 aí acusa que senha não confere. coloquei a função TOSTRING(aSQL) e veio os seguintes dados da Tabela no BD {{'Vitor','12345'}}. Desde já agradeço a atenção. Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

Valeu Kapiaba pela dica. Eco, mais uma vez muito obrigado funcionou certinho aqui. Eu só gostaria que você me explica-se essa linha do comando. cBDSenha:=ALLTRIM(UPPER(aSQL[01,02])) Desde já agradeço pela ajuda e atenção. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

Function Senha() Local oDlg,ogetLogin,ogetSenha,cLogin:=space(20),cSenha:=space(10),lOk:=.f. DEFINE DIALOG oDlg RESOURCE "senha" TITLE "Acesso do usuário" ICON "vitor_icone.ico" REDEFINE GET oGetLogin VAR cLogin ID 101 OF oDlg REDEFINE GET oGetSenha VAR cSenha ID 102 OF oDlg REDEFINE BUTTON ID 103 OF oDlg ACTION (lOk:=.t.,oDlg:end()) REDEFINE BUTTON ID 104 OF oDlg ACTION (lOk:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED if lOk==.f. ? " Olá, " +cLogin sql_cmd = "SELECT Login,Senha FROM cadastro WHERE Login='"+cLogin+"'" else alert('Você clicou em sair') endif Return nil Como devo proceder para fazer a autenticação com o banco de dados para verificar se a senha e o usuário estão corretos? Obs.: utilizando BD MySql!!! Desde já agradeço Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5 Editado por - vmolina on 01/02/2012 10:42:30

Valeu pela dica Oliveira. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

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

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

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

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

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

Bom dia Eco_fw, Clareou as idéias, obrigado pela explicação. Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5