|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.09.2007, 07:58 | #1 |
Новичок
Джуниор
Регистрация: 14.09.2007
Сообщений: 1
|
динамическое присваивание параметров
программа по импорту данных. есть SQL-конструктор, который создает запрос на создание БД, в тоже время создается 2й запрос (параметризованный) для заполнения БД. никак не могу сообразить код для присваивания значений параметрам. не обязательно писать код, хотя бы направление построения логики дайте. вот что я пробовал, не очень удачно:
for I:=0 to adoDataSet1.RecordCount-1 do begin for K:=0 to fiel.Count-1 do begin if adodataset1.FieldDefs.Items[i].DataType=ftfixedchar then ibsql2.ParamByName(fiel.Strings[k]).AsString:=adodataset1.FieldValues[fiel.Strings[k]]; if adodataset1.FieldDefs.Items[i].DataType=ftBCD then ibsql2.ParamByName(fiel.Strings[k]).AsFloat:=adoDataSet1.FieldValues[fiel.Names[k]]; if adodataset1.FieldDefs.Items[i].DataType=ftDate then ibsql2.ParamByName(fiel.Strings[k].AsDate:=adoDataSet1.FieldValues[fiel.Names[k]]; end; где fiel - элемент StringList типа Tstrings, со значениями имен стобцов БД. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Dll динамическое подключение | MAcK | Общие вопросы Delphi | 1 | 11.08.2008 16:45 |
Передача параметров | aesoem | Общие вопросы Delphi | 8 | 15.07.2008 21:51 |
Динамическое MainMenu | dr.Chas | Общие вопросы Delphi | 4 | 24.06.2008 20:33 |
Передача параметров | Gudzon | Общие вопросы Delphi | 12 | 08.02.2007 08:19 |