слить данные из 2 таблиц

← →
Alex_xxx © (2004-05-28 15:00) [0]

Дано:
Таблица продаж (ТП): код товара, количество проданного товара
Таблица товаров (ТТ): код товара, начальное количество.
Они лежат в разных каталогах :-(
В таблица продаж постоянно добавляются записи, поэтому ее нельзя блокировать постоянно :-(
Идея: Брать из ТП и ТТ данные по коду, сливать их во временных XML файл (TADOQuery.SaveToFile(...._) ) и отключаться. Дальнейшая работа с этим XML.
Вопрос: как получить данные из таблиц из разных КАТАЛОГОВ?
Когда они в одном каталоге - проблем нет.

ADO, dBASE, D6

← →
sniknik © (2004-05-28 15:20) [1]

запрос в нем указывать таблицы вместе с каталогом, и сливать во временные не надо блокироваться постоянно не будет.

← →
Alex_xxx © (2004-05-28 16:38) [2]

При указании полного пути ко второй таблице в запросе ругается на то, что ядро БД не может найти объект :-(
Строка подключения:
MyBD.ConnectionString:="Provider=MSDASQL.1;Persist Security Info=False;"+
"Extended Properties="DSN=Файлы dBASE;DBQ="+PBD+";DefaultDir="+
PBD+";DriverId=533;MaxBufferSize=2048;PageTimeout=5;"";
в переменной PBD храниться путь к одной из таблиц.
PBD:="c:\BD1"

Запрос:
q1.SQL.Add("select a.cardarticu,a.quantity,b.addnum1");
q1.SQL.Add("from TableProd a,"c:\BD2\TableTovar.DBF" b");
dm1.q1.SQL.Add("where a."date"=:dt and a.KodTovara=b.KodTovara");
q1.Parameters.Items[0].Value:=StrToDate("20.04.2004");
q1.Open;

← →
sniknik © (2004-05-28 16:56) [3]

MyBD.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=dBase IV;Persist Security Info=False";

q1.SQL.Add("select a.cardarticu,a.quantity,b.addnum1");
q1.SQL.Add("from c:\BD1\TableProd a, c:\BD2\TableTovar b");
dm1.q1.SQL.Add("where a.[date]=:dt and a.KodTovara=b.KodTovara");
q1.Parameters.Items[0].Value:=StrToDate("20.04.2004");
q1.Open;

вернее не так, а так
MyBD.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=dBase IV;Persist Security Info=False"; q1.SQL.Add("select a.cardarticu,a.quantity,b.addnum1"); q1.SQL.Add("from c:\BD1\TableProd a, c:\BD2\TableTovar b"); dm1.q1.SQL.Add("where a.[date]=? and a.KodTovara=b.KodTovara"); q1.Parameters.CreateParameter("dt", ftDateTime, pdInput, 0, StrToDate("20.04.2004")) q1.Open;

и в квери ParamCheck поставь фалсе, а то на путь ругатся будет (там ":" есть)

слить данные из 2 таблиц Найти похожие ветки