USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Atualizando tabela Mysql e VB 6
Ivan Abreu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 01/01/2013 18:19 hs         
Por favor quem puder ajudar: No procedimento abaixo:
Sub salvar()
If txtnumeroobra = "" Then
Conexao.Execute ("INSERT INTO Edificio (numeroobra,local,construtor,data,fck,fyd,fcd,tuw,twd,concretomagro,pemestaca,ftk)" & _
" values(null,'" & txtlocal & "','" & txtconstrutor & "','" & txtdata & "','" & txtfck & "','" & txtfyd & "'," & _
"'" & txtfcd & "','" & txttuw & "','" & txttwd & "','" & txtconcretomagro & "','" & txtpenesteca & "', '" & txtFTK & "')")

Else
Conexao.Execute ("UPDATE Edificio SET " & _
"local = '" & txtlocal & "'," & _
"construtor= '" & txtconstrutor & "'," & _
"data = '" & Format(txtdata, "d/m/y") & "'," & _
"fck= '" & txtfck & "'," & _
"fyd = '" & txtfyd & "'," & _
"fcd= '" & txtfcd & "'," & _
"tuw= '" & txttuw & "'," & _
"twd= '" & txttwd & "'," & _
"concretomagro = '" & txtconcretomagro & "'," & _
"penestaca= '" & txtpenestaca & "'," & _
"ftk= '" & txtFTK & "'" & _
"  WHERE numeroobra= '" & txtnumeroobra & "'")
End If
SQL = ("SELECT * FROM Edficio") '
MsgBox "atualização realizada com sucesso.", 64, "Para sua informação..."
End Sub

No formulário o textbox txtconcretomagro está vazio e por isso dá um erro.
1) como usar o is not null  ou  is null nesta linha ?
     "concretomagro = '" & txtconcretomagro & "'," & _

2) como definirr  virgula como ponto decimal  ?

Obrigado amigos.
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 02/01/2013 13:04 hs            
primeiro use o iif na linha especifica para trata o campo vazio, assim

"concretomagro = " & IIf (txtconcretomagro = "", Null, "'" & txtconcretomagro  & "'") & "," & _

repare que é IIF com dois (I)

você não define virgula como ponto decimal você a converte para ponto

exemplo

valor = Replace(txtcampocomvirgula.Text, ",",".")

onde todas as virgulas serão convertidas em ponto

   
Ivan Abreu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 02/01/2013 13:34 hs         
modifiquei a linha de acordo com seu exemplo, quando tem valor no textbox tudo bem, mas se está vazio dá erro no mysql.
TREZE, muito obrigado por mais esta ajuda.
   
Treze
não registrado
ENUNCIADA !
Postada em 03/01/2013 10:48 hs   
qual o erro posta o mesmo ai, que fica mais fácil.

   
Ivan Abreu
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 03/01/2013 11:51 hs         
Sub salvar()
If txtnumeroobra = "" Then
Conexao.Execute ("INSERT INTO Edificio (numeroobra,local,construtor,data,fck,fyd,fcd,tuw,twd,concretomagro,pemestaca,ftk)" & _
" values(null,'" & txtlocal & "','" & txtconstrutor & "','" & txtdata & "','" & txtfck & "','" & txtfyd & "'," & _
"'" & txtfcd & "','" & txttuw & "','" & txttwd & "','" & txtconcretomagro & "','" & txtpenesteca & "', '" & txtFTK & "')")

Else
Conexao.Execute ("UPDATE Edificio SET " & _
"local = '" & txtlocal & "'," & _
"construtor= '" & txtconstrutor & "'," & _
"data = '" & Format(txtdata, "y/m/d") & "'," & _
"fck= '" & txtfck & "'," & _
"fyd = '" & txtfyd & "'," & _
"fcd= '" & txtfcd & "'," & _
"tuw= '" & txttuw & "'," & _
"twd= '" & txttwd & "'," & _
"concretomagro = " & IIf(txtconcretomagro = "", Null, "'" & txtconcretomagro & "'") & "," & _
"penestaca= '" & txtpenestaca & "'," & _
"ftk= '" & txtFTK & "'" & _
"  WHERE numeroobra= '" & txtnumeroobra & "'")
End If
SQL = ("SELECT * FROM Edficio") '
MsgBox "atualização realizada com sucesso.", 64, "Para sua informação..."
End Sub
     msg erro.jpg
check the manual that corresponds to your Mysql
server version for the right sintax to use near 'penestaca='120',ft='22' where numero obra='1432' at line 1
   
Tiranossauro
não registrado
ENUNCIADA !
Postada em 03/01/2013 23:26 hs   
Se o teu campo concretomagro é string ou texto porque, em vez de mover null não move branco ?
concretomagro = '" &  txtconcretomagro & "',  penestaca = .................
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página