MS Access - skrypt do kopiowania danych do pliku

0

Witam, potrzebuje pomocy w zakresie obsługi bazy danych MS Access.

Problem wygląda tak, mam bazę danych MS Access - pojedynczy plik .mdb - w której znajduję się x tabelek. I teraz potrzebuje prostego skryptu, który da rade wyeksportować zawartość jednej z tabel do pliku tekstowego - wszystko jedno czy w formacie zapytań sql czy excelowego csv.
I teraz pytanie w czym można to zrobić, żeby było łatwo i bezproblemowo. Bo oczywiście można odpalić accessa i zrobić ręcznie eksport tabeli, ale chodzi o to że mam aplikacje która co jakiś czas nadpisuje dane w tej tabeli i przydał by mi się jakiś prosty programik/skrypt, który uruchomię i wykona mi zrzut danych do jakiegoś pliku.
Trochę się rozglądałem i chyba można to zrobić w vbs? Ma ktoś pomysł w czym można to najprościej zrobić?

Pozdrawiam

0

A jaki język programowania znasz? Do baz accesowych przez odbc da się dostać, więc właściwie każda platforma coś takiego ci zaoferuje.

0

Ogólnie to pliki z eksportowanymi danymi potrzebuje żeby potem wrzucić do mysql poprzez php. Także mógłbym to zrobić w php - i z tym by nie było żadnego problemu. Jednak chodzi o to że musiałbym instalować apacha na każdym komputerze - a jest ich kilka i to trochę bez sensu stawiać apacha tylko po to żeby coś eksportować z bazy danych.
Kiedyś pisałem trochę w c++/delphi ale dawno także tak czy tak musiałbym sobie odświeżyć wiedzę, także jestem otwarty na propozycję skoro i tak i tak muszę się poduczyć ;)

Wiem że można zrobić np: kompaktowanie bazy danych poprzez plik batchowy - prostym poleceniem uruchomienia bazy danych z parametrem i się zastanawiam czy nie dało by rady zrobić czegoś podobnego z eksportem bazy danych

0

Jakby ktoś kiedyś potrzebował:

Dim ad, objFSO, objOutFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.OpenTextFile("Sciezka_do_pliku\plik.csv", 8, True)

set ad = CreateObject("ADODB.Connection")
ad.Open "DSN=baza;UID=login;Pwd=haslo"

Set rs = ad.execute("SELECT * FROM nazwa_tabeli")

do while not rs.eof

 for each objekt in rs.fields
  objOutFile.Write objekt &";"
 next
  objOutFile.WriteLine
  rs.movenext
loop
ad.close

I po sprawie, pozdrawiam.

1

po Set rs=...
wstaw

Dim s
s=rs.GetString(2,-1,";") ' 2 i -1 to stałe
objOutFile.Write s

i po sprawie

0

Witam,

A ma ktoś pomysł zeby tabela nie zapisywała sie w csv tylko w nowej bazie mdb?

po prostu potrzebuje z jednej bazy skopiowac jedna tabele i stworzyc nowa baze z tą tabela

1 użytkowników online, w tym zalogowanych: 0, gości: 1