из дбгрид в sql server

[kate158]

Люди прошу помощи, т.к. не могу понять в чем проблема.\
В общем, хочу добавить в БД значения
date_____|val
01.02.2009|0.5
01.02.2008|0.75
01.02.2009|4.75
и т.д.
дата берется из datetime picker,val из дбгида.
вот код мой

if  dbgrid1.DataSource.DataSet.FieldByName('Vol_Code').AsString=dbgrid2.DataSource.DataSet.FieldByName('Vol_Code').AsString
then
  begin
  dbgrid3.DataSource.DataSet.First;
  while not dbgrid3.DataSource.DataSet.EOF do
  begin
     s:=s+(dbgrid3.DataSource.Dataset.Fields[5].asinteger, ffGeneral, 8, 0);
     dbgrid3.DataSource.DataSet.Next;
     end;
 DataMod.INSERT_GTP.Parameters.ParamByName('DateDST').Value:=calDatePicker.Date;//INSERT_GTP-adoquery
 DataMod.INSERT_GTP.Parameters.ParamByName('VolPlan').Value:=strtoint[i];
 DataMod.INSERT_GTP.Execute;
   END;

вот только ерунда какая то получается.ну не вижу я ошибки..
sql server,adoquery,adocommand

[soleil@mmc]

1) какая ерунда получается?
2) какой текст запроса DataMod.INSERT_GTP ?
3) раз это кусок кода, то зачем там используется массив значений dbVolPlan, но нет цикла по i ?
4) и в продолжение п.3 - а что там в поле dbgrid3.DataSource.Dataset.Fields[5].asstring? и что получается когда по этому датасету пробежится цикл - небось список циферок и десятичных разделителей, который накапливается (потому что не видно обнуления строковой переменной s)?

[Serge_Bliznykov]

Катя, извините, если мой пост окажется для Вас бесполезным, но:

1) какая ерунда получается?... её отсюда не видно ;(

2) dbVolPlan - размер массива не забываете задать?
А где i задаётся и наращивается?

3) какой текст вставки в INSERT_GTP

4) Vol_code в dbGrid1 и dbGrid2 одинаковые!? может Вы вообще внутрь не попадаете?..

5) и последнее, и ГЛАВНОЕ, а что за странный код - вы берёте 6-е поле в dbGrid и собираете все строчки в одну переменную s там что, в гриде, в одной строчке 0 во, второй точка, в третьей семёрка, а в четвёртой строке пятёрка!?

__________________
soleil@mmc, я Вам клянусь — писал вопросы не видя Ваш пост... а как совпало то!

[kate158]

1. вылазит ошибка floating point overlow
2.насчет массива пока не знаю както он коряво у меня написан)
3.adocommandtext-insert into GTP_RESULTS (DateDST, VolPlan ) values (:DateDST, :VolPlan)
4.vol_ code одинаковые
5.в dbgrid3.DataSource.Dataset.Fields[5].asstring - дробные числа

[soleil@mmc]

...исходный код задачи меняется, но ясности не добавляется
поставьте точку останова в строчке где у вас IF прописан и пройдите пошагово - пары итераций в цикле while должно хватить для ясности

Сообщение от Serge_Bliznykov

soleil@mmc, я Вам клянусь — писал вопросы не видя Ваш пост... а как совпало то!

верю

[kate158]

есть и длина и вэрибл i

SetLength(dbVolPlan,25);
   for i:=1 to dbgrid3.DataSource.dataset.RecordCount-2 do

пошагово было.
в общем числа
22
45
56
записываются в строку как 224556

[soleil@mmc]

Сообщение от kate158

пошагово было.
в общем числа
22
45
56
записываются в строку как 224556

у вас не только "веселые" разработчики базы, но еще и программного кода
а потом чтобы эти числа показать в гриде вы наверное их разбиваете на числа по 2 цифры?

ну дык в чем проблема в итоге?
после ваших изменений в коде стратового поста - код стал еще более нерабочим:
это хоть и недописано

s:=s+(dbgrid3.DataSource.Dataset.Fields[5].asinteger, ffGeneral, 8, 0);

но легко можно заменить на это

s:=s+dbgrid3.DataSource.Dataset.Fields[5].AsString;

а правильность ввода лучше контролировать в момент ввода данных

и, видимо, как результат конкатенации чисел (большого их кол-ва) - переполнение - посмотрите на досуге справку по размерности integer и double

[kate158]

просто взрыв мозга.
ладно,щас ченить придумаю.спасибо