고수님들 저좀 살려주세욤!!!
update문을 사용해서 벌점을 넣고 싶은데 잘 안되네여...
에러문은
----------------------------------------------------
General SQL error
Date type mismatch in criteria expression.
----------------------------------------------------
이구여...해당 쏘스는 밑에 있슴다...
(중복되는거라서 지각만 써놔씀다.)!!
procedure TfrmAttend.btnSaveClick(Sender: TObject);
var
a:string;
k:TDateTime;
BadInt,BadHap:integer; //BadHap은 처벌 총점수, BadInt는 각 처벌 점수
begin
Case cboCheck.ItemIndex of //cboCheck는 지각,조퇴등을구분하는 콤보박스이구요.
1: //지각일경우
begin
BadInt:=5;
k:=(Listsql.fieldbyname('A_Date').asDateTime);
with Query1 do begin
BadHap:=(StrToInt(edBMark.text)+BadInt);
a:=(fieldbyname('A_No').asstring);
close;
sql.Clear;
sql.Add('update 출석');
sql.Add('Set A_Bmark='+ inttostr(BadHap)); //A_Bmark는 벌점 필드
sql.Add('Where A_No='+#39+edNo.Text+#39); //A_No 학번...
sql.Add('And A_Date='+#39+DateTimetostr(k)+#39); //출석부 일자
execsql;
end;
with Listsql do begin
close;
sql.Clear;
sql.Add('select * from 출석 Order by A_Date,A_No');
open;
end;
end;
end;
----------------------------------------------------------------------
Query1 하구 Listsql은 같은 DB를 사용하고있구요. Listsql은 DBGrid에 보여주기 위한 쿼리입니다.
> 고수님들 저좀 살려주세욤!!!
> update문을 사용해서 벌점을 넣고 싶은데 잘 안되네여...
> 에러문은
> ----------------------------------------------------
> General SQL error
> Date type mismatch in criteria expression.
> ----------------------------------------------------
> 이구여...해당 쏘스는 밑에 있슴다...
> (중복되는거라서 지각만 써놔씀다.)!!
>
>
> procedure TfrmAttend.btnSaveClick(Sender: TObject);
> var
> a:string;
> k:TDateTime;
> BadInt,BadHap:integer; //BadHap은 처벌 총점수, BadInt는 각 처벌 점수
>
> begin
> Case cboCheck.ItemIndex of //cboCheck는 지각,조퇴등을구분하는 콤보박스이구요.
> 1: //지각일경우
> begin
> BadInt:=5;
> k:=(Listsql.fieldbyname('A_Date').asDateTime);
> with Query1 do begin
> BadHap:=(StrToInt(edBMark.text)+BadInt);
> a:=(fieldbyname('A_No').asstring);
> close;
> sql.Clear;
> sql.Add('update 출석');
> sql.Add('Set A_Bmark='+ inttostr(BadHap)); //A_Bmark는 벌점 필드
> sql.Add('Where A_No='+#39+edNo.Text+#39); //A_No 학번...
> sql.Add('And A_Date='+#39+DateTimetostr(k)+#39); //출석부 일자
> execsql;
> end;
> with Listsql do begin
> close;
> sql.Clear;
> sql.Add('select * from 출석 Order by A_Date,A_No');
> open;
> end;
> end;
> end;
> ----------------------------------------------------------------------
> Query1 하구 Listsql은 같은 DB를 사용하고있구요. Listsql은 DBGrid에 보여주기 위한 쿼리입니다.
>
A_Date 필드가 DateTime인지 확인해보세요. 형변환 에러입니다.