fabin01 Posted September 17, 2009 Author Report Share Posted September 17, 2009 citação:cheguei do rango agora.. Cara.. não to recebendo seu arquivo.. se vc. mandou o mesmo RAR tá com erro.. gere outro e tenta abrir com o Winrar pro C ver.. tá dando a mensagem " Teste.agenda.rar: final inesperado do arquivoi" tente zipar a pasta sem dar nome a ela.. creio que este erro seja devido ao "teste"+"agenda.rar" e o que vc. mandou anteriormente tem um arquivo tstd.prg que não tem nada a ver com conecção de mysql to no aguardo.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>cara te reenviei é o seguinte ico tire-me uma duvida vc disse que fez criaçao de tabelas usando este comnado tbm * DBCreate("cadastro2",{{"NOME","C",40,0},{"SOBRENOME","C",20,0}},"MySQL")* sqlexecute("Create Table cadastro2 (NOME VARCHAR (40), VARCHAR (20))")no caso no final nao precisa colocar, "MySQL" quando ta na linha do sqlexecute? e pra criaçao tem q fazer com o dbcreate e depiis sqlexecute? deu certo deste jeito??valewsObrigado pela ATENÇÃO e AJUDA!"O homem deve criar as oportunidades e não somente encontrá-las."Fábio Igor (BH-MG)fabio.igor@hotmail.comInicianteFWH 2.8[x]Harbour 9.61xdev 0.70Pelles CEditado por - fabin01 on 17/09/2009 15:07:44 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 17, 2009 Report Share Posted September 17, 2009 Não precisar nada, basta copiar o codigo ai e colar que vai criar a CADASTRO3.FRM //-- IF(! Table("Cadastro3") ) aestru:={} Aadd(aestru, {"DTCOMPRA", "D", 010,000 }) Aadd(aestru, {"VALIDADE", "D", 010,000 }) Aadd(aestru, {"MARCA", "C", 025,000 }) Aadd(aestru, {"NUMERO", "C", 025,000 }) Aadd(aestru, {"LOJA", "C", 025,000 }) Aadd(aestru, {"VALOR", "N", 010,002 }) Aadd(aestru, {"DONO", "C", 003,000 }) Aadd(aestru, {"VEICULO", "C", 025,000 }) If MsgYesNo("Tabela3 Não encontrada no BD"+CRLF+"Deseja cria-la ?","..::Base de Dados") dbCreate("CADASTRO3", aEstru) Endif endifid=code>id=code>//-- Temos que ver seu PRG inteiro.. não é possivel tem que ter alguma coisa erra nele.. pra coisaa funcionar tudo tem estar no seu devido lugar, cada "," cada IF cada endif, etc... Realmente o arquivo que vc. me mandou tá corrompido e não recebo o seu PRG. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 17/09/2009 15:38:40 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 17, 2009 Author Report Share Posted September 17, 2009 mas luiz estava lendo uns topicos seus anteriores e vc disse que das duas maneiras que coloquei acima deu certo... mas especificamente na segunda que me interessei mais e tenho um pouco de conhecimento, nela nao prescisa colocar o "MySQL no final nao? uai corrompido?? eu abro ele normamente quando baixo, eu hein!!! luiz e se for criar desta forma que voce postou agora la no final precisa do "MySQL" brother ou nao precisa? e quando for chave rimaria, auto incremento, not null como faço? e no caso este aestru que voce criou devo definir como variavel local, nao? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:40:42 Editado por - fabin01 on 17/09/2009 15:41:55 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 17, 2009 Report Share Posted September 17, 2009 citação:mas luiz estava lendo uns topicos seus anteriores e vc disse que das duas maneiras que coloquei acima deu certo... mas especificamente na segunda que me interessei mais e tenho um pouco de conhecimento, nela nao prescisa colocar o "MySQL no final nao? uai corrompido?? eu abro ele normamente quando baixo, eu hein!!! luiz e se for criar desta forma que voce postou agora la no final precisa do "MySQL" brother ou nao precisa? e quando for chave rimaria, auto incremento, not null como faço? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:40:42 id=quote>id=quote>Não não precisa não.. é do jeitinho que tá ai. só copieu do meu prg e colei aqui... Vou te mandar no seu email o meu PRG e vc. altera com a suas necessidades e veja que vai dar certo... Abraços.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 17, 2009 Author Report Share Posted September 17, 2009 citação: citação:mas luiz estava lendo uns topicos seus anteriores e vc disse que das duas maneiras que coloquei acima deu certo... mas especificamente na segunda que me interessei mais e tenho um pouco de conhecimento, nela nao prescisa colocar o "MySQL no final nao? uai corrompido?? eu abro ele normamente quando baixo, eu hein!!! luiz e se for criar desta forma que voce postou agora la no final precisa do "MySQL" brother ou nao precisa? e quando for chave rimaria, auto incremento, not null como faço? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:40:42 id=quote>id=quote>Não não precisa não.. é do jeitinho que tá ai. só copieu do meu prg e colei aqui... Vou te mandar no seu email o meu PRG e vc. altera com a suas necessidades e veja que vai dar certo... Abraços.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>e quando for chave rimaria, auto incremento, not null como faço? e no caso este aestru que voce criou devo definir como variavel local, nao? nao entendi mto o codigo nao... se a a tabela existe ele vai emitir o que?? no caso a aestru nao devia estar antes do if nao?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:50:08 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 17, 2009 Report Share Posted September 17, 2009 citação: citação: citação:mas luiz estava lendo uns topicos seus anteriores e vc disse que das duas maneiras que coloquei acima deu certo... mas especificamente na segunda que me interessei mais e tenho um pouco de conhecimento, nela nao prescisa colocar o "MySQL no final nao? uai corrompido?? eu abro ele normamente quando baixo, eu hein!!! luiz e se for criar desta forma que voce postou agora la no final precisa do "MySQL" brother ou nao precisa? e quando for chave rimaria, auto incremento, not null como faço? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:40:42 id=quote>id=quote>Não não precisa não.. é do jeitinho que tá ai. só copieu do meu prg e colei aqui... Vou te mandar no seu email o meu PRG e vc. altera com a suas necessidades e veja que vai dar certo... Abraços.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>e quando for chave rimaria, auto incremento, not null como faço? e no caso este aestru que voce criou devo definir como variavel local, nao? nao entendi mto o codigo nao... se a a tabela existe ele vai emitir o que?? no caso a aestru nao devia estar antes do if nao?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 15:50:08 id=quote>id=quote>Vamos primeiro conseguir criar a tabela depois a gente dá + um passo qto. ao IF endif é + -id=red> Q vc. dizer If "Se tiver faz isso" Else "Senão faz isso" Endif "Vou fazer isso assim mesmo"id=code>id=code>Veja seu email que vc. já vai entender.. agora vai.. achoid=size1> Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 17/09/2009 16:01:51 Editado por - ico on 17/09/2009 16:03:16 Editado por - ico on 17/09/2009 16:04:52 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 17, 2009 Author Report Share Posted September 17, 2009 para que server esta parte luizz * dbCreate("CADASTRO", aEstru) *endifid=code>id=code>Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 17/09/2009 16:07:25 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 17, 2009 Report Share Posted September 17, 2009 citação:para que server esta parte luiz * dbCreate("CADASTRO", aEstru) *endifid=code>id=code>Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C id=quote>id=quote>Pra nada tanto é que tá com o "*" que é mesma coisa que "/*" é que eu tava fazendo testes com a tabela e enchia ela de registros e ao invés de apago-los eu simplesmente tirava os "*" e recriava ela vazia.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 17, 2009 Author Report Share Posted September 17, 2009 Consegui Luis agora deu certo criou o frm hehehe... vcs todos sao feras mesmo hein.. tenho que aprender muito ainda.. agora luiz para salvar dados nela como vou fazer minha dialog ja ta pronta com o botao salvar e as editbox como devo proceder?? valew Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 30, 2009 Author Report Share Posted September 30, 2009 Galera é o seguinte tive que mudar de maquina pois a minha deu pau.. entaum para nao atrasar mais o projeto fui para outra maquina e peguei omeu prg que tinha deixado no email... o problema é que agora minha conexao com o banco esta dando problema tentei resolver de todas as formas lendo e relendo este toico porem nao consegui por isso estou recorrendo a voces.. é o seguinte estou utlizando esta função para fazer conexao com o banco SQL CONNECT ON 'localhost'; // faz conexao com mysql e database PORT 3306; USER "root"; PASSWORD 'solution'; OPTIONS SQL_NO_ERROR; LIB 'MySQL' IF SQLErrorNO() > 0 alert('Nao Conectou') // se teve erro nao conecta Return .F. else alert('Conexao Estabelecida com sucesso!') // se nao houve erro conecta a database endif //? "Estou conectado ao DB: ",ToString(sqlArray("SELECT DATABASE()")) *----- aDBS:= sqlArray("Show Databases") //a variavel recebe a database IF ASCAN(aDBS,{|X|X[1]="agenda"}) # 0// caso retorne numero diferente de zero é pq existe SQLExecute("USE agenda") // comaando para usar a database no programa ELSE IF msgYesNo("DataBase Inexistente"+CRLF+"Deseja Crialo Agora ?","....::DataBases") // se nao eu crio ela para usar SQL EXECUTE "CREATE DATABASE agenda" SQLExecute("Use agenda") ENDIF ENDIF Return .t.id=code>id=code>porem ela cria a database mas nao usa ela ou seja quando vou clico em sim para criar a tabela e vou olhar pra v se criou nao criou e sqllog informa que a databse nao foi selecionada e quando coloco DATABAse 'agenda' no codigo acima ele conecta na database cria as tabelas porem nao salva os dados de jeito nenhum... meu codigo antigamente nao tinha o DATABAse 'agenda' e conctava ao banco e salvava os dados normalmente... nao sei o que esta acontecedno mas acho que tem haver com essa conexao alguem ai pode me ajudar.. ja perdi horas.. e ja estou bastatnte atrasado valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 30/09/2009 15:27:52 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 30, 2009 Report Share Posted September 30, 2009 Já tentou reinstalar o MySql na "outra" maquina ?? vc. instalou ou pelo instalador ou copiou ?? Se estava funcionando em um micro e neste não, não tem nada a ver com o seu código.. Apos Conectar ? "Os arquivos estão neste endereço: ",; ToString(sqlArray("SHOW VARIABLES WHERE VARIABLE_NAME = 'DATADIR'"))id=code>id=code>certifique-se que os arquivos estão lá mesmo.. Procure um pai de santo, um padre e um evengálico Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 30, 2009 Author Report Share Posted September 30, 2009 ja certifiquei disso tbm luiz... acho que vou ter que chamar mesmo rsrsrs... te mandei o prg la vc deu uma olhada?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 o que ta acontecendo no codigo galera, tem algo errado?? so conecta a database se eu colocar o comando id=code>id=code> e quando conecta nao salva os dados e na sqllog nao aparece nenhum erro.. o que pode estar acontecendo??Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 1, 2009 Report Share Posted October 1, 2009 citação:ja certifiquei disso tbm luiz... acho que vou ter que chamar mesmo rsrsrs... te mandei o prg la vc deu uma olhada?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS id=quote>id=quote>Não Recebi... Mas volto a dizer, se no micro que pifou funcionava, não tem nada a ver com o seu PRG. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted October 1, 2009 Author Report Share Posted October 1, 2009 olha so resolvi aqui... fiz o seguinte ao invez de colocar SQLExecute("use agenda") coloquei SQL EXecute "Use agenda" e deu certo... somente isso Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS 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.