Скачать: CL | DM;

"Архивация" БД Access   Найти похожие ветки 

← →
saNat ©   (2004-10-17 00:30) [0]

Доброго времени суток.
Подскажите пожалуйста, как сделать следующую вещь. Есть файл БД на Access"е. В ней лежат таблицы, например, Таблица1 и Таблица2. Нужно сделать в них выборку данных, например, информация за сегодняшний день (это понятно), затем создать файл новой БД той же структуры с заданным именем и скопировать отбранные данные.

Буду рад примеру.

С уважением...

---

← →
YurikGL ©   (2004-10-17 10:00) [1]

> saNat ©   (17.10.04 00:30)  

1)> сделать в них выборку данных,

2)> затем создать файл новой БД той же структуры с заданным
> именем

3)> скопировать отбранные данные.

Собственно, какое из действий не получается?

---

← →
Настенька   (2004-10-17 10:57) [2]

наверное, выборку сделать не сложно, saNat не знает, как сделать пункт 2. и соответственно 3.

---

← →
sniknik ©   (2004-10-17 14:59) [3]

http://delphimaster.net/view/3-1096621509/
+
SELECT INTO копирует таблицу со структурой.

только "Архивация" тут совсем не причем по моему, както не связаны вопрос и заголовок, межет другое имел ввиду?

---

← →
saNat ©   (2004-10-18 23:34) [4]

Как вы правильно поняли, выборку данных я сделать сам могу :о) Вопрос в том, как создать отдельный файл базы. В том плане, что таблицы (например, Таблица1 и Таблица2) хранятся в базе данных (например, База.mdb). Нужно сделать новый файл базы (например, База_06_11_1983.mdb) с таблицами той же структуры, содержащими выборку данных за период (например, 6 ноября 1983).

С уважением...

P.S.:хотя с архивацией может и погорячился

---

← →
sniknik ©   (2004-10-18 23:46) [5]

> Нужно сделать новый файл базы (например, База_06_11_1983.mdb) с таблицами той же структуры
базу делаеш пустую, затем
> +
> SELECT INTO копирует таблицу со структурой.

> содержащими выборку данных за период (например, 6 ноября 1983).
ограничение выборки по дате WHERE xxx=6 ноября 1983

---

← →
Silla ©   (2004-10-18 23:47) [6]

Уже обсуждалось. Поиском надо пользоваться. :)
procedure TFrmBase.ExistsDatabaseSystems;
var
PathToBase, DataBaseName: String;
begin
PathToBase := ExtractFilePath(Application.ExeName)+"Dat";
DataBaseName := "sp.mdb";
// проверка наличия пути для базы данных, если нет, то создаем
if not DirectoryExists(PathToBase) then
  if not CreateDir(PathToBase) then
  raise Exception.Create("Не могу создать " + PathToBase);
// проверка наличия базы данных, если нет, то создаем
if not FileExists(PathToBase+"\"+DataBaseName) then
  CreateMSAccessDB(PathToBase, DataBaseName);
// присоединение к базе данных
ADOConnection.Connected := False;
ADOConnection.ConnectionString := "Provider=MSDASQL.1;Persist Secur"+
  "ity Info=False;Extended Properties="DRIVER={Microsoft Access Dri"+
  "ver (*.mdb)};DBQ="+PathToBase+"\"+DataBaseName+";DefaultDir="+
  PathToBase+";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTim"+
  "eout=5;UID=admin;"";
ADOConnection.Mode := cmShareDenyNone;
ADOConnection.DefaultDatabase := PathToBase+"\"+DataBaseName;
ADOConnection.Connected := True;
//ExistsTableSystems(PathToBase, DataBaseName, ADOConnection);
end;

http://delphimaster.net/view/3-1096621509/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c