kak dobavit novuyu zapis v tablicu Paradox?

← →
bambina © (2003-01-20 16:34) [0]

Eto to chto ya napisala (schityvaet s xls).
Kak eto pravilno sdelat (moe pochemu-to ne rabotaet..)

var i,R: Integer;
E,Worksheet: Variant;
s,t,u,v: String;
begin
E:= CreateOleObject("Excel.Application");
E.WorkBooks.open("D:\Irina\psc\src\KTR_TAB.xls",true);
WorkSheet:= E.ActiveSheet;
R:=WorkSheet.UsedRange.Rows.Count;

s := "INSERT INTO "KTR.db" (KTRNummer)" +
" VALUES(";
u := ");";
for i := 3 to R do
begin
t :=E.WorkBooks[1].WorkSheets[1].Cells[i,1];
v := s+"""+t+"""+u;
Query1.SQL.Clear;
Query1.SQL.Add(v);
Query1.ExecSQL;
end;
Query1.SQL.Clear;
Query1.SQL.Add("SELECT * FROM KTR");
Query1.Open;
end;

← →
Игорь Шевченко © (2003-01-20 16:40) [1]

А просто "INSERT INTO KTR (KTRNummer)" +
" VALUES("
не помогает ?
Как Query настроена ?

← →
bambina © (2003-01-20 16:45) [2]

Query podklyuchen k Aliasu. I vyborka SELECT rabotaet normalno
(a KTR ne pomogaet.)

← →
bambina © (2003-01-20 16:54) [3]

INSERT INTO KTR (KTRNummer) VALUES("1001")
eto zapros SQL

← →
MsGuns © (2003-01-20 18:57) [4]

А все поля KTR CHARACTER ?

← →
MsGuns © (2003-01-20 19:04) [5]

Кстати, мне лично при отладке кусков, хитро клеющих запросы, часто помогает Query.SQL.SaveToFile("C:\Temp\SQLXXX.sql") и бряк перед Query.Prepare (этот оператор я всегда ставлю перед запуском запроса - вычитал у Фаронова, что это есть ХОРОШО). Когда прога "брякается", смотрю содержимое этого файла и вижу каков я дурак СРАЗУ ! :)) Если запрос корректен, то {F9}

← →
Наталия © (2003-01-21 06:16) [6]

"Не работает" - это выдаёт какую-нибудь ошибку или неправильный результат? Проверить, чему равно R. Отладчиком пройтись.

← →
bambina © (2003-01-21 10:23) [7]

thx vsem, rabotaet.. Tolko pochemu-to pri vyklyuchenii kompa, nachinaet visnut, postoyanno otkrivaet xls-fail.. i tok na reset reagiruet. Mozhet nado objekt kak-to delete? Ja nichego ne nascha...

Приведи весь код

vot methoda..

procedure TF_Hauptmenu.FormCreate(Sender: TObject);
var i,R: Integer;
E,Worksheet: Variant;
s,t2,t3,t6,v: String;
begin
E:= CreateOleObject("Excel.Application");
E.WorkBooks.open("D:\Irina\psc\src\KTR_TAB.xls",true);
WorkSheet:= E.ActiveSheet;
R:=WorkSheet.UsedRange.Rows.Count;

s := "INSERT INTO KTR(K

E.Quit;
E:=Unassigned;

kak dobavit novuyu zapis v tablicu Paradox? Найти похожие ветки