Jump to content
Fivewin Brasil

Salvar dados da dialog no BD(RESOLVIDO)


fabin01

Recommended Posts

Vc. pode ainda passar para Botão antes de salvar e checar todas as variaveis que não podem ser nulas..

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>

Link to comment
Share on other sites

  • Replies 91
  • Created
  • Last Reply

Top Posters In This Topic

citação:

Vc. pode ainda passar para Botão antes de salvar e checar todas as variaveis que não podem ser nulas..

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>

luiz no caso teria que fazer funçao para todas as variaveis??

nao tem como eu criar uma funçao so para verificar todos da dialog nao??

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

Link to comment
Share on other sites

citação:

citação:

Vc. pode ainda passar para Botão antes de salvar e checar todas as variaveis que não podem ser nulas..

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>

luiz no caso teria que fazer funçao para todas as variaveis??

nao tem como eu criar uma funçao so para verificar todos da dialog nao??

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>

Ué ??? mas é exactamente o que eu to dizendo ai..

Ao clicar no Botão vai para uma Function checar todas as variaveis antes de ir para a Function de Gravação...

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>

Link to comment
Share on other sites

entendi..

agora me explica onde coloco pois coloquei antes do action porem deu erro

vou postar o codigo

id=code>
id=code>

onde devo colocar?

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

Link to comment
Share on other sites

Na propria Function de Gravação tb. dá pra fazer isso


Function_de_Gravação()

If cVar=" "

MsgAlert

Return .f.

ElseIf cVar2=" "

MsgAlert

Return .f.

ElseIf cVar3=" "

MsgAlert

Return .f.

ElseIf cVar4=" "

MsgAlert

Return .f.

Endif

*

*

Return .t.

id=code>id=code>

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>

Link to comment
Share on other sites

luiz quando vou ver se gravou com o comando

USE "cadastro_clientes" as "Select * from cadastro_clientes" Alias "CADASTRO_CLIENTES" New Via "MySQL"

xBrowse()

ele me retorna este erro...

Unresolved external_HB_FUN_XBROWSE referenced from TESTESISTEMA.OBJ

o que esta acontecendo??

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

Link to comment
Share on other sites


Include "FiveWin.ch"

Include "xBrowse.ch"

id=code>id=code>

Veja agora..

Ou de simplesmente um

Browse()

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>

Link to comment
Share on other sites

citação:


Include "FiveWin.ch"

Include "xBrowse.ch"

id=code>id=code>

Veja agora..

Ou de simplesmente um

Browse()

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>

luiz fiz conforme vc me indicou porem quando coloco o xbrowse acontec o erro que postei anteriormente se coloco so o browse da certo mas nao esta gravando os dados mostra o browse em branco

e quando olho no meu gerenciador a tabela esta em branco mesmo quando clico em salvar

o que pode ser?

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 21/09/2009 10:20:52

Link to comment
Share on other sites

citação:

citação:

Se não deu erro de execução, olhe o sqllog.txt

Luis Fernando Jr.(Luisão)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY


id=quote>id=quote>

esta assim luizao na sqllog.txt

09/17/09 14:54:51 SHOW TABLES LIKE 'Cadastro_Clientes'

09/17/09 14:54:51 SHOW TABLES LIKE 'Cadastro_Clientes'1046:No database selected

09/17/09 14:54:52 SQLLIB/1000: MySQL RDD: No database selected 'Cadastro_Clientes'1046:No database selected

e aqui o meu codigo para gravaçao e minha dialog com suas redefines e gets


Local cEmpresa:=space(35), cContato:=space(30), cEmail:=space(50), cTelefone:=space(13)

USE "cadastro_clientes" as "Select * from cadastro_clientes" Aliasid=red> "CAD_Clientes" New Via "MySQL"

cCodigo=Reccount()

Define Dialog oDLG RESOURCE "AGENDA_CADASTRO_e_ALTERA" Title "Cadastro de Clientes"

Redefine BTNBMP obnt1 prompt "Cancelar";

ID 7 of oDLG Action oDLG:end()

Redefine Get oGet Var cCodigo ID 1 of oDLG when(.f.)

Redefine Get oGet Var cEmpresa ID 2 of oDLG

Redefine Get oGet Var cContato ID 3 of oDLG

Redefine Get oGet Var cEmail ID 4 of oDLG

Redefine Get oGet Var cTelefone ID 5 of oDLG

Redefine BTNBMP obnt2 prompt "Salvar";

ID 6 of oDLG Action Salvar_Agenda_Cadastro(@cCodigo,@cEmpresa,@cContato,@cEmail,@cTelefone)

Activate Dialog oDLG CENTERED

Return NIL

Function Salvar_Agenda_Cadastro(cCodigo,cEmpresa,cContato,cEmail,cTelefone)

IF cEmpresa=" "

MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso")

Return .f.

EndIf

IF cEmail=" "

MsgAlert("Campo Email nao pode ser Nulo.","..::Aviso")

Return .f.

EndIf

cInsert:= "INSERT INTO cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+;

sqlNtrim(cCodigo)+", "+;

sqlStr(cEmpresa)+", "+;

sqlStr(cContato)+", "+;

sqlStr(cEmail)+", "+;

sqlStr(cTelefone)+") "

SQLExecute( cInsert )

cCodigo=Reccount()+1

Return .t.

id=code>id=code>

o que ta errado??

uma outra duvida para que serve o alias no comando use destacado logo acima?

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 21/09/2009 10:43:28

Editado por - fabin01 on 21/09/2009 10:52:35

Editado por - fabin01 on 21/09/2009 11:16:04


id=quote>id=quote>

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

Link to comment
Share on other sites

Bem fiquei sem ADSL desde 6ª a noite e só restabeleceu hoje.. e como hoje é feriado aqui to em casa de perna pra cima he! he! he!...

Tente mudar isso


USE "cadastro_clientes" as "Select * from cadastro_clientes" Alias "CADASTRO_CLIENTES"id=red> New Via "MySQL"

Browse()

id=code>id=code>

Aqui vc. pode mudar e deixar assim..


Function Salvar_Agenda_Cadastro(cCodigo,cEmpresa,cContato,cEmail,cTelefone)

IF cEmpresa=" "

MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso")

Return .f.

ElseIf cEmail=" "

MsgAlert("Campo Email nao pode ser Nulo.","..::Aviso")

Return .f.

Endif

cInsert:= "INSERT INTO cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+;

sqlNtrim(cCodigo)+", "+;

sqlStr(cEmpresa)+", "+;

sqlStr(cContato)+", "+;

sqlStr(cEmail)+", "+;

sqlStr(cTelefone)+") "

SQLExecute( cInsert )

cCodigo=Reccount()+1

Return .t.

id=code>id=code>

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>

Editado por - ico on 21/09/2009 15:22:14

Link to comment
Share on other sites

citação:

Bem fiquei sem ADSL desde 6ª a noite e só restabeleceu hoje.. e como hoje é feriado aqui to em casa de perna pra cima he! he! he!...

Tente mudar isso


USE "cadastro_clientes" as "Select * from cadastro_clientes" Alias "CADASTRO_CLIENTES"id=red> New Via "MySQL"

Browse()

id=code>id=code>

Aqui vc. pode mudar e deixar assim..


Function Salvar_Agenda_Cadastro(cCodigo,cEmpresa,cContato,cEmail,cTelefone)

IF cEmpresa=" "

MsgAlert("Campo Empresa Nao pode ser Nulo.","..::Aviso")

Return .f.

ElseIf cEmail=" "

MsgAlert("Campo Email nao pode ser Nulo.","..::Aviso")

Return .f.

Endif

cInsert:= "INSERT INTO cadastro_clientes (codcliente,empresa,contato,email,telefone) VALUES ("+;

sqlNtrim(cCodigo)+", "+;

sqlStr(cEmpresa)+", "+;

sqlStr(cContato)+", "+;

sqlStr(cEmail)+", "+;

sqlStr(cTelefone)+") "

SQLExecute( cInsert )

cCodigo=Reccount()+1

Return .t.

id=code>id=code>

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>

Editado por - ico on 21/09/2009 15:22:14


id=quote>id=quote>

luiz mudei o que voce me falou mas emite um erro informando que o alias ja existe tendeu, queria saber tbm para que serve este ALIAS?

e como ue mencionei mesmo apertando o botao salvar ele nao ta gravando os dados no banco pq sera? vc nao passou por isso nao rsrsr?

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

Link to comment
Share on other sites

Toda vez que aparecer um erro. copie e cole ele aqui.. vou chutar que a mensagem não é que a tabela já existe e sim que a tabela já está aberta e vc. tá tentando abri-la de novo..

Vou chutar tb. que vc tentou abri-la de novo depois de terminar de gravas os dados não é mesmo ??? icon_smile_big.gif

Sim já passei por isso, mas o erro estava entre a cadeira e o teclado... icon_smile_big.gif

To em casa.. se quiser mandar o PRG to esperando...

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>

Link to comment
Share on other sites

citação:

Toda vez que aparecer um erro. copie e cole ele aqui.. vou chutar que a mensagem não é que a tabela já existe e sim que a tabela já está aberta e vc. tá tentando abri-la de novo..

Vou chutar tb. que vc tentou abri-la de novo depois de terminar de gravas os dados não é mesmo ??? icon_smile_big.gif

Sim já passei por isso, mas o erro estava entre a cadeira e o teclado... icon_smile_big.gif

To em casa.. se quiser mandar o PRG to esperando...

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>

o erro é este

erro4.th.png

uso o comando USE no incio da function main e quando abre atela de cadastro agenda e exatmente quando abro a tela de cadastro que exibe este erro, o que é este erro?

e mesmo assim nao esta salvando os dados no banco? vc saberia o porque luis

ah e ja te mandei o prg da uma olhada

o arquivo .odlg é o exe ok?

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 21/09/2009 16:00:53

Link to comment
Share on other sites

citação:

citação:

Toda vez que aparecer um erro. copie e cole ele aqui.. vou chutar que a mensagem não é que a tabela já existe e sim que a tabela já está aberta e vc. tá tentando abri-la de novo..

Vou chutar tb. que vc tentou abri-la de novo depois de terminar de gravas os dados não é mesmo ??? icon_smile_big.gif

Sim já passei por isso, mas o erro estava entre a cadeira e o teclado... icon_smile_big.gif

To em casa.. se quiser mandar o PRG to esperando...

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>

o erro é este

erro4.th.png

uso o comando USE no incio da function main e quando abre atela de cadastro agenda e exatmente quando abro a tela de cadastro que exibe este erro, o que é este erro?

e mesmo assim nao esta salvando os dados no banco? vc saberia o porque luis

ah e ja te mandei o prg da uma olhada

o arquivo .odlg é o exe ok?

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 21/09/2009 16:00:53


id=quote>id=quote>

erro4.th.png

Arquivo em Uso..

Vou dar uma olhadinha no 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>

Link to comment
Share on other sites

citação:

AINDA NÃO RECEBI O PRG.. TO AGUARDANDO...

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>

uai luiz te enviei no sue email tudo da uma olhada la

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

Link to comment
Share on other sites

citação:

citação:

AINDA NÃO RECEBI O PRG.. TO AGUARDANDO...

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>

uai luiz te enviei no sue email tudo da uma olhada la

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>

Juro que ainda não recebi.. Pra on de C tá mandando ???

acabei de vasculhar minha caixa até o final e nada... não veio mesmo, pelo ainda não chegou...

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>

Link to comment
Share on other sites

Haaaaa bão ... Então é isso... meu email OFICIAL agora tá no rodapé... Juro que nunca retirei ele de lá e agora fui ver não estava mas lá..

ico.corumba@gmail.com

agora já alterei

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>

Link to comment
Share on other sites

Vou dar uma olhada neste q vc. mandou..

mas de qq forma meu email tá no perfil mas não tá saindo aqui no forum..

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>

Link to comment
Share on other sites

Tá baixei...

Faz um teste ai enquanto isso.

Tente Retirar o cCodigo e fazer o cadastro a partir de cEmpresa ou até mesmo tente cadastrar apenas um parametro como o cEmpresa por exemplo....

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>

Link to comment
Share on other sites

citação:

Isso também aconteceu com o Luiz. Olhe minha última postagem: http://www.fivewin.com.br/forum/topic.asp?whichpage=3&ARCHIVE=&TOPIC_ID=15931

Luis Fernando Jr.(Luisão)

"Seize the day or die regretting the time you lost"

FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY


id=quote>id=quote>

Foi o que eu disse a ele.. o Erro tava ente o teclado e a cadeira icon_smile_big.gif

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>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...