간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요..
뭐가 문제인지를 모르겠어요.. 갈켜주세요..
function DBConnectProc(Flag: Boolean): Boolean;
begin
Result := True;
if (Flag) then
begin
try
DmMain.Database1.Connected := True;
except on E:EDBengineError do <----
begin
Result := False;
Exit;
end;
end;
end
else
DmMain.Database1.Connected := False;
end;
전 이렇게 처리했습니다.
Try
if not DataBase1.Connected then
DataBase1.Connected := True;
Except
ON E: Exception do begin
ShowMessage('DB Connect Error...');
Close;
end;
end;
만일 Error메세지를 보여주고 싶으시면
showMessage부분을 ShowMessage(E.Message);
왕초보 wrote:
> 간단한 DB연결 함수인데요.. 화살표 부분에서 에러가 나서 컴파일이 안되요..
> 뭐가 문제인지를 모르겠어요.. 갈켜주세요..
>
> function DBConnectProc(Flag: Boolean): Boolean;
> begin
> Result := True;
> if (Flag) then
> begin
> try
> DmMain.Database1.Connected := True;
> except on E:EDBengineError do <----
> begin
> Result := False;
> Exit;
> end;
> end;
> end
> else
> DmMain.Database1.Connected := False;
> end;