Q&A

  • 파라독스 dbf 필드추가 코딩
파라독스db이구요, 확장자명은,, dbf입니다.
db를 열어서 필드추가하는것은 잘 되는데,,
코딩작업을 하면  에러가 납니다.
확장자명이 dbf일때는,, 코딩법이 다른가요?


아래는 제가 사용한db파일코딩입니다.
GateO.db에는 밑의 코딩을 하면 필드추가가 되는데 CarCode.dbf에는 필드추가가 안되네요,,
왜이럴까요?  확장자명이 dbf일때 필드추가하는코딩 방법을 알려주시면 업무에 참고하겠습니다.


========================================
  //hyomini 09.12 CarCode.dbf 실차량번호 필드 추가

<!--CodeS-->
if CarCode.Active=False then CarCode.Active:=True;
if CarCode.FindField('CODE_REAL') = nil then
  Begin
   if MessageDlg('실차량번호 필드가 없습니다.'+#13+#10+''+#13+#10+'새로 만드시겠습니까?', mtWarning, [mbYes, mbNo], 0)=mrNo then
   Exit;
   if CarCode.Active=True then CarCode.Active:=False;

   Query1.Sql.Clear;
   Query1.Sql.Add('Alter Table CarCode');
   Query1.Sql.Add('Add CODE_REAL char(15)');
     Try
       Query1.ExecSql;
     Finally
     End;
  end;

<!--CodeE-->


//hyomini 09.12 GateO.db의 CarCode 실차량번호 필드 추가_ 필드 생성

<!--CodeS-->
if GateO.Active=False then GateO.Active:=True;
if GateO.FindField('CARREAL') = nil then
  Begin
   if MessageDlg('반출계에 실차량번호 필드가 없습니다.'+#13+#10+''+#13+#10+'새로 만드시겠습니까?', mtWarning, [mbYes, mbNo], 0)=mrNo then
   Exit;
   if GateO.Active=True then GateO.Active:=False;

   Query1.Sql.Clear;
   Query1.Sql.Add('Alter Table GateO');
   Query1.Sql.Add('Add CARREAL char(20)');
     Try
       Query1.ExecSql;
     Finally
     End;
  end;


<!--CodeE-->
0  COMMENTS