petelson pascoal 0 Denunciar mensagem Publicado 23 de Novembro de 2013 me ajudem por favor:_: eu tenho uma inputbox mas quando eu clico no botao cancelar ou fechar ela não cancela. Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
mundo 4 Denunciar mensagem Publicado 24 de Novembro de 2013 Algum código talvez? Nós não temos uma bola de cristal Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 Nós ajudamos, com certeza, mas não somos a Maya. Como fizeste a InputBox? Que código tens? Knowledge is free! Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 (editado) 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 Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 (editado) 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 Knowledge is free! Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 Obrigado Moderador o código deu certo. Paz e Amor Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 Obrigado Moderador o código deu certo. Paz e Amor My name is thoga31, not Moderador Knowledge is free! Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 (editado) 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 Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 É 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 Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 obrigado pela ajuda thoga 31. Paz e Amor Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 (editado) É 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 Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 Indica nas tags code qual a linguagem para que seja feito highlight! Knowledge is free! Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
petelson pascoal 0 Denunciar mensagem Publicado 24 de Novembro de 2013 sim já fiz Partilhar esta mensagem Ligação para a mensagem Partilhar noutros sites
thoga31 610 Denunciar mensagem Publicado 24 de Novembro de 2013 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 Ligação para a mensagem Partilhar noutros sites