Ir para o conteúdo
Blue_Wings

Botão "Save" não guarda na DB todas as alterações das Textbox

Mensagens Recomendadas

Blue_Wings

Boa noite,

Tenho várias TextBox com dados de uma tabela de access, e tenho este código no botão que me vai guardar os dados com Save_Records()


Private Sub Save_Records()
 With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "BLAZER_DARK")
	 .EndCurrentEdit()
	 If Uniforms_SoftwareDataSet.HasChanges Then
		 Try
			 If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
				 Me.BLAZER_DARKTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
				 Uniforms_SoftwareDataSet.AcceptChanges()
			 Else
				 Uniforms_SoftwareDataSet.RejectChanges()
			 End If
		 Catch ex As Exception
			 MsgBox(ex.Message)
		 End Try
	 End If
 End With
 With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "BLAZER_BLUE")
	 .EndCurrentEdit()
	 If Uniforms_SoftwareDataSet.HasChanges Then
		 Try
			 If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
				 Me.BLAZER_BLUETableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
				 Uniforms_SoftwareDataSet.AcceptChanges()
			 Else
				 Uniforms_SoftwareDataSet.RejectChanges()
			 End If
		 Catch ex As Exception
			 MsgBox(ex.Message)
		 End Try
	 End If
 End With
 With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "TROUSERS")
	 .EndCurrentEdit()
	 If Uniforms_SoftwareDataSet.HasChanges Then
		 Try
			 If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
				 Me.TROUSERSTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
				 Uniforms_SoftwareDataSet.AcceptChanges()
			 Else
				 Uniforms_SoftwareDataSet.RejectChanges()
			 End If
		 Catch ex As Exception
			 MsgBox(ex.Message)
		 End Try
	 End If
 End With
 With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "WHITE_SHIRT_SHORT_SLEEVE")
	 .EndCurrentEdit()
	 If Uniforms_SoftwareDataSet.HasChanges Then
		 Try
			 If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
				 Me.WHITE_SHIRT_SHORT_SLEEVETableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
				 Uniforms_SoftwareDataSet.AcceptChanges()
			 Else
				 Uniforms_SoftwareDataSet.RejectChanges()
			 End If
		 Catch ex As Exception
			 MsgBox(ex.Message)
		 End Try
	 End If
 End With
End Sub

Depois de ter modificado os dados de várias textbox quando clico no botão para guardar, apenas guarda os dados da primeira textbox, das textbox´s seguintes só guarda se eu clicar na própria textbox e voltar a clicar no botão de guardar dados.

Não era suposto clicar só uma vez no botão e ir a todas as texbox e ver se existe alterações e guardar tudo de uma só vez?

:)

Editado por Blue_Wings

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Blackvelvet

Eu faço sempre assim:

 'coneção á base de dados
		Dim connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog="nome_tabela";Integrated Security=SSPI;")
		Dim SQL As String
		SQL = "SELECT * FROM registo WHERE ID = '" & Tabela.id_pesquisa & "'"
		Dim command As New SqlCommand(SQL, connection)
		connection.Open()
		Dim dataAdapter As New SqlDataAdapter(command)
		Dim Data As New DataTable
		dataAdapter.Fill(Data)
		txtalgo.Text = Data.Rows(0)(0)
	  ' sempre definindo as caixas de texto e gravar na respectica linha/coluna

		connection.Close()
			connection = Nothing
			command = Nothing
		End If

Editado por Blackvelvet

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Blue_Wings

Alguém me pode dizer o que está errado no meu código para ele não estar a gravar as textbox todas de uma só vez quando eu carrego no botão que vai buscar o código de Save_Records() ?

Está errado usar databinding para cada uma das tabelas na base de dados?

Partilhar esta mensagem


Ligação 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.