Jump to content
NBatista

Problemas com a actualização da(s) consulta(s)

Recommended Posts

NBatista

Boas!!!

Estou aqui com um problema na actualição da consulta da base de dados em vb

o meu problema é o seguinte: "Eu faco o registo de alguma coisa.. mas no fim quando vou para ver se está alguma coisa nao me aparece nada na consulta .. mas quando feho o programa e volto a abrir o registo que adicionei ja aparece lá"...

o problema é que de vez em quando faz isso e eu nao gosto nada disto assim...

o meu código é:

CN.ConnectionString = "Provider=MIcrosoft.Jet.OLEDB.4.0; Data source=C:\BandaGest PAP (PAP)\PAP.mdb"
	CN.Open()
	Dim str As String
	str = "Delete from Serviços Where Localidade='" & localidadetextbox.Text & "'"
	Dim cmd As OleDbCommand = New OleDbCommand(str, CN)
	Try
		Dim resultado = MsgBox("Confirma a eliminaçao do registo?", vbYesNo)
		If resultado = vbYes Then
			cmd.ExecuteNonQuery()
			MsgBox("Registo eliminado com sucesso")

		End If

	Catch ex As Exception
		MsgBox("Erro na eliminaçao do registo")

	End Try
	localidadetextbox.Clear()
	descricaotextbox.Clear()
	tipotextbox.Clear()

	Consulta_Serviços.ServiçosDataGridView.Refresh()

	CN.Close()

Share this post


Link to post
Share on other sites
ccc

Acho que depois de actualizar esse registo, tens de fazer

me.requery (actualiza o registo recem inserido)

Atençao que depois de fazer requery ficaras posicionado no primeiro registo da tabela, a nao ser que escrevas codigo para manter foco no registo recem modificado.

Share this post


Link to post
Share on other sites
acao
If resultado = vbYes Then
			cmd.ExecuteNonQuery()
			MsgBox("Registo eliminado com sucesso")

		End If

meta um if aqui talvez ajude.

If resultado = vbYes Then
		   dim registos as integer = cmd.ExecuteNonQuery()
		   if registos < 1 then
				MsgBox("Registo não eliminado")  
		   else
			MsgBox("Registo eliminado com sucesso")
		End If

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.