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

select из одной базы в другую   Найти похожие ветки 

← →
Roka ©   (2003-04-01 23:06) [0]

Как осуществить такую штуку? Тоесть селектом отбираем данные из одной таблицы, а результат надо записать в другую. В Фоксе это выглядело как select * from table1 into table2.

Вроде как надо бы через Tquery делать, но что-то у меня into непроходит. :(

---

← →
ЮЮ ©   (2003-04-02 03:03) [1]

Insert into table2 select * from table1 [where table1. ...]

Insert into table2(a,b,c) select d,e,f from table1 [where table1. ...]

---

← →
Roka ©   (2003-04-02 13:05) [2]

а у меня через TQuery что-то так некатит :(
На что ругается позже напишу.

---

← →
Roka ©   (2003-04-02 22:51) [3]

Пробую делать так:
Query1.SQL.Add("Insert into foxbaza.dbf select * from baza.db ");
Вываливается ошибка при выполнении Query:
Project zzzzz.exe raised exception class EDBEngineError with message
"Type mismatch in expression".
Что я делаю не так?
И как быть если базы находятся не в текущем каталоге?

---

← →
Basic ©   (2003-04-03 00:52) [4]

что-то на несоответствие типов ругается,
кстати у тебя baza - db или dbf, вроде про парадокс не указывал

---

← →
777 ©   (2003-04-03 01:58) [5]

insert into "c:\base\foxbasa.dbf "
select * from "c:\paradoxbase\baza.db "

---

← →
ЮЮ ©   (2003-04-03 03:04) [6]

insert into ":dbfalias:foxbasa.dbf"
select * from ":paradoxalias:baza.db"

---

← →
Карелин Артем ©   (2003-04-03 08:05) [7]

Вот копирование таблицы из одного формата в другой. Для твоих целей надо просто чуть обрезать код.
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
Table1.Active:=false;
//Набор данных должен быть закрыт
if Table1.Exists then Table1.DeleteTable;
Table1.FieldDefs.Assign(Dbf1.FieldDefs);
//Если надо копировать индексы, делаем то же самое с IndexDefs.
//Перед созданием таблицы имя и база данных должны быть назначены.
Table1.CreateTable;
Table1.Open;
//Копируем данные
ProgressBar1.Max:=Dbf1.ExactRecordCount;
Dbf1.First;
while not(Dbf1.Eof) do
begin
Table1.Append;
for i:=0 to Dbf1.Fields.Count-1 do
begin
Table1.Fields[i].Value:=Dbf1.Fields[i].Value;
end;
ProgressBar1.Position:=Dbf1.PhysicalRecNo;
Application.ProcessMessages;
Table1.Post;
Dbf1.Next;
end;
Table1.Close;
ProgressBar1.Position:=0;
end;


---

← →
Roka ©   (2003-04-03 22:34) [8]

Хочется конечно из Парадокса в Фокс отселектить, но и из Парадокса в Парадокс невыходит и из Фокса в Фокс, попробую все ваши советы. СПС!

---

← →
ЮЮ ©   (2003-04-04 02:32) [9]

>но и из Парадокса в Парадокс невыходит
странно. а автоинкрементных полей в принимающей таблице нет. Если есть, то их стоит исключить из запроса

---

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

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



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