procedure TForm1.Button1Click(Sender: TObject);
var
Mystrlst:TStringList;
i: Integer;
s: String;
q1: string;
q2:string;
q3:string;
q4:string;
begin
Mystrlst:=TStringList.Create;
Label2.caption:=ShellTreeView1.Path;
s:=Label2.Caption;
FindFiles(s, '*.dbf', Mystrlst, true);
Label1.Caption := IntToStr(Mystrlst.Count)+ ' íàéäåííûõ ôàéëîâ';
q1:='AD2_ESA, AD2_EOL, AD2_NUM, AD2_TST, AD2_ORI, AD2_DSY,AD2_HSY,AD2_VAR,AD2_DPP,AD2_DUP,AD2_TIP,AD2_NCR,AD2_RF1';
q2:=',AD2_RF2,AD2_ALF,AD2_STS,AD2_REM,AD2_RIP,AD2_DDR,AD2_ORD,AD2_PRD,AD2_PRO,AD2_OPE,AD2_ATT,';
q3:='AD2_RUB,AD2_PES,AS2_SEZ,AD2_FMT,AD2_CTR,AD2_NOM,AD2_NBO,AD2_DBO,AD2_HBO,AD2_COP,AD2_RPS,AD2_INT,AD2_TXG';
q4:=''+q1+q2+q3+'';
for i:=0 to Mystrlst.Count-1 do
begin
Query1.Close;
Query1.SQL.clear;
Query1.Sql.Add('INSERT into C:\Temp\mix.DBF "q4"');
Query1.Sql.Add('SELECT * "q4" from "'+Mystrlst+'"');
Query1.ExecSQL;
Query1.Close;
end;
Работа с DBF файлами
Короче вот кусок проги
В итоге пишет Invalid use of Keyword
Token:?
Что эта за ошибка, как ее исправить, и вообще что это за вопрос?
[COLOR="Red"]Очень рекомендую почитать правила раздела Дельфи. Получаете нарушение -10 за дубликат тем и неправильное оформление кода. Подробности ищем в правилах.[/COLOR] OlgaKr.
Код:
В итоге пишет Invalid use of Keyword
Token:?
Что эта за ошибка, как ее исправить, и вообще что это за вопрос?
[COLOR="Red"]Очень рекомендую почитать правила раздела Дельфи. Получаете нарушение -10 за дубликат тем и неправильное оформление кода. Подробности ищем в правилах.[/COLOR] OlgaKr.
Код:
Query1.Sql.Add('SELECT * "q4" from "'+Mystrlst+'"');
В первую очередь звездочку убрать. Ну или "q4". Звездочку лучше.
Во вторых я не очень знаком с диалектом SQL, применяемым в DBE, но в классическом SQL insert записывается так:
insert into <таблица> (<список_полей>) values (<список_значений>). Скобки обязательны. Здесь я слова VALUES не вижу. Скобок тоже. Возможно, в BDE все и так должно сработать, но сомневаюсь.
Ну и наконец надо удостовериться, что все файлы из Mystrlst имеют тот же формат, что и C:\Temp\mix.DBF