📄 access开发技巧-8.htm

📁 微软数据库开发梦工场多媒体教学-ACCESS篇.rar

💻 HTM

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Untitled Document</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2716.2200" name=GENERATOR></HEAD>
<BODY text=#ffffff bgColor=#000000>
<p>　　″PageTimeout″=dword:00000005 </p>
<p>　　″Threads″=dword:00000003 </p>
<p>　　″UserCommitSync″=″Yes″5．动态注册ODBC数据源的实现从上述注册信息可以看出，对于特定的数据源来说，实际上要动态确定的只是“Driver”和“DBQ”两项内容。将“Driver”=“C:\\WINDOWS\\SYSTEM\\ODBCJT32.DLL”修改为“Driver”=“％s\\ODBCJT32.DLL”，将“DBQ”=“c:\\My 
  Documents\\db1.mdb”修改为“DBQ”=“％s\\db1.mdb”。复制修改后的注册信息到程序单元中存储为一字符串常量，命名为OdbcStr。以下以Delphi为例说明实现方法。 
</p>
<p>　　为便于说明，假设主窗体名称为Form1,通过一命令钮Button1注册ODBC数据源。具体根据读者需要自行设定。 </p>
<p>　　procedure TForm1.Button1Click(Sender: TObject);varI : Integer; </p>
<p>　　J : double; </p>
<p>　　RegF: TextFile; </p>
<p>　　SysDir: PChar; </p>
<p>　　AppPath, Params, Path, DbPath: string;begin </p>
<p>　　try </p>
<p>　　//生成注册用的批处理文件 </p>
<p>　　 Params :=′Regedit/s tmp.reg′;　//批处理文件内容AppPath := ExtractFilePath(Application.ExeName);　//取得应用程序当前路径AssignFile(RegF, 
  AppPath＋′Reg.Bat′);　//指定批处理文件路径和名称ReWrite(RegF);　//创建和打开指定的文本文件WriteLn(RegF, 
  Params);　//将注册命令批处理内容写入文件CloseFile(RegF);//生成注册表文件GetMem(SysDir, 255);GetSystemDirectory(SysDir, 
  255); //取得Windows系统目录Path := String(SysDir);Path := InsertSplash(Path);　//将类似C:\WINDOWS\SYSTEM变为C:\\WINDOWS\\SYSTEMDelete(AppPath, 
  Length(AppPath), 1);　//将字符串尾部′\′字符删除DbPath := InsertSplash(AppPath);　//取得数据库存放路径Params 
  := Format(OdbcStr, [Path, DbPath]);AssignFile(RegF, AppPath＋′Tmp.Reg′);ReWrite(RegF);WriteLn(RegF, 
  Params);CloseFile(RegF);//通过Api函数执行reg.bat, Uses中加入对ShellApi的引用If ShellExeCute(Application.Handle,′Open′,′Reg.bat′,′′, 
  PChar(AppPath), SW_HIDE) $#@60;= 32 </p>
<p>　　 </p>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -