none
listview nao aceita codigo de cliente duplicado RRS feed

  • Pergunta

  • este codigo nao deixa o campo cod ser duplicado no banco.

    gostaria da ajuda de vcs para ver onde eu devo mecher pra tira esta parte do codigo. Eu queria que não tivesse esta parte.

    codigo:

    If TxtCod.Text = "" Or Txtnome.Text = "" Or Txtendereço.Text = "" Or Txttelefone.Text = "" Then

                MsgBox("erro.", MsgBoxStyle.Critical, "Kumpletuhin.")
                Exit Sub
            End If
            Try
                Call abrirconexão()

                OleDa.UpdateCommand = New OleDbCommand()
                OleDa.UpdateCommand.CommandText = "UPDATE [nome da tabela] SET [codID] = @IDcod , [nome] = @nome , [endereço] = @endereço , " &            "[telefone] = @telefone WHERE [ID] = ?"
                OleDa.UpdateCommand.Connection = OleCn
                OleDa.UpdateCommand.Parameters.Add("@codID", OleDbType.VarWChar, 50, "codID").Value = Txtcod.Text 
                OleDa.UpdateCommand.Parameters.Add("@nome", OleDbType.VarWChar, 50, "nome").Value = Txtnome.Text  
                OleDa.UpdateCommand.Parameters.Add("@endereço", OleDbType.VarWChar, 50, "endereço").Value = Txtendereço.Text 
                OleDa.UpdateCommand.Parameters.Add("@telefone", OleDbType.VarWChar, 50, "telefone").Value = Txttelefone.Text 

                          OleDa.UpdateCommand.Parameters.Add(New System.Data.OleDb.OleDbParameter("codID", System.Data.OleDb.OleDbType.VarWChar, 50, _
                                System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "codID", _
                                        System.Data.DataRowVersion.Original, Nothing)).Value = form1.ListView1.SelectedItems(0).Text

                OleDa.UpdateCommand.ExecuteNonQuery()
                Call FrmEmployees.LoadListview() 'Para marefresh ung Listview kung may nabago sa inedit na record...
                Call fechaconexão()

                MsgBox("salvo.", MsgBoxStyle.Information, "Updated na.")
                Me.Close()
            Catch ex As Exception

                MsgBox("erro.", MsgBoxStyle.Exclamation, "erro.")

                Call fechaconexao()
                Txtcod.Focus()
                Txtcod.SelectAll()
            End Try

    desde ja agradeço


    W&L

    sexta-feira, 3 de agosto de 2012 21:59

Todas as Respostas

  • Seu problema não está no código, está no banco de dados. Sua tabela tem como primary Key o campo cod, então basta dropar a constraint do banco para o erro deixar de ocorrer.
    segunda-feira, 6 de agosto de 2012 14:33