오~ 정말...
로컬 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을 닫으라 해서 닫기까지 했는데...
도데체 뭐 때문일까요? ㅠㅜ
도와주세요. 제발~