Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2009, 18:49   #21
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Цитата:
имхо проще написать отдельным запросом
Так:
Код:
 Form13.pFIBQuery1.SQL.Clear;
 Form13.pFIBQuery1.SQL.Text:='INSERT INTO REZULT(ID,IDINFO,KO,SB,KY,Y,O,CHO,PROPUSKI) VALUES(null,:INFO,:K1,:S,:K2,:Y,:O1,:C,:P)';
 Form13.pFIBQuery1.ParamByName('INFO').Value:=Form1.SG1.Cells[4,i];

 Form13.pFIBQuery1.ParamByName('K1').Value:=Form1.SG3.Cells[0,i];
 Form13.pFIBQuery1.ParamByName('S').Value:=Form1.SG3.Cells[1,i];
 Form13.pFIBQuery1.ParamByName('K2').Value:=Form1.SG3.Cells[2,i];
 Form13.pFIBQuery1.ParamByName('Y').Value:=Form1.SG3.Cells[3,i];
 Form13.pFIBQuery1.ParamByName('O1').Value:=Form1.SG3.Cells[4,i];
 Form13.pFIBQuery1.ParamByName('C').Value:=Form1.SG3.Cells[5,i];
 Form13.pFIBQuery1.ParamByName('P').Value:=Form1.SG2.Cells[4,i];
 Form13.pFIBQuery1.ExecSQL;
???
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 13.12.2009, 19:15   #22
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

замечательно
soleil@mmc вне форума Ответить с цитированием
Старый 13.12.2009, 19:26   #23
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Цитата:
замечательно
В смысле, что "замечательно"?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 16.12.2009, 15:42   #24
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Пытаюсь сделать такой запрос:
Код:
procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;

 Form13.pFIBQuery_vstavka.SQL.Clear;
 Form13.pFIBQuery_vstavka.SQL.Text:='INSERT INTO REZULT(ID,IDINFO,KO,SB,KY,Y,O,CHO,PROPUSKI) VALUES(null,:INFO,:K1,:S,:K2,:Y,:O1,:C,:P)';
 Form13.pFIBQuery_vstavka.ParamByName('INFO').Value:=Form1.SG1.Cells[4,i];

 Form13.pFIBQuery_vstavka.ParamByName('K1').Value:=Form1.SG3.Cells[0,i];
 Form13.pFIBQuery_vstavka.ParamByName('S').Value:=Form1.SG3.Cells[1,i];
 Form13.pFIBQuery_vstavka.ParamByName('K2').Value:=Form1.SG3.Cells[2,i];
 Form13.pFIBQuery_vstavka.ParamByName('Y').Value:=Form1.SG3.Cells[3,i];
 Form13.pFIBQuery_vstavka.ParamByName('O1').Value:=Form1.SG3.Cells[4,i];
 Form13.pFIBQuery_vstavka.ParamByName('C').Value:=Form1.SG3.Cells[5,i];
 Form13.pFIBQuery_vstavka.ParamByName('P').Value:=Form1.SG2.Cells[4,i];
 Inc(i);
 Form13.pFIBQuery_vstavka.ExecSQL;
end;
Выдается ошибка: [Error] Unit13.pas(246): Undeclared identifier: 'ExecSQL'. В чем дело? И правильно ли составлен запрос?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 16.12.2009, 17:41   #25
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

ты все ответы на форуме не воспринимай буквально, лучше по сути
в зависимости от компонент выполнить запрос можно так ExecSQL или так Exec
чтобы проверить, напиши в самом IDE это
Код:
 Form13.pFIBQuery_vstavka.
и после точки нажми Ctrl + пробел (появятся все варианты)
либо юзай сурсы компонентов или хелп к ним
soleil@mmc вне форума Ответить с цитированием
Старый 16.12.2009, 18:02   #26
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Написал так:
Код:
procedure TForm13.sBitBtn1Click(Sender: TObject);
var
 i:integer;
begin
 i:=1;

 Form13.pFIBQuery_vstavka.SQL.Clear;
 Form13.pFIBQuery_vstavka.SQL.Text:='INSERT INTO REZULT(ID,IDINFO,KO,SB,KY,Y,O,CHO,PROPUSKI) VALUES(null,:INFO,:K1,:S,:K2,:Y,:O1,:C,:P)';
 Form13.pFIBQuery_vstavka.ParamByName('INFO').Value:=Form1.SG1.Cells[4,i];

 Form13.pFIBQuery_vstavka.ParamByName('K1').Value:=Form1.SG3.Cells[0,i];
 Form13.pFIBQuery_vstavka.ParamByName('S').Value:=Form1.SG3.Cells[1,i];
 Form13.pFIBQuery_vstavka.ParamByName('K2').Value:=Form1.SG3.Cells[2,i];
 Form13.pFIBQuery_vstavka.ParamByName('Y').Value:=Form1.SG3.Cells[3,i];
 Form13.pFIBQuery_vstavka.ParamByName('O1').Value:=Form1.SG3.Cells[4,i];
 Form13.pFIBQuery_vstavka.ParamByName('C').Value:=Form1.SG3.Cells[5,i];
 Form13.pFIBQuery_vstavka.ParamByName('P').Value:=Form1.SG2.Cells[4,i];
 Inc(i);
 Form13.pFIBQuery_vstavka.ExecAsBatch;
end;
Сейчас скомпилировалось. хз почему не работало. Раньше работало. Нажимаю на кнопку, ошибок нет, но и данные не вставились. Почему? Что я еще не дописал?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переделка программы по массиву IDakar Помощь студентам 0 26.11.2009 16:54
Переделка кода hen Общие вопросы C/C++ 6 24.10.2009 17:58
Переделка задачи на Record Impario Помощь студентам 14 16.02.2009 18:49
Двумерные маcсивы(переделка). Hostlman Помощь студентам 2 26.12.2007 19:14