Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

kak dobavit novuyu zapis v tablicu Paradox? [D7, Paradox]

bambina © (2003-01-20 16:34:00)
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-21 11:08:00) [1]
E.Quit;
E:=Unassigned;

bambina (2003-01-21 10:56:00) [2]
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

Игорь Шевченко (2003-01-21 10:46:00) [3]
Приведи весь код

bambina (2003-01-21 10:23:00) [4]
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...

Наталия (2003-01-21 06:16:00) [5]
"Не работает" - это выдаёт какую-нибудь ошибку или неправильный результат? Проверить, чему равно R. Отладчиком пройтись.

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

MsGuns (2003-01-20 18:57:00) [7]
А все поля KTR CHARACTER ?

bambina (2003-01-20 16:54:00) [8]
INSERT INTO KTR (KTRNummer) VALUES("1001")
eto zapros SQL

bambina (2003-01-20 16:45:00) [9]
Query podklyuchen k Aliasu. I vyborka SELECT rabotaet normalno
(a KTR ne pomogaet.)

Игорь Шевченко (2003-01-20 16:40:00) [10]
А просто "INSERT INTO KTR (KTRNummer)" +
" VALUES("
не помогает ?
Как Query настроена ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »