本文整理自网络,侵删。
procedure Tdm.DataModuleCreate(Sender: TObject);begintry FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr(0)) + '\mdb\' + 'code.mdb'; FDConnection1.Connected := True;//FDConnection1.Close;//FDConnection1.Connected:=True;except on E: Exception do begin Tip.Show('提示',e.Message); end;end;end;
https://www.cnblogs.com/windson/p/12649724.html
相关阅读 >>
Delphi 详解 enumwindows 与 enumwindowsproc
Delphi getwebbrowserhtml 获取网页源代码
Delphi关于dbgrid和webbrowser的焦点问题
更多相关阅读请进入《Delphi》频道 >>