파라독스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-->