왜~안되는지 이유를 모르겠습니다.
익스플로를 이용해서 쿼리를 실험 해 볼때는 원하는 값이 나오는데
코딩만 하면 오류가 납니다.
뭐가 잘못 된 건지..ㅡㅜ
(밑에 다른 분이 올리신걸 보고 해도...영~에휴~ㅡㅜ)
Temp := FormatDateTime('YYYYMMDD', DateEdit3.date);
if Temp_Run.RecordCount <> 0 then begin
if (DateEdit3.Text <> '') and (StrToInt(Temp) > 19999999) then begin
Temp1 := Temp_Run.FieldByName('FEEDER').AsString;
Temp2 := Temp_Run.FieldByName('VOY').AsString;
Sql := ' Update TEMP_RUN ' +
' Set IM_DATE = ' + Chr(39) + FormatDateTime('DD-MM-YY', DateEdit3.date) + Chr(39) +
' Where FEEDER =' + chr(39) + Temp1 + Chr(39) +
' And VOY =' + Chr(39) + Temp2 + Chr(39);
Query2.Active := False;
Query2.Sql.Clear;
Query2.Sql.Add(Sql);
Query2.Active := True;
end;
end;
디비는 파라독스 입니다.
보시면 아시겠지만 제가 하고 싶은 건 TEMP_RUN디비에 날짜를 업데이트 하는 겁니다.
발생 오류는 ...
Error creat cursor handle
입니다..
님들~도와주세여~ㅡㅜ
Query2.Active := False;
Query2.Sql.Clear;
Query2.Sql.Add(Sql);
Query2.Active := True; <=== Query2.Execsql; 로 고쳐보시죠..
end;
end;
Query2.Active 의 뜻은 Open 의 뜻이며
Open 은 Select 문에만 해당 됩니다..
ExecSql 은 Update, insert , Create 에 해당 됨니다..