Jump to content
KALAND

[Resolvido] UPDATE VB.NET

Recommended Posts

Olá pessoal tudo bem

Estou desenvolvendo um programa em vb.net com banco em firebird, onde gravo meus textbox e um picturebox , porém ao efetuar a atualização me volta um erro alegando que meu select está incorreto. Alguém poderia me ajudar?
Agradeço Desde Já

Segue meu código onde contém o select do erro mencionado.

 

Private Sub AlterarDados()
        Try
            fbCon.Open()

            Dim arrFilename() As String = Split(Text, "\")
            Array.Reverse(arrFilename)
            Dim ms As New MemoryStream
            picImagem.Image.Save(ms, picImagem.Image.RawFormat)

            Dim arrImage() As Byte = ms.GetBuffer
            With fbCmd
                .CommandType = CommandType.Text
                .CommandText = ""
                .CommandText = "UPDATE IMOVEIS SET imagem = @Imagem, TIPO = '" & txtTipoImv.Text & "', CEP = '" & txtCep.Text & "' , ENDERECO = '" & txtEnd.Text & "', CONDOMINIO = '" & txtCondominio.Text & "' , CIDADE = '" & txtCidade.Text & "' , UF = '" & txtUf.Text & "' , DESCRICAO = '" & txtDescricao.Text & "' ,LOCACAO = '" & txtLoc_vend.Text & "' , VALOR = '" & txtValor.Text & "' , NOME = '" & txtNome.Text & "'  WHERE IMOVELID = " & txtIdImovel.Text & "'" & "SELECT * FROM IMOVEIS WHERE IMOVELID= " & txtIdImovel.Text & "'"
                .Connection = fbCon
                .Parameters.Add(New FbParameter("@Imagem", SqlDbType.Image)).Value = arrImage
            End With

            fbCmd.ExecuteNonQuery()
            carregarDados()
            MsgBox("Registro Alterado com Sucesso.", MsgBoxStyle.Information)

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            fbCmd.Parameters.Clear()
            fbCon.Close()
        End Try
    End Sub


 

Share this post


Link to post
Share on other sites

Qual o motivo do SELECT após seu UPDATE ? 

 

Acredito que deveria ser:

 

Dim arrImage() As Byte = ms.GetBuffer
            With fbCmd
                .CommandType = CommandType.Text
                .CommandText = "UPDATE IMOVEIS SET imagem = @Imagem, TIPO = '" & txtTipoImv.Text & "', CEP = '" & txtCep.Text & "' , ENDERECO = '" & txtEnd.Text & "', CONDOMINIO = '" & txtCondominio.Text & "' , CIDADE = '" & txtCidade.Text & "' , UF = '" & txtUf.Text & "' , DESCRICAO = '" & txtDescricao.Text & "' ,LOCACAO = '" & txtLoc_vend.Text & "' , VALOR = '" & txtValor.Text & "' , NOME = '" & txtNome.Text & "'  WHERE IMOVELID = " & txtIdImovel.Text & "'"
                .Connection = fbCon
                .Parameters.Add(New FbParameter("@Imagem", SqlDbType.Image)).Value = arrImage
            End With

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Jefferson andre
      Saudacoes mestres, 
       
      preciso fazer um filtro em uma tabela e depois selecionar alguns clientes entao eu separei a tabela em uma temporaria, entao ao selecionar um determinado cliente preciso registrar que ele fara parte do reltaorio, isso pode ocorrer com varios clientes ou todos.
       
      Como proceder com um update fora de uma database ?
       
      Aqui eu uso pdo mas acho que nao funciona com tabelas temporarias.
       
    • By quimera
      Estou com um problema, os registro entram no banco de dados dinamicamente, e neste caso algumas postagens pode enviar valores que já existem na tabela/coluna específica.
      Ex.: 
      UPDATE `tableoperator` SET `coluna`= '1' WHERE id = '1' o Registro no banco de dados está assim:
      id | coluna | data 1       1     2020-01-01 Simplesmente não atualiza se a coluna já tiver o valor.
      Alguém pode ajudar, nunca havia me deparado com isto
    • By mamotinho
      Olá, hoje pensei em avança a versão do PHP e gostaria de começa com a conexão em PDO, porém não sei como posso ta fazendo e se realmente é possível eu realizar conexão mssql com PHP7 se for possível alguém poderia me da uma dica de como fazer
    • By durrib
      Olá, pessoal.
      Meu provedor não autoriza mais Banco Access, então fui obrigado migrar para o MySQL e estou "apanhando", rs...
      Consegui criar a primeira Tabela de Insert de email's. Aí que vem o drama, problemas no auto_increment e blá blá...
      Consegui o primeiro passo, o Insert, mas o resto não estou conseguindo assimilar.
      Prefiro continuar os script's no ASP, se tiver que ir pro PHP, eu desisto.
      -->
       
      'Windows 2012
          'Criamos o objeto de conexão
       Set conn = Server.CreateObject("ADODB.Connection")
          'Abrimos uma conexão com o banco de dados
          '[IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
      Conn.Open("DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=XXX;PORT=3306;DATABASE=XXX;USER=XXX;PASSWORD=XXX;OPTION=3;")
      Response.Write "banco conectado"
          'Fechamos a conexão com o banco de dados
      Conn.Close()
          'Destruímos o objeto
      Set Conn = Nothing
      -->
       
      Está conectando, mas na hora da listagem, nada!
      HELP!
       
       
    • By lucasvbl
      <form id="frmDados" name="frmDados" class="form-horizontal" method="post" action="" enctype="multipart/form-data"> <input name="acao" id="acao" type="hidden" value="paginas"> <? if($_idCodigo){ ?> <input name="r" id="r" type="hidden" value="<?=$_idCodigo;?>"> <? } ?> <div class="row"> <div class="col-md-6"> <div class="form-group row"> <label class="col-md-2 col-form-label"> Titulo</label> <div class="col-md-10"> <input class="form-control" autocomplete="off" type="text" name="txtDescricao" id="txtDescricao" value="<?=$_rowDados->C02_DESCRICAO;?>"> </div> </div> </div> <? if($_idCodigo){ ?> <div class="col-md-6"> <div class="form-group row"> <label class="col-md-2 col-form-label"> Link</label> <div class="col-md-10"> <input readonly="readonly" class="form-control" type="text" name="txtLink" id="txtLink" value="pagina.php?p=<?=$_rowDados->C01_ID;?>"> </div> </div> </div> <? } ?> </div> <div class="row"> <div class="col-md-12"> <div class="form-group row"> <label class="col-md-12 col-form-label">Conteúdo</label> <div class="col-md-12"> <textarea class="form-control" name="txtConteudo" id="txtConteudo"> <?=$_rowDados->C04_CONTEUDO;?> </textarea> </div> </div> </div> </div> <div class="col-md-12" style="text-align: center;"> <button class="btn btn-oval btn-success" type="button" id="btGravar">Gravar</button> </div> </form> <script type="text/javascript"> $(function () { $("#btGravar").click(function(){ erros = 0; if(!$("#txtDescricao").val()){ mensagem('mensagemDIV', 'danger', 'Preencha o campo <strong>Título para a página</strong>.', 0, 'txtEntidade'); erros = 1; } if(erros > 0){ return; } off("btGravar"); var formData = $("#frmDados").serialize(); $.ajax({ url: "app.php", type: "POST", data: formData, dataType: "json", success: function (retorno) { if(retorno.status == '1'){ tratarRetorno(retorno); } if(retorno.status == '400'){ tratarRetorno(retorno); } on("btGravar"); return; } }).fail(function (jqXHR, textStatus, error) { console.log(jqXHR.responseJSON); }); return; }); }); $(document).ready(function(){ $("#txtTitulo").focus(); }); </script> Estou com um problema num crud utilizando ajax, ele meio que "corrompe a string"... 
      ENVIO ASSIM
       
      ELE SALVA ASSIM
       
      Não estou utilizando nenhum editor nada, num textarea
      ESSE CODIGO
       
       
       
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.