안녕하세요 고수님 ^^
열심히 할려고 하는 초보입니다.
어떠한 데이타를 UPDATE문을 사용해서 저장할려고 합니다..
아래와 같이 않하고 SQL.OPEN;으로 하면 DB커서핸들 에러가 나오고
아래와 같이 하면 다음문장에서 걸림니다..
힌트좀 주세요
고맙습니다.. ^^
procedure TFrm_Str.BitBtn3Click(Sender: TObject);
var
data_Buf : string;
begin
data_Buf := '';
Query1.First;
data_Buf := 'UpDate Special set Spec_fld = '+QuotedStr(edit1.text)+' where Spec_idx = 1';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(data_Buf);
Query1.ExecSQL;
data_Buf := '';
Query1.First;
에러발생-> data_Buf := 'UpDate Special set Spec_fld = '+QuotedStr(edit2.text)+' where
Spec_idx = 2';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(data_Buf);
Query1.ExecSQL;
end;
코드 상으로 보면 쓸모도 없는 부분인데 이상하고..
그리고 ExecSQL 후 커서도 오픈되지 않는데..
해당 메소드를 실행한 곳에서 에러가 안나고..
다음 줄에서 났다는 것은 이해가 안가네요..
한번 해당 라인을 지우고 컴파일 해보세요..
From 류..
왕초보입니다... wrote:
> 안녕하세요 고수님 ^^
> 열심히 할려고 하는 초보입니다.
> 어떠한 데이타를 UPDATE문을 사용해서 저장할려고 합니다..
> 아래와 같이 않하고 SQL.OPEN;으로 하면 DB커서핸들 에러가 나오고
> 아래와 같이 하면 다음문장에서 걸림니다..
> 힌트좀 주세요
> 고맙습니다.. ^^
>
> procedure TFrm_Str.BitBtn3Click(Sender: TObject);
> var
> data_Buf : string;
> begin
> data_Buf := '';
> Query1.First;
> data_Buf := 'UpDate Special set Spec_fld = '+QuotedStr(edit1.text)+' where Spec_idx = 1';
> Query1.Close;
> Query1.SQL.Clear;
> Query1.SQL.Add(data_Buf);
> Query1.ExecSQL;
> data_Buf := '';
> Query1.First;
> 에러발생-> data_Buf := 'UpDate Special set Spec_fld = '+QuotedStr(edit2.text)+' where
> Spec_idx = 2';
> Query1.Close;
> Query1.SQL.Clear;
> Query1.SQL.Add(data_Buf);
> Query1.ExecSQL;
> end;