NAO CONSIGO EXCLUIR MEU REGISTRO

CAROLYTA 04/07/2012 12:33:31
#405506
If (MsgBox([Ô]Confirma exclusão deste registro ?[Ô], MsgBoxStyle.YesNo) = MsgBoxResult.Ok) Then so esta lendo ate aqui no break point.. depois ele sai..
Dim cliente As clientes = New clientes

Dim iRegDeletados As Integer = Me.BindingContext(clienteInfo).Position
Dim iRegAfetados As Integer = cliente.delete(Convert.ToInt32(TextBox1.Text))


If Not (iRegDeletados = 0) Then

MsgBox([Ô]Registro excluido com sucesso.[Ô])


If Not (clienteInfo Is Nothing) Then
desvinculaControles()
mostraregistros()
vinculaControles()

If iRegDeletados = clienteInfo.Length Then

Me.BindingContext(clienteInfo).Position = iRegDeletados - 1

Else

Me.BindingContext(clienteInfo).Position = iRegDeletados + 1

End If

Else

MsgBox([Ô]Registro não localizado.[Ô])

End If

Else

MsgBox([Ô]Erro ao excluir o registro.[Ô])
End If
End If


ele nao ta lendo o s demais comando...e nao deu erro nenhum..
CAROLYTA 04/07/2012 15:40:12
#405523
pessoal eu descobri que minha msg que pergunta se podia excluir nao tava deixando o resto do do programa rodar.. entao tirei a msg e conseguir excluir.. agora achei outro problema e exclui e nao volta pro primeiro registro quando salvo novamente.. ele ta começando a salva do proximo registro
TIDYSOFT 04/07/2012 19:32:17
#405542
If (MsgBox([Ô]Confirma exclusão deste registro ?[Ô], MsgBoxStyle.YesNo) = MsgBoxResult.Ok) Then so esta lendo ate aqui no break point.. depois ele sai..

leia com atenção sua sintaxe ali em cima! : Confirma Exclusão deste registro?[Ô],MsgBoxStyle.YesNo) = MsgBoxResult.Ok) then
aqui ele pergunta sim ou nao e aqui diz se for igual a OK! então por isso ta errado! pq nao é ok e sim YES


o segundo erro eu nao entendi muito bem pode repetir
CAROLYTA 04/07/2012 19:52:40
#405545
eu quero agora excluir o registro e fazer com que eu salve o novo registro nesse que eu exclui.. ou por exemplo eu tiver de 10 registro e excluir o 9 queria saber se da pra bota o 10 no nove...
TIDYSOFT 04/07/2012 20:21:50
#405551
cara esta meio dificil de eu entender hehehe!
qual banco d edados voce esta usando?

ele tem uma chave primaria?
quando voce clica em enserir ele da um

exemploBindingSource.AddNew()

isso gera um registro novo para ser inserido
CAROLYTA 04/07/2012 21:36:04
#405553
estou usando sql.. e isso mesmo ele ta criando um addnew.. mais nao da pra ultilizar novamente esses cadastro que eu apaguei
TIDYSOFT 05/07/2012 13:43:23
#405592
MAS no demais esta tudo certo então?
eu me lembro que fiz uma apllicação com sql e acontecia a mesma coisa
eu tive que criar um outro campo codigo e nao atribui ele como int e nem como chave primaria
ai adicionei ele como o campo codigo que era alterado pelo proprio usuario e


por exemplo
PEGUDO 05/07/2012 14:03:25
#405595
Eu acho que você deveria manter a confirmação da exclusão, mas faça desta maneira:

Dim Mensagem As MsgBoxResult = MsgBox([txt-color=#e80000][Ô]Confirma a exclusão do registro?[Ô][/txt-color], MsgBoxStyle.OkCancel)

[txt-color=#0000f0]Select Case [/txt-color]Mensagem
    Case MsgBoxResult.Ok
        [txt-color=#007100][ô]Código a ser executado[/txt-color]
    [txt-color=#0000f0]Case Else[/txt-color]
        [txt-color=#007100][ô]Código caso o usuário clique em cancelar[/txt-color]
[txt-color=#0000f0]End Select[/txt-color]
TIDYSOFT 05/07/2012 14:15:48
#405596
ou desta forma
IF MESSAGEBOX.SHOW(([Ô]DESEJA EXCLUIR O CONTATO?[Ô], [Ô]EXCLUIR[Ô],MsgBoxStyle.YesNo) = MsgBoxResult.[txt-color=#e80000]YES[/txt-color] THEN
AQUI AI EXCLUI

END IF
CAROLYTA 05/07/2012 15:10:48
#405601
em quando a msg de confirmação eu ja arrumei ta funcionando.. eu so tenho agora a duvida de re ultilizar os registro apagados..
Página 2 de 6 [57 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar