
24.03.2011, 15:48
|
Местный
|
|
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
|
|
Код:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('insert into glav ');
Query2.SQL.Add('(Name, Family, SecName, DataRozh, Pol, Ylica, Dom, Kv, Telefon, PocleEnd, IDych) ');
Query2.SQL.Add('values (:Name, :Family, :SecName, :DataRozh, :Pol, :Ylica, :Dom, :Kv, :Telefon, :PocleEnd)');
Query2.parametrs.parambyname('Name').value:='Name';
и т.д.
Query2.execSql;
Код:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('insert into master (Family) ');
Query2.SQL.Add('values(:Family)');
Query2.parametrs.parambyname('Family').value:='Family';
Query2.execSql;
и т.д. оставшиеся таблицы
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
|