[Canadec]

Вобщем вопрос такого плана, есть такой код в Delphi:
...
var data,day,mon,year :string
...
data:=10.09.2007
day:=copy(data,1,2)
mon:=copy(data,4,2)
year:=copy(data,7,4)
QAA.close;
QAA.sql.clear;
QAA.sql.add('insert into j_v_un (Day,Mon,Year) values');
QAA.sql.add(' '+day+', '+mon+','+year+' ');
QAA.open;
Во время просмотра записей в базе вместо mon=09 все время mon=9. Т.е. первый ноль он не считает за символ, и по ходу в самой базе. База данных Interbase 6.0, типы полей day,mon,year - char или varchar.
Заранее спасибо!

[mav_c]

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

Вобщем вопрос такого плана, есть такой код в Delphi:
...
var data,day,mon,year :string
...
data:=10.09.2007
day:=copy(data,1,2)
mon:=copy(data,4,2)
year:=copy(data,7,4)
QAA.close;
QAA.sql.clear;
QAA.sql.add('insert into j_v_un (Day,Mon,Year) values');
QAA.sql.add(' '+day+', '+mon+','+year+' ');
QAA.open;
Во время просмотра записей в базе вместо mon=09 все время mon=9. Т.е. первый ноль он не считает за символ, и по ходу в самой базе. База данных Interbase 6.0, типы полей day,mon,year - char или varchar.
Заранее спасибо!

Таких чудес не бывает посмотри sql запрос перед отправкой на сервер.
Проверь размерность полей в базе.

[Canadec]

Вот так все заработало

...
var data,day,mon,year :string
...
data:=10.09.2007
day:=copy(data,1,2)
mon:=copy(data,4,2)
year:=copy(data,7,4)
QAA.close;
QAA.sql.clear;
QAA.sql.add('insert into j_v_un (Day,Mon,Year) values');
QAA.sql.add('(rm1, :Prm2, :Prm3;');
QAA.Parameters.ParamByName('Prm1').asstring:=day;
QAA.Parameters.ParamByName('Prm2').asstring:=mon;
QAA.Parameters.ParamByName('Prm3').asstring:=year;
QAA.ExecSQL;