Jump to content
Sign in to follow this  
Bessa

Atualizar Base de Dados após alguma Alteração

Recommended Posts

Bessa

Olá pessoal!

Estou aqui com Um problemas...

Quando adiciono novos registos, se não sair da Form ele não atualiza e mostra os que atualmente tenho (Na altura que acede à BD)...Depois, coloquei este código nos Botão ANTERIOR e PRÓXIMO para navegar na BD,

"Me.Ferramentas_posicionamentoTableAdapter.Fill(Me.BdfelinoDataSet.ferramentas_posicionamento)"

Não funciona...Bah!

Agora, quando adiciono e faço seguinte:

- Em Ferramentas Posicionamento, a imagem fica igual ao registo anterior e os campos vazios;

- Em Ferramentas Corte, quando clico seguinte, nada acontece lol

Mas ao sair da form e voltar a entrar, dá tudo bem! lol

Quando faço EDITAR, funciona tudo bem! ;)

Se alguém me puder ajudar, agradecia...Já pesquisei e nada! :P No entanto, enquanto espero por algum feedback, vou tentando arranjar solução para este problema.

Obrigado.

problema575.jpg

Share this post


Link to post
Share on other sites
Caça

Então não acabaste de inserir, mas sim actualizar um existente.

Mostra o código


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Bessa

Agora não acontece isso.

Agora, quando adiciono e faço seguinte:

- Em Ferramentas Posicionamento, a imagem fica igual ao registo anterior e os campos vazios;

- Em Ferramentas Corte, quando clico seguinte, nada acontece lol

Mas ao sair da form e voltar a entrar, dá tudo bem! lol

Quando faço EDITAR, funciona tudo bem! ;)

[Vou Atualizar o 1º Post com isto]

Botão Adicionar:

        Ferramentas_corteBindingSource.AddNew()

        'Validar Campos e botões

        Pastilha_ferrComboBox.Text = "Não"
        Nome_pastilha_ferrTextBox.Visible = False
        Label2.Visible = False
        Cod_ferrTextBox.Enabled = False
        Local_ferrTextBox.Enabled = True
        Nome_ferrTextBox.Enabled = True
        Nome_pastilha_ferrTextBox.Enabled = True
        Pastilha_ferrComboBox.Enabled = True
        Button7.Enabled = False
        Imagem_ferrTextBox.Enabled = False
        Button1.Enabled = False
        Button3.Enabled = False
        Button7.Enabled = False
        Button4.Enabled = True
        Button2.Enabled = True
        PictureBox1.Image = Nothing
        '##################

Botão Guardar

        If Local_ferrTextBox.Text = "" Or Nome_ferrTextBox.Text = "" Or Pastilha_ferrComboBox.Text = "" Or Imagem_ferrTextBox.Text = "" Or Imagem_ferrTextBox.Text = "" Then
            MsgBox("Não preencheu todos os campos!", MsgBoxStyle.Exclamation, "Erro")

        Else

            If Pastilha_ferrComboBox.Text = "Sim" And Nome_pastilha_ferrTextBox.Text = "" Then

                MsgBox("Não preencheu todos os campos!", MsgBoxStyle.Exclamation, "Erro")

            Else

                'Guardar

                Dim ligacao As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\bdfelino.accdb"
                Dim insertcmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
                Dim con As New System.Data.OleDb.OleDbConnection(ligacao)
                'con.ConnectionString = constring
                insertcmd.CommandType = CommandType.Text

                insertcmd.CommandText = "INSERT INTO ferramentas_corte (nome_ferr, local_ferr, pastilha_ferr, nome_pastilha_ferr, imagem_ferr) VALUES ('" + Nome_ferrTextBox.Text + "', '" + Local_ferrTextBox.Text + "', '" + Pastilha_ferrComboBox.Text + "', '" + Nome_pastilha_ferrTextBox.Text + "', '" + Imagem_ferrTextBox.Text + "')"

                insertcmd.Connection = con

                con.Open()

                Try
                    insertcmd.ExecuteNonQuery()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

                con.Close()

                Me.Validate()
                Me.Ferramentas_corteBindingSource.EndEdit()
                'Me.TableAdapterManager.UpdateAll(Me.BdfelinoDataSet)

                'Atualizar Base de Dados após Guardar



                'Validar Campos e botões

                Nome_pastilha_ferrTextBox.Visible = False
                Label2.Visible = False
                Cod_ferrTextBox.Enabled = False
                Local_ferrTextBox.Enabled = False
                Nome_ferrTextBox.Enabled = False
                Nome_pastilha_ferrTextBox.Enabled = False
                Pastilha_ferrComboBox.Enabled = False
                Button7.Enabled = True

                Button1.Enabled = True
                Button2.Enabled = False
                Button3.Enabled = True
                Button7.Enabled = True
                Button4.Enabled = False

                Pastilha_ferrComboBox.Text = "Não"
                Imagem_ferrTextBox.Enabled = False
                Imagem_ferrTextBox.Text = ""
                Nome_pastilha_ferrTextBox.Text = ""
                Cod_ferrTextBox.Text = ""
                Local_ferrTextBox.Text = ""
                Nome_ferrTextBox.Text = ""
                Pastilha_ferrComboBox.Text = ""

                '##################
            End If
        End If

Botão Seguinte:

        Ferramentas_corteBindingSource.Position += 1

        If Imagem_ferrTextBox.Text <> "" Then

            PictureBox1.Image = Image.FromFile(Imagem_ferrTextBox.Text)

        End If

        If Pastilha_ferrComboBox.Text = "Sim" Then
            Nome_pastilha_ferrTextBox.Visible = True
            Label2.Visible = True
        Else
            Nome_pastilha_ferrTextBox.Visible = False
            Label2.Visible = False
        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
Sign in to follow this  

×
×
  • 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.