저기요..DB는 MSACCESS 고요..
Month Calendar를 이용해서 날짜를 DB에 넣을려구 하거든요..
그냥 2001-05-14이런 식으로 넣는게 아니고요.. year,month,day로 각각 copy를 이용해서 나눠서 필드에 넣을려구 하는데... 자꾸 에러가 뜨네요..
EdtMomo.Text <= DBEdit박스 입니다.
저의 소스를 좀 보시구 좋은 답변 부탁드립니다.
var
cDt, cYear, cMonth, cDay : String;
begin
cDt:=DateToStr(MonthCalendar1.Date);
cYear:=copy(cDt,1,4);
cMonth:=copy(cDt,6,2);
cDay:=copy(cDt,9,2);
with CalendarSql do begin
Close;
Sql.Clear;
Sql.Add('Insert into 공휴일');
Sql.Add('(C_Year,C_Month,C_Day,C_Memo)');
sql.Add('values('+
QuotedStr(cYear)+','+
QuotedStr(cMonth)+','+
QuotedStr(cDay)+','+
QuotedStr(EdtMemo.Text));
execSql;
end;
end;
> 저기요..DB는 MSACCESS 고요..
> Month Calendar를 이용해서 날짜를 DB에 넣을려구 하거든요..
>
> 그냥 2001-05-14이런 식으로 넣는게 아니고요.. year,month,day로 각각 copy를 이용해서 나눠서 필드에 넣을려구 하는데... 자꾸 에러가 뜨네요..
>
> EdtMomo.Text <= DBEdit박스 입니다.
>
> 저의 소스를 좀 보시구 좋은 답변 부탁드립니다.
>
> var
> cDt, cYear, cMonth, cDay : String;
> begin
> cDt:=DateToStr(MonthCalendar1.Date);
> cYear:=copy(cDt,1,4);
> cMonth:=copy(cDt,6,2);
> cDay:=copy(cDt,9,2);
> with CalendarSql do begin
> Close;
> Sql.Clear;
> Sql.Add('Insert into 공휴일');
> Sql.Add('(C_Year,C_Month,C_Day,C_Memo)');
> sql.Add('values('+
> QuotedStr(cYear)+','+
> QuotedStr(cMonth)+','+
> QuotedStr(cDay)+','+
> QuotedStr(EdtMemo.Text));
> execSql;
> end;
> end;
>
>
마지막 괄호를 빼먹었네요...ShowMessage(CalendarSql.Text)를 찍어보세요.