MsgBox.show - mensagens aviso/erro

Question

O que fiz: Para evitar que seja cadastrado mais de uma vez o mesmo item, no primeiro campo a ser preenchido (nome do produto) se já existir um igual cadastrado é exibida uma mensagem de aviso.
O que pergunto: É possível colocar dentro dessa mensagem também o local e a pasta onde se encontra esse item que já foi cadastrado? Existem 4 locais e 5 pastas diferentes, então seria necessário que essas informações fossem buscadas automaticamente pelo vb, da mesma forma que ele faz a busca para ver se o item já existe ou não no bd (Access)

If txtProduto.Text <> " " Then
    consulta(Me.txtProduto.Text)
    If dr.Read Then
        txtProduto.Text = dr(0).ToString
        MsgBox.Show("Esse item já está cadastrado!" , "ATENÇÃO!" , MsgBoxButtons.OK, MsgBoxIcon.Error)
        txtProduto.Text = " "
        txtProduto.Focus()
    End if
    dr.Close()
End if

A ideia é que a mensagem aparecesse assim:

MsgBox.Show("Esse item já está cadastrado!", "local x" , "pasta y", "ATENÇÃO!" , MsgBoxButtons.OK, MsgBoxIcon.Error)

Sendo que "local x" e "pasta y" refere-se ao local exato onde está cadastrado o item; apenas o 'x' e o 'y' mudariam conforme a busca feita pelo vb que os preencheria automaticamente conforme o local onde está o item.

Há como fazer isso?

Answer 1

Bom dia,

Obrigado por sua participação no Fórum MSDN.

Como esse item foi salvo neste local anteriormente? Talvez você possa usar a forma como o item anterior foi salvo para mostra o local na messagebox.

MessageBox.Show("O item já existe em " + local)

Atenciosamente,

---

Robson William Silva

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Boa tarde,

Então, seria o local onde foi feito o Insert? 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

 conecta()
 Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
 Me.BindingSource1.AddNew()

End sub

Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click 

If txtNome.Text = "" Then

 MsgBox.Show("Digite o nome do Produto!", "ATENÇÃO!", MessageBoxButtons.OK, MessageBoxIcon.Error) 
 txtNome.Focus()

 Return 

End If

...
try

 Me.Tabela1TableAdapter.Insert(txtNome.Text, txtCodigo.Text, txtLocal.Text, txtPasta.Text)
 Me.Tabela1TableAdapter.Update(DataSetProdutos.Tabela1)
 Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
 txtNome.Text = ""
 txtCodigo.Text = ""

 ....
Catch ex As Exception

 Me.Tabela1TableAdapter.Fill(Me.DataSetProdutos.Tabela1)
 txtNome.Focus()

End Try
dr.Close()

End Sub

Att

Answer 3

Bom dia,

Tente utilizar a propriedade FolderBrowserDialog.SelectedPath

Atenciosamente,

---

Robson William Silva

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 4

Boa noite,

Desculpe mas sou noob, não faço ideia do que você está falando! Desenvolvi o programa apenas observando tutoriais. :(

Se puder exemplificar utilizando o trecho do código que enviei agradeço, pois não encontrei nada a respeito.

Att