오~ 정말...



로컬 DB에 문제가 있다고 해서

Oracle에 있는 셈플데이타를 가지고 작업을 시도했었습니다.

그런데 여전히 같은 문제가 발생하고 있습니다.

정말 어떻게 해야되는지 이 후배를 위한 고수님의 조언을 청하는 바입니다.



procedure TForm3.Button1Click(Sender: TObject);

begin

with Unit2.DataModule2.Database1 do begin

// DataModule2.Database1.Open;

// DataModule2.Database1.Name := 'MYORACLE';



if not InTransaction then

StartTransaction;

end;



with Unit2.DataModule2.Query2 do begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO EMP ' + 'VALUES

(:prEMPNO,:prENAME,:prJOB,:prMGR,:prHIREDATE,:prSAL,:prCOMM,:prDEPTNO)');

ParamByName('prEMPNO').AsInteger := StrToInt(Trim(edt_EMPNO.Text));

ParamByName('prENAME').AsString := Trim(edt_ENAME.Text);

ParamByName('prJOB').AsString := Trim(edt_JOB.Text);

ParamByName('prMGR').AsInteger := StrToInt(Trim(edt_MGR.Text));

ParamByName('prHIREDATE').AsDate := StrToDate(Trim(edt_HIREDATE.Text));

ParamByName('prSAL').AsInteger := StrToInt(Trim(edt_SAL.Text));

ParamByName('prCOMM').AsInteger := StrToInt(Trim(edt_COMM.Text));

ParamByName('prDEPTNO').AsInteger := StrToInt(Trim(edt_DEPTNO.Text));

end;

with Unit2.DataModule2 do begin

try

Query2.ExecSQL;

Database1.Commit;

except

Database1.Rollback;

end;

end;

Unit2.DataModule2.Query2.Close;

Form3.Close;

end;



데이타베이스를 열라고 해서 연결도 해보았고

또 이름을 물어봐서 이름도 지정해줬고

행여 다른 곳에서 녀석을 엑세스하고 있는지 재차 확인도 해봤고

작업후 DataSet을 닫으라 해서 닫기까지 했는데...



도데체 뭐 때문일까요? ㅠㅜ

도와주세요. 제발~