Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

petelson pascoal

[Resolvido] Inputbox no Vb.net e 2008

Mensagens Recomendadas

petelson pascoal    0
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


Link para a mensagem
Partilhar noutros sites
thoga31    594
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!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
petelson pascoal    0
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


Link para a mensagem
Partilhar noutros sites
thoga31    594
thoga31

É 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.


Knowledge is free!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
petelson pascoal    0
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


Link para a mensagem
Partilhar noutros sites
thoga31    594
thoga31

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.


Knowledge is free!

Partilhar esta mensagem


Link 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.