Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

SQLClientDataSet, Params   Найти похожие ветки 

 
Eduard ©   (2002-01-16 13:20) [0]

Здравствуйте, мастера! Вот объясните мне, пожалуйста, куда деваются параметры, которые я в Design-Time определил для компонента SQLClientDataset.

with SQLClientDataSet1 do
begin
Params[0].AsDateTime := DateTimePicker1.DateTime;
Params[1].AsDateTime := DateTimePicker2.DateTime;
Params[2].AsString := Edit1.Text;
Params[3].AsString := ComboBox1.Text;
Params[4].AsString := ComboBox3.Text;
Params[5].AsString := ComboBox2.Text;
end;


выдает оно мне ошибку Index out of bounds. Пытался писать Params.ParamByName("param1"), пишет "Parameter not found". Я вот думаю, может создавать параметры в Runtime, но уж больно геморройно, да и гарантии никакой. Что делать ?


 
Eduard ©   (2002-01-16 14:29) [1]

Ладно, не хотите на этот вопрос отвечать, ответьте на другой. Создал я-таки параметры в рантайме таким образом

pDateTime := Params.CreateParam(ftUnknown, "pDateTime", ptInput);
pDateRep := Params.CreateParam(ftUnknown, "pDateRep", ptUnknown);
pExecutor := Params.CreateParam(ftUnknown, "pExecutor", ptUnknown);
pFailure := Params.CreateParam(ftUnknown, "pFailure", ptUnknown);
pEquip := Params.CreateParam(ftUnknown, "pEquip", ptUnknown);
pFaculty := Params.CreateParam(ftUnknown, "pFaculty", ptUnknown);


, потом, значит, присваиваю им значения:

Params.ParamByName("pDateTime").AsDateTime := StrToDate(FormatDateTime("dd.mm.yyyy",
DateTimePicker1.DateTime));
Params.ParamByName("pDateRep").AsDateTime := StrToDate(FormatDateTime("dd.mm.yyyy",
DateTimePicker2.DateTime));
Params.ParamByName("pFailure").AsString := Edit1.Text;
Params.ParamByName("pExecutor").AsString := ComboBox1.Text;
Params.ParamByName("pFaculty").AsString := ComboBox3.Text;
Params.ParamByName("pEquip").AsString := ComboBox2.Text;


И при попытке открыть таблицу (CommandText := "INSERT INTO WORKS (Datetime, Faculty, Date_Rep, Equip, Executor, Failure) VALUES (:pDatetime, :pFaculty, :pDateRep, :pEquip, :pExecutor, :pFailure)";

вываливается ошибка "No value for parameter pDateTime". Я проверял, значения параметрам присваиваются нормально, в чем же дело ?


 
Eduard ©   (2002-01-16 16:15) [2]

Т.е. не открыть таблицу, а запись вставить, блин.

Неужто никто не в курсе ?


 
Polevi ©   (2002-01-16 17:47) [3]

Params.ParamByName("pDateTime").AsDateTime := StrToDate(FormatDateTime("dd.mm.yyyy",
DateTimePicker1.DateTime));

Params.ParamByName("pDateTime").Value:=DateTimePicker1.DateTime;



Страницы: 1 вся ветка

Текущий архив: 2002.02.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-32212
Сержик
2002-01-25 09:26
2002.02.11
Как сделать чтобы


6-32312
Александр_1
2001-11-16 00:33
2002.02.11
Трафик


1-32236
Rahim & Vad
2002-01-27 16:58
2002.02.11
Отчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее


3-32157
Yu
2002-01-15 09:30
2002.02.11
Как проверить корректность вводимых данных?


1-32276
IronHawk
2002-01-24 16:35
2002.02.11
И снова проблема .... многоуважаемые Мастера ! ! !