Jump to content

Ajuda com base de dados


Seabra
 Share

Recommended Posts

Olá

Pretendo saber se existem os 10 registos faz o Update. Se não existem cria 10 novos. Esta tabela vai ter sempre só 10 registos resultado de operações.

Qual a melhor forma de o fazer? Apago sempre no inicio a tabela e cria registos novos? Ou há outra solução?

Using Con As New OleDb.OleDbConnection(ConnString)
            Con.Open()

            Dim Tabela As New DataTable()

            Sql = "Select * From HorasCont"

            Dim Da As New OleDb.OleDbDataAdapter(Sql, Con)
            Dim ocb As New OleDbCommandBuilder(Da)
            Da.Fill(Tabela)

            For K As Integer = 1 To 10
                Dim Row As DataRow = Tabela.NewRow()
                Row.Item("DiaSemanaContagem") = 15
                Row.Item("PosListaHoras") = K
                Row.Item("HoraContagem") = CVB
                Row.Item("TipoContagem") = 15
                Tabela.Rows.Add(Row)
            Next
            Da.Update(Tabela)

        End Using

Cumprimentos

Link to comment
Share on other sites

Podes fazer uma duas duas coisas:

1 - Apagas os dados todos da tua tabela e voltas a introduzi-los todos;

2 - Substituis os dados linha a linha.

Agora tens que ver qual é a solução mais rápida e viável para o teu caso.

Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Link to comment
Share on other sites

Guest user14912

Provavelmente então, poderás apagar os dados de rajada e voltar a introduzi-los novamente, visto que a sua utilização é rara.

Isto na minha opinião  :smoke:

Link to comment
Share on other sites

Provavelmente então, poderás apagar os dados de rajada e voltar a introduzi-los novamente, visto que a sua utilização é rara.

Isto na minha opinião  :smoke:

Ok

Mas no contexto do código que já tenho, como faço isso?

Cumprimentos

Link to comment
Share on other sites

Guest user14912

Em primeiro lugar fazes uma query para apagar os dados da BD.

Fazes a conexão defines a query e executas a query.

Algo assim:


Sql = "DELETE * FROM  HorasCont"

Em seguida é so fazeres a inserção na bd, algo assim


dbComm.Parameters("horario").Value = txthoras.Text

Procura por tópicos anteriores, o @ribeiro55 já respondeu a isso 😕

Link to comment
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
 Share

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