안녕하세요. 델마당에 답변이 없어 일루 왔습니다. 박지훈님이 답변해주실거라 믿습니다~~(꿉신~)
얼마전에 개발한 프로그램이 ADO 콤포넌트를 이용하였는데요. ADO 컨넥션,ADO 쿼리 하고요..
가끔 접속하는부분에서
mmResult.Lines.add(E.Message); 부분에
'치명적인 오류입니다' 라고만 메세지가 나옵니다.
아래는 해당 소스입니다.
DBName:=ExtractFilePath(Application.ExeName)+'DataBase\'+Nowyear+'.mdb';
Password := '1234';
prcServTrans.position:=10;
try
with ADOConnection2 do begin
Close;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ DBName
+ ';Persist Security Info=False;'
+ 'Jet OLEDB:Database Password=' + Password;
LoginPrompt := False;
Open;
prcServTrans.position:=20;
end;
except
on E:Exception do begin
mmResult.Lines.add(E.Message);
PrcServTrans.PosTextPrefix:='OffLine DB 접속에러';
mmResult.Lines.add('OffLine DB 접속에러');
ADOConnection2.Close;
Screen.cursor:=SaveCursor;
mmResult.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'Log\'+FormatDateTime('yymmdd_hhnnss',now)+'.Erlog');
Exit;
end;
end;
ADOConnection2.Connected := true;
ADOQuery2.Connection := ADOConnection2;
혹시 위와 같이 로그인을 하고 DB 에 할것을 한다음 완료후 ADOConnection2.Connected := False; 를 안해줘서 그런가요? 혹은 ADOConnection2.Close; 안해서 그런가요?
메세지가 넘 황당하네요. 제가 더 치명적입니다. -_-;
매번 나오는것이 아니라 가끔 나옵니다. 더 환장합니다. -_ㅜ;
고수님들 부탁드리겠습니다.아니면 정석코드 를 좀 가르쳐 주십시요.
프로그램이 설치되어있는 PC 는 Window XP Pro. 이고 Office2003 입니다.
개발환경은 델7.1 버전입니다.
|