Ir para o conteúdo
petelson pascoal

[Resolvido] Inputbox no Vb.net e 2008

Mensagens Recomendadas

petelson pascoal

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 por thoga31
Tags code + GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
thoga31

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 por thoga31

Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
petelson pascoal

My name is thoga31, not Moderador :D

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 por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
petelson pascoal

É 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 por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.