Jump to content
petelson pascoal

[Resolvido] Inputbox no Vb.net e 2008

Recommended Posts

petelson pascoal

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

Share this post


Link to post
Share on other sites
thoga31

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

Como fizeste a InputBox? Que código tens?


Knowledge is free!

Share this post


Link to post
Share on other sites
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

Edited by thoga31
Tags code + GeSHi

Share this post


Link to post
Share on other 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

Edited by thoga31

Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Obrigado Moderador o código deu certo.

Paz e Amor

My name is thoga31, not Moderador :D


Knowledge is free!

Share this post


Link to post
Share on other 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

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites
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!

Share this post


Link to post
Share on other 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

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites
thoga31

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


Knowledge is free!

Share this post


Link to post
Share on other sites
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!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.