Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизПолучаю ошибку при создании таблицы через Tquery. Почему ??? Найти похожие ветки
← →
derr (2002-01-07 14:23) [19]Сделал сам всё дело было в QUERY.DataSource
if savedialog1.execute then
begin
if FileExists(savedialog1.filename) then
DeleteFile(savedialog1.filename);
//QUERY.DataSource Обязательно пустое иначе взрыв !!!
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);
DriverName:="Microsoft FoxPro Driver (*.dbf)";
AliasName:="TEMPDB";
end;
query1.paramcheck := false;
Query1.DatabaseName := "tst";
Query1.SQL.Clear;
vrem:=Trim(ChangeFileExt(extractfilename(SaveDialog1.fileName)," "));
query1.sql.Add("CREATE TABLE """+vrem+""" (");
query1.sql.Add("last_name CHAR(20),");
query1.sql.Add("first_name CHAR(15),");
query1.sql.Add("salary DECIMAL(10,2));");
query1.ExecSQL;
query1.close;
end; // от savedialog
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c