none
Sobrecarga RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde,

    estou com o seguinte problema,

    estou montando um cadastro de produtos, porem  o código de barras e composto por  13 números EX.: 7894561233216

    o meu problema e na hora de colher essa informação o erro q da é "SOBRECARGA"  segue abaixo código completo 

    Imports System.Data
Imports System.Data.OleDb
Public Class formcadastroitens
   
    Private Sub formcadastroitens_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DadosDataSet.produtos' table. You can move, or remove it, as needed.
        Me.ProdutosTableAdapter.Fill(Me.DadosDataSet.produtos)

    End Sub
    Public Sub grava()

      


        Dim codigo As Integer
        codigo = txtcod.Text
        
        Dim referencia As String
        referencia = txtref.Text

        Dim descricao As String
        descricao = txtdesc.Text

        Dim estoqueAtual As Integer
        estoqueAtual = txtsaldo.Text


        Dim valorProduto As Double
        valorProduto = txtvalor.Text


        ' Query com os parametros passados
        Dim queryString As String = "INSERT INTO produtos (codigo_do_produto, referencia, descricao, estoqueatual, valorproduto) VALUES " & _
            "(@codProduto, @referencia, @descricao, @estoqueAtual, @valorProduto)"

        Dim connection As OleDbConnection = getConnection()

        Try
            Dim command As New OleDbCommand(queryString, connection)

            ' Adiciona os parametros


            command.Parameters.AddWithValue("@codProduto", codigo)
            command.Parameters.AddWithValue("@referencia", referencia)
            command.Parameters.AddWithValue("@descricao", descricao)
            command.Parameters.AddWithValue("@estoqueAtual", estoqueAtual)
            command.Parameters.AddWithValue("@valorProduto", valorProduto)


            'Abre conexao
            connection.Open()

            'Executa comando retornando os registros afetados
            command.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Insert Records")
        Finally
            MessageBox.Show("Produto incluido")
            connection.Close()
        End Try
    End Sub


    Private Sub btngravar_Click(sender As System.Object, e As System.EventArgs) Handles btngravar.Click
        
                grava()
          
    End Sub

    Private Sub btnnovo_Click(sender As System.Object, e As System.EventArgs) Handles btnnovo.Click
        txtcod.Text = ""
        txtref.Text = ""
        txtdesc.Text = ""
        txtsaldo.Text = ""
        txtvalor.Text = ""
    End Sub

    Private Sub txtcod_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtcod.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
            MessageBox.Show("Somente permitido números", "Codigo de Barras")
        End If
    End Sub

    
    Private Sub txtcod_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtcod.TextChanged

    End Sub

    Private Sub txtsaldo_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtsaldo.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
            MessageBox.Show("Somente permitido números", "Quantidade")
        End If
    End Sub

    Private Sub txtsaldo_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtsaldo.TextChanged

    End Sub
End Class

    Não sei mais oque fazer, acredito que seja alguma coisas simples mas sou muito iniciante em programação! 

    dês de já agradeço a todos

    terça-feira, 27 de maio de 2014 16:27
    |

Respostas

Todas as Respostas