DELETAR TABELA
O código abaixo cria uma tabela, eu quero ao fechar o formulário deletar esta tabela como eu faço ?
Dim NomePasta As String
Dim CaminhoPlanilha As String
Dim NomeTabela As String
Dim CaminhoBD As String
NomePasta = "Plan1"
CaminhoPlanilha = Me.txtOrigem 'D:\Acessorios\Excel\Pasta1.xls
NomeTabela = Me.txtTabela 'TemptblSolicitacao
CaminhoBD = Me.txtDestino 'D:\Acessorios\Excel\Pedido.mdb
Set db = OpenDatabase(CaminhoPlanilha, True, False, "Excel 8.0")
db.Execute ("Select * into [;database=" & CaminhoBD & "]." & NomeTabela & " FROM [" & NomePasta & "$]")
depois de criada passo os dados da tabela TempSolicitacao para tblSolicitacao e deleto a TEMP, com isso toda vez que fecho o sistema tenho que compactar, pois a rotina de criar tabela e excluir tabela vai ser constante.
se eu conseguisse simplesmente ler o conteúdo da planilha e gravar no BD seria o ideal, mais já tentei de todas as maneiras e não consegui.
Desde de já agradeço
Dim NomePasta As String
Dim CaminhoPlanilha As String
Dim NomeTabela As String
Dim CaminhoBD As String
NomePasta = "Plan1"
CaminhoPlanilha = Me.txtOrigem 'D:\Acessorios\Excel\Pasta1.xls
NomeTabela = Me.txtTabela 'TemptblSolicitacao
CaminhoBD = Me.txtDestino 'D:\Acessorios\Excel\Pedido.mdb
Set db = OpenDatabase(CaminhoPlanilha, True, False, "Excel 8.0")
db.Execute ("Select * into [;database=" & CaminhoBD & "]." & NomeTabela & " FROM [" & NomePasta & "$]")
depois de criada passo os dados da tabela TempSolicitacao para tblSolicitacao e deleto a TEMP, com isso toda vez que fecho o sistema tenho que compactar, pois a rotina de criar tabela e excluir tabela vai ser constante.
se eu conseguisse simplesmente ler o conteúdo da planilha e gravar no BD seria o ideal, mais já tentei de todas as maneiras e não consegui.
Desde de já agradeço
bem caro amigo acredito que seja isto que vc esta precisando
db.execute("drop table nomedatabela")
db.execute("drop table nomedatabela")
Funcionou, obrigado
Tópico encerrado , respostas não são mais permitidas