안녕하세여.. 타락임다...ㅠㅠ
음냐뤼.. 물어볼 사람두 없는데,, 쿼리가 안되서 머리가 빠게지는군여....ㅠㅠ
팁모아의 "스트링그리드에 체크박스넣는 법" 보셨나여???
음냐뤼.. 여러 줄의 스트링 그리드를 테이블에 추가하려는데,
Valuse 라는 예약어를 잘못썼다구 에러가 뜨네여...--
왜 에러가 뜨는지.. 어케 해야 할지 모르겠어여...--+
답변 바랍니다...--++
아래가 문제 코드..
if IsNewGrid = True then // 새로운 그리드를 만들었는가?
begin // Insert 한다.
// TimeBook Table에 스트링그리드의 데이터를 넣는다.
DM.qryTimeBook.Close;
for i := 1 to RCount do
with DM.qryTimeBook do
with sgTimeBook do
begin
// Close;
SQL.Clear;
SQL.Add('Insert Into TimeBook');
SQL.Add('(TimeBookDay, StaffID, StaffName, StaffDuty, bLate, bEarlier, bIllegalAbsence, bLegalAbsence)');
SQL.Add('Valuse ( :N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8 )');
// 날짜를 받는다.
ParamByName('N1').AsString := Cells[0, i];
// 직원 ID 를 받는다.
ParamByName('N2').AsString := Cells[1, i];
// 직원명을 받는다.
ParamByName('N3').AsString := Cells[2, i];
// 직책을 받는다.
ParamByName('N4').AsString := Cells[3, i];
// 체크박스를 받는다.
ParamByName('N5').AsBoolean :=
TCheckBox(Objects[4, i]).Checked;
ParamByName('N6').AsBoolean :=
TCheckBox(Objects[5, i]).Checked;
ParamByName('N7').AsBoolean :=
TCheckBox(Objects[6, i]).Checked;
ParamByName('N8').AsBoolean :=
TCheckBox(Objects[7, i]).Checked;
ExecSQL;
// Open;
end;
end;
부탁함다...T_T
고수님덜을 믿는... 왕초보 타락천사...^______________^
values 입니다... ^^
> 안녕하세여.. 타락임다...ㅠㅠ
>
> 음냐뤼.. 물어볼 사람두 없는데,, 쿼리가 안되서 머리가 빠게지는군여....ㅠㅠ
>
> 팁모아의 "스트링그리드에 체크박스넣는 법" 보셨나여???
>
> 음냐뤼.. 여러 줄의 스트링 그리드를 테이블에 추가하려는데,
>
> Valuse 라는 예약어를 잘못썼다구 에러가 뜨네여...--
>
> 왜 에러가 뜨는지.. 어케 해야 할지 모르겠어여...--+
>
> 답변 바랍니다...--++
>
> 아래가 문제 코드..
>
>
> if IsNewGrid = True then // 새로운 그리드를 만들었는가?
> begin // Insert 한다.
> // TimeBook Table에 스트링그리드의 데이터를 넣는다.
> DM.qryTimeBook.Close;
> for i := 1 to RCount do
> with DM.qryTimeBook do
> with sgTimeBook do
> begin
> // Close;
> SQL.Clear;
> SQL.Add('Insert Into TimeBook');
> SQL.Add('(TimeBookDay, StaffID, StaffName, StaffDuty, bLate, bEarlier, bIllegalAbsence, bLegalAbsence)');
> SQL.Add('Valuse ( :N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8 )');
> // 날짜를 받는다.
> ParamByName('N1').AsString := Cells[0, i];
> // 직원 ID 를 받는다.
> ParamByName('N2').AsString := Cells[1, i];
> // 직원명을 받는다.
> ParamByName('N3').AsString := Cells[2, i];
> // 직책을 받는다.
> ParamByName('N4').AsString := Cells[3, i];
>
> // 체크박스를 받는다.
> ParamByName('N5').AsBoolean :=
> TCheckBox(Objects[4, i]).Checked;
> ParamByName('N6').AsBoolean :=
> TCheckBox(Objects[5, i]).Checked;
> ParamByName('N7').AsBoolean :=
> TCheckBox(Objects[6, i]).Checked;
> ParamByName('N8').AsBoolean :=
> TCheckBox(Objects[7, i]).Checked;
>
> ExecSQL;
> // Open;
> end;
> end;
>
> 부탁함다...T_T
>
> 고수님덜을 믿는... 왕초보 타락천사...^______________^
>