Listar tabelas de uma base Access

[lsileo 0]

E ae, pessoal. Tudo bem?!

 

Bom, eu tenho algumas necessidades e preciso de uma ajuda.

EU trabalho com um monte de bases ACCESS, e quero parar de ter que baixar a base toda a cada atualização.

 

O negócio é que eu estou desenvolvendo um sisteminha pra fazer a atualização dessas bases, mas pra isso, eu preciso lê-las e exibí-las, depois teria que ler as TABELAS dentro delas pra atualizar.

 

Ou seja, ler os arquivos é tranquilo, uso o FSO e já resolvi, mas assim que escolho uma das bases listadas, eu precisaria ler todo o conteúdo dessa base.

 

A pergunta é: Isso é possível com FSO ou qualquer outro componente???

 

Obrigado e até a próxima.

 

Leonardo Siléo

===========

[dataset 0]

Tem algumas coisas comentadas pois acho que não precisa, mas ta aí o exemplo, agora basta adaptar.

 

adSchemaTables = 20
	Set rsTabs = conSTR.OpenSchema(adSchemaTables)

	aux = 0
	WHILE not rsTabs.EOF
		IF rsTabs("TABLE_TYPE") = "TABLE" THEN
			'response.write "FullTableDel("&aux&") = " & chr(34) & "DELETE FROM " & rsTabs("TABLE_NAME") & chr(34) & "<br>"
			aux = aux + 1
			response.write rsTabs("TABLE_NAME") & " - "
		''ELSE
			''response.write rsTabs("TABLE_NAME") & " + <br>"
		END IF
	rsTabs.MoveNext
	WEND

	rsTabs.Close
	Set rsTabs = Nothing

Lá vai outro exemplo:

 

sqlT = "SELECT * FROM tabela"
tabRec.Open sqlT, conSTR, 3

			For x = 0 to tabRec.Fields.count - 1
				response.write "<td><b>"&tabRec.Fields(x).Name & "<br>"& fTipo (tabRec.Fields(x).type) &"</b></td>"
			NEXT

			WHILE NOT tabRec.EOF

				response.write "<tr>"

				FOR x = 0 to tabRec.Fields.count - 1
					response.write "<td>" & tabRec (x) & "</td>"
				NEXT

				response.write "</tr>"
				tabRec.movenext

			WEND

			response.write "</table><table><tr><td>Registros: " & nCont & "</td></tr>"
			tabRec.close

Espero ter ajudado.

[Mário Monteiro 179]

dataset

 

Sei que a intenção foi boa mas este topico é de 2006

 

Se deseja realmente ajudar o forúm responda em topicos recentes onde os usuarios ainda precisam da resposta

[GuiGsm 0]

dataset

 

Sei que a intenção foi boa mas este topico é de 2006

 

Se deseja realmente ajudar o forúm responda em topicos recentes onde os usuarios ainda precisam da resposta

 

Acabou de me ajudar! Apesar de ser antigo é bom responder pois ajuda quem pesquisa e não precisa perguntar novamente! Muito Obrigado! :lol:

[xanburzum 169]

Ótimo, ficamos felizes , que ajuda foi boa, mas para melhor fluir nosso fórum, caso exista mais dúvidas, você pode iniciar um novo tópico.

 

att.

 

X@nBuRzUm