[Resolvido] Inputbox no Vb.net e 2008

[petelson pascoal 0]

me ajudem por favor:_: eu tenho uma inputbox mas quando eu clico no botao cancelar ou fechar ela não cancela.

[mundo 4]

Algum código talvez? Nós não temos uma bola de cristal

[thoga31 609]

Nós ajudamos, com certeza, mas não somos a Maya.

Como fizeste a InputBox? Que código tens?

[petelson pascoal 0]

Dim t As Integer
       t = Val(InputBox("Digite o Codigo da loja que deseja Excluir", "Excluir Loja"))
       Dim ins, inserir As New MySqlCommand
       Dim result As Integer

       ins = New MySqlCommand("SELECT COUNT(*) FROM loja WHERE codigo_loja ='" & t & "'", conexao)
       result = ins.ExecuteScalar()
       If result <> 0 Then
           response = MsgBox(msg, style, title)
           If response = MsgBoxResult.Yes Then   ' User chose Yes.
               inserir = New MySqlCommand("Delete from loja where codigo_loja ='" & t & "'", conexao)
               inserir.ExecuteNonQuery()
               MsgBox("Loja Excluida com Sucesso!!!!")
               limpar()
               actualizargrid()
           Else
               ' Perform some other action.
           End If
       ElseIf result = 0 Then
           MsgBox("Nao Existe Nenhum Fornecedor com este codigo", MsgBoxStyle.Information)
       End If

Quando eu clico em cancelar ele aparece a MsgBox("Nao Existe Nenhum Fornecedor com este codigo", MsgBoxStyle.Information), mas a minha ideia é que quando eu clicar em cancelar ela nao faz nada. obrigado pela atenção

Editado 24 de Novembro de 2013 por thoga31
Tags code + GeSHi

[thoga31 609]

Não testado:

Dim i As Int32
Dim s As String

Dim valor As Object = InputBox("Introduza valor", "InputBox", "0")

If valor Is "" Then
   MsgBox("Operação cancelada")
Else
   If Int32.TryParse(valor.ToString, i) Then
       i = Convert.ToInt32(value)
   Else
       MsgBox("Não é inteiro válido")
   End If    
End If

Editado 24 de Novembro de 2013 por thoga31

[petelson pascoal 0]

Obrigado Moderador o código deu certo.

Paz e Amor

[thoga31 609]

Obrigado Moderador o código deu certo.

Paz e Amor

My name is thoga31, not Moderador

[petelson pascoal 0]

My name is thoga31, not Moderador

Ok thoga 31 valeu mano,

Mas encontrei mais um pequeno problema eu o codigo que vai ser digita a inputbox é inteiro e vai ser analisado na base de dados mas com a variavel valor não está a ser possível está retornar a mesma mensagem.

Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Deseja Excluir Essa loja?" ' Define message.
style = MsgBoxStyle.DefaultButton2 Or _
MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo
title = "Excluir loja" ' Define title.
' Display message.
Dim valor As Object = Val(InputBox("Digite o Codigo da loja que deseja Excluir", "Excluir Loja"))
Dim ins, inserir As New MySqlCommand
Dim result As Integer
If valor Is "" Then
MsgBox("Operação cancelada")
Else
ins = New MySqlCommand("SELECT COUNT(*) FROM loja WHERE codigo_loja ='" & valor & "'", conexao)
result = ins.ExecuteScalar()
If result <> 0 Then
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then ' User chose Yes.
inserir = New MySqlCommand("Delete from loja where codigo_loja ='" & valor & "'", conexao)
inserir.ExecuteNonQuery()
MsgBox("Loja Excluida com Sucesso!!!!")
limpar()
actualizargrid()
Else
' Perform some other action.
End If
ElseIf result = 0 Then
MsgBox("Nao Existe Nenhum Fornecedor com este codigo", MsgBoxStyle.Information)
End If
End If

Editado 24 de Novembro de 2013 por thoga31
GeSHi

[thoga31 609]

É o que dá fazer copy-paste sem entender o código.

Repara no tipo de dados da variável valor, e vê o que eu fiz no meu código para a validar como número inteiro.

[petelson pascoal 0]

obrigado pela ajuda thoga 31. Paz e Amor

[petelson pascoal 0]

É o que dá fazer copy-paste sem entender o código.

Repara no tipo de dados da variável valor, e vê o que eu fiz no meu código para a validar como número inteiro.

deu bem certo valeu mais uma vez e o código ficou assim

If valor Is "" Then
MsgBox("Operação cancelada")
Else
If Int32.TryParse(valor.ToString, i) Then
i = Convert.ToInt32(valor)
ins = New MySqlCommand("SELECT COUNT(*) FROM loja WHERE codigo_loja ='" & i & "'", conexao)
result = ins.ExecuteScalar()
If result <> 0 Then
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then ' User chose Yes.
inserir = New MySqlCommand("Delete from loja where codigo_loja ='" & i & "'", conexao)
inserir.ExecuteNonQuery()
MsgBox("Loja Excluida com Sucesso!!!!")
limpar()
actualizargrid()
Else
' Perform some other action.
End If
ElseIf result = 0 Then
MsgBox("Nao Existe Nenhum Fornecedor com este codigo", MsgBoxStyle.Information)

Else
MsgBox("Não é inteiro válido")
End If
End If
End If

Editado 24 de Novembro de 2013 por thoga31
GeSHi

[thoga31 609]

Indica nas tags code qual a linguagem para que seja feito highlight!

[petelson pascoal 0]

sim já fiz

[thoga31 609]

sim já fiz

Eu já tinha feito. Tu ainda conseguiste adicionar uns artefactos, que são as tags SIZE do fórum, no meio do código. Eu já as retirei.

Cuidado com a formatação dos tópicos e mensagens.