BEN
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пытаюсь создать таблицу DBF
Цитата:
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('TEMPDB', extractfilepath(savedialog1.filename),
'FOXPRO'); //FOXPRO
finally
ConfigMode := cmAll;
end;
end;
with database1 do
begin
databasename:='tst';
LoginPrompt := False;
Params.Values['PATH'] :=extractfilepath(savedialog1.filename);
Params.Values['LangDriver'] := 'dBASE RUS cp866';
DriverName:='Microsoft FoxPro Driver (*.dbf)';
AliasName:='TEMPDB';
Connected := True;
end;
query1.paramcheck := false;
Query1.DatabaseName := 'tst';
Query1.SQL.Clear;
query1.sql.Add('CREATE TABLE '''+ Trim(ChangeFileExt(extractfilename(SaveDialog1.fileName),' ')) +''' (');
query1.sql.Add('last_name CHAR(20),');
query1.sql.Add('first_name CHAR(15),');
query1.sql.Add('salary DECIMAL(10,2));'); //NUMERIC
query1.ExecSQL;
query1.close;
|
как только выполняется комманда query1.ExecSQL; говорит, что нет мол alias tst .. может кто знает в чем дело? |
