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

Sempre agradeço as dicas e digo se deu certo, até porque outros poderão vir com a mesma dúvida e assim fica mais fácil aprender quando vc vê que o tópico foi resolvido. Comecei a usar a SQLib a pouco tempo, aliás a programação fivewin comecei tb a pouco tempo. Agora só tira uma dúvida minha: se tem as ações específicas na SQLIB como vc citou SQLNTRIM,SQLSTR... por que que o meu funcionou só usando '"+cLogin+"'...? pois exite no meu formulário campos com caracter, numérico... Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

Boa tarde pessoal, obrigado a todos pelas dicas. 1ºgss200610 - Troquei a posição da linhas COMIT e END TRANSACTION. 2ºJmsilva - Amigo só consegui enviar os dados depois que modifiquei os dados do VALUES ('"+cLogin+"','"+cTelefone+"','"+cEndereco+"','"+cSenha+"'). 3ºeco_fw - Mais um vez orbigado pela dica Eco, ficou muito mais fácil encontrar o erro. Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | Workshop V4.5

Bom dia pesssoal, Montei um função no meu fonte para inserir dados no BD Mysql através de formulário. O que será que está havendo, pois não consigo inserir os dados no BD? Desde já agradeço. Segue código: Function Cad_Func(oBrw,aResult) Local oDlg,lGrava:=.f. Local oGetLogin,oGetTelefone,oGetEndereco,oGetSenha Local cLogin:=space(25),cTelefone:=space(10),cEndereco:=space(20),cSenha:=space(10) DEFINE DIALOG oDlg RESOURCE "cad_func" TITLE "Cadastrar Funcionário" ICON "vitor_icone.ico" REDEFINE GET oGetLogin VAR cLogin ID 105 OF oDlg REDEFINE GET oGetTelefone VAR cTelefone ID 106 OF oDlg REDEFINE GET oGetEndereco VAR cEndereco ID 107 OF oDlg REDEFINE GET oGetSenha VAR cSenha ID 108 OF oDlg REDEFINE BUTTON ID 109 OF oDlg ACTION (lGrava:=.t.,oDlg:end()) REDEFINE BUTTON ID 110 OF oDlg ACTION (lGrava:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED IF lGrava:=.f. RETURN ENDIF IF lGrava:=.t. sql_cmd = "INSERT INTO cadastro (Login,Telefone,Endereco,Senha) VALUES (cLogin,cTelefone,cEndereco,cSenha)" BEGIN TRANSACTION SQLExecute(sql_cmd) END TRANSACTION COMMIT TRANSACTION ENDIF Return Nil Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Editado por - vmolina on 24/01/2012 15:08:27

Bom dia pesssoal, Montei um função no meu fonte para inserir dados no BD Mysql através de formulário. O que será que está havendo, pois não consigo inserir os dados no BD? Desde já agradeço. Segue código: Function Cad_Func(oBrw,aResult) Local oDlg,lGrava:=.f. Local oGetLogin,oGetTelefone,oGetEndereco,oGetSenha Local cLogin:=space(25),cTelefone:=space(10),cEndereco:=space(20),cSenha:=space(10) DEFINE DIALOG oDlg RESOURCE "cad_func" TITLE "Cadastrar Funcionário" ICON "vitor_icone.ico" REDEFINE GET oGetLogin VAR cLogin ID 105 OF oDlg REDEFINE GET oGetTelefone VAR cTelefone ID 106 OF oDlg REDEFINE GET oGetEndereco VAR cEndereco ID 107 OF oDlg REDEFINE GET oGetSenha VAR cSenha ID 108 OF oDlg REDEFINE BUTTON ID 109 OF oDlg ACTION (lGrava:=.t.,oDlg:end()) REDEFINE BUTTON ID 110 OF oDlg ACTION (lGrava:=.f.,oDlg:end()) ACTIVATE DIALOG oDlg CENTERED IF lGrava:=.f. RETURN ENDIF IF lGrava:=.t. sql_cmd = "INSERT INTO cadastro (Login,Telefone,Endereco,Senha) VALUES (cLogin,cTelefone,cEndereco,cSenha)" BEGIN TRANSACTION SQLExecute(sql_cmd) END TRANSACTION COMMIT TRANSACTION ENDIF Return Nil Att Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Editado por - vmolina on 24/01/2012 15:08:27

eco Baixei a apostila do SQLlib vou dar uma lida, para ver como funciona. Mas valeu pelas dicas e pela atenção. Obrigado Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

Eco já vi aqui no fórum o pessoal comentando sobre essa biblioteca, mas não tenho a sqlib. Fico no aguardo. Desde já agradeço Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

Eco_fw, as vezes fico até sem jeito de perguntar essas coisas mas sou um iniciante na programação FiveWin ai não tem jeito as duvidas vem aparecendo e não temos tanto material disponível para estudo. Só montei o diálogo. gastaria de fazer a conexão com o bd mysql e autenticar os campos do dialogo com os dados inseridos no bd? e se possível aprender tb inserir dados no banco através dos campos dos dialogo? é muita coisa..rsrs Desde já agradeço Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

João obrigado pela dica, só que na Funcition testafuncao() quais parâmetros devo usar para fazer a validação? Obrigado Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

Sei que esse tópico já tem um bom tempo aqui no forúm, mas fica de ajuda para que precisar Manual WorkShop http://www.5volution.com.br/downloads/forum/Manual%20Workshop.rar Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

Pessoal boa tarde, tenho o seguinte código: DEFINE DIALOG oDlg RESOURCE "senha" TITLE "Acesso do usuário" 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 A dúvida é a seguinte, tenho uma tabela criada no bd mysql gostaria de autenticar essa senha e usuário na tabela que criei. Como devo proceder? Desde já agradeço a todos pelo espaço. Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Editado por - vmolina on 02/02/2012 08:56:27