ZERAR TABELA TODA VER QUE FOR IMPORTAR !!!

USUARIO.EXCLUIDOS 18/04/2007 17:50:30
#212614
Pessoal

Tem alguma maneira de criar uma rotina onde toda a vez que eu clicar em um botao ele zera a tabela e refaz a importacao dos dados ?
MARCTEC 18/04/2007 18:11:16
#212618 Resposta escolhida
Não entendi direito o que vc quer, mas está parecendo que vc teria de colocar no evento click de um botão uma rotina (SQL) DELETE * from tabela, e após, um SELECT para alimentar sua consulta.

Preciso de mais dados do que vc quer.
USUARIO.EXCLUIDOS 18/04/2007 19:11:32
#212631
Para ficar legal, você pode criar uma function para Limpar a Tabela

Public Function LimparTabela() as boolean
   '--------------------
   'Para limpar a tabela
   '--------------------
   On Error Goto TrataErro
   
   sql = ""
   'sql = "DELETE FROM <nome da tabela que será limpa>"
   sql = "DELETE FROM MinhaTabela"

   Set rs = conexao.execute(sql)

   ...

   LimparTabela = True

TrataErro:
   LimparTabela = False
End Function


Public Sub CarregarTabela()
   If LimparTabela Then
      sql = ""
      'sql = "SELECT * FROM <nome da tabela que será importada>"
      sql = "SELECT * FROM MinhaTabela"

      Set rs = conexao.execute(sql)

      sql = ""

      Do Until rs.eof
          sql = "INSERT INTO MinhaTabelaAtualizada(Campo1, Campo2,...)VALUES('" & rs("Campo1") & "', '" & rs("Campo2"), ..."
          conexao.execute(sql)
      Loop

      ...

   Else
      msgbox("Não foi possível limpar a tabela")
   End if
End Sub


Assim você só vai carregar a tabela, caso consiga realmente limpá-la.

No Evento Click do botão que você criar, chame a Sub CarregarTabela.

Obs.: conexao é do tipo Connection e rs do tipo Recordset
Tópico encerrado , respostas não são mais permitidas
Voltar