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
