Ir ao conteúdo

Posts recomendados

Postado
Public Sub PEntradaSaidaProdutos()
        Dim intEntradaSaida As Integer
        Using Con As SqlConnection = getconnectionSqlServer()

            Try
                Con.Open()
                Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text
                'Dim cmd As SqlCommand = New SqlCommand(sql, Con)

                intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text)

                cmd.Parameters.Add(SqlDataReader("@Qtd Minimo", intEntradaSaida))
                cmd.ExecuteNonQuery()
            Catch ex As Exception
            Finally
                Con.Close()
            End Try
        End Using
    End Sub

Boa Noite!

Estou aprendendo VB.NET e criei uma tabela no SQL, e estou adaptando o código abaixo para modificar apenas os dados da coluna Qtd Minimo, porém não sei como passar o parâmetro no exemplo do código abaixo, alguém pode ajudar. O código abaixo é adaptação de uma vídeo aula da internet.

 

Public Sub PEntradaSaidaProdutos()
        Dim intEntradaSaida As Integer
        Using Con As SqlConnection = getconnectionSqlServer()

            Try
                Con.Open()
                Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text
                'Dim cmd As SqlCommand = New SqlCommand(sql, Con)

                intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text)

                cmd.Parameters.Add(Sq("@Qtd Minimo", intEntradaSaida))
                cmd.ExecuteNonQuery()
            Catch ex As Exception
            Finally
                Con.Close()
            End Try
        End Using
    End Sub

A solução foi enviada pelo Carlos Henrique autor da aula, porém agora apresenta o seguinte erro:

 

Erro    BC30057    Muitos argumentos para "Public Overloads ReadOnly Default Property Chars(index As Integer) As Char".   
 

  • 6 meses depois...
Postado

jovem, como nao sei exatamente qual seu código, o q vejo errado....

iniciando pela query ja existe erro nela.....

update tabela set campo = valor where parametro

falta definir o campo e qual valor, e no parâmetro, where código o q?

 

parâmetros podem ser feitos de duas formas

sempre antes Dim command As New SqlCommand(commandText, connection) aqui sua query e sua conexao

 

command.Parameters.Add("@codigo", SqlDbType.Int)

command.Parameters("@codigo").Value = txtCodigo.text 

 

ou assim

command.Parameters.AddWithValue("@codigo", txtCodigo.text)

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...