⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 70727.htm

📁 在天极网上发布的各类delphi原码及技巧文档
💻 HTM
📖 第 1 页 / 共 2 页
字号:
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; memo1.lines.add('增加ODBC数据源失败');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit;<br> end;<br> CloseKey;<br> <br> //找到或创建Software\ODBC\ODBC.INI<br> \MyAccess\Engines\Jet<br> //写入DSN数据库引擎配置信息<br> if OpenKey('Software\ODBC\ODBC.INI<br> \MyAccess\Engines\Jet',True) then<br> begin<br> WriteString( 'ImplicitCommitSync', 'Yes' );<br> WriteInteger( 'MaxBufferSize', 512 );//缓冲区大小<br> WriteInteger( 'PageTimeout', 10 );//页超时<br> WriteInteger( 'Threads', 3 );//支持的线程数目<br> WriteString( 'UserCommitSync', 'Yes' );<br> end<br> else//创建键值失败<br> begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; memo1.lines.add('增加ODBC数据源失败');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit;<br> end;<br> CloseKey;<br> <br> memo1.lines.add('增加新ODBC数据源成功');<br> <br> Free;<br> end;<br> end; </p> </blockquote> <p>   以上程序在PWIN98+DELPHI3.0下调试通过. <br>   下面是创建常见数据库类型的DSN需要设置的信息([]为注释内容,除特殊注释外,各参数可见前面说明): <br> 1.<b>Access(Microsoft Access Driver(*.mdb))</b> <br> </p> <blockquote>  <p>&nbsp;&nbsp;&nbsp;&nbsp; DBQ、Description、Driver[odbcjt32.dll]、<br> DriverID[25]、FIL[Ms Access;]、<br>&nbsp;&nbsp;&nbsp;&nbsp; SafeTransaction[默认为0]、UID[默认为空]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Jet\ImplicitCommitSync[默认为Yes]、<br> Engines\Jet\MaxBufferSize[默认512]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Jet\PageTimeout[默认为512]、<br> Engines\Jet\Threads[默认为3]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Jet\UserCommitSync[默认为Yes]<br>&nbsp;&nbsp;&nbsp;&nbsp; 可选设置:SystemDb[字符串,系统数据库的路径]、<br>&nbsp;&nbsp;&nbsp;&nbsp; ReadOnly[二进制,是否以只读方式打开,1为是,默认为0]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Exclusive[二进制,是否以独占方式打开,1为是,默认为0]、PWD[字符串,用户密码]  </p> </blockquote> <p> 2.<b>EXCEL(Microsoft Excel Driver(*.xls))</b> <br> </p> <blockquote>  <p>&nbsp;&nbsp;&nbsp;&nbsp; DBQ[Excel97(=path\xxx.xls)、5.0/7.0<br> (=path\xxx.xls)、4.0(=path)、3.0(=path)]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Description、Driver[odbcjt32.dll]、<br>&nbsp;&nbsp;&nbsp;&nbsp; DefaultDir[Excel97(&#60; &#62;DBQ)、5.0/7.0<br> (&#60; &#62;DBQ)、4.0(=DBQ)、3.0(=DBQ)]、<br>&nbsp;&nbsp;&nbsp;&nbsp; DriverID[790(Excel97)、22(5.0/7.0)、278(4.0)、534(3.0)]、<br>&nbsp;&nbsp;&nbsp;&nbsp; FIL[Excel5.0;]、ReadOnly、SafeTransaction、UID、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Excel\ImplicitCommitSync、<br> Engines\Excel\MaxScanRows[数字,扫描行数,默认为8]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Excel\Threads、Engines\Excel\UserCommitSync、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Excel\FirstRowHasName[二进制,第一行是否是域名,1表示是,默认为1]  </p> </blockquote> <p>   注: Excel97和Excel7.0/5.0的DBQ对应一个XLS文件,而Excel4.0和Excel3.0则对应一个目录;DefaultDir对应一个目录,在Excel97和Excel7.0/5.0中是DBQ所对应的路径,而在Excel4.0和Excel3.0下则与DBQ相同;各个版本的DriverID不同.  <br> 3.<b>dBase(Microsoft dBase Driver(*.dbf))</b> <br> </p> <blockquote>  <p>&nbsp;&nbsp;&nbsp;&nbsp; DefaultDir[字符串,数据库文件所在目录]、<br> Description、Driver[odbcjt32.dll]、<br>&nbsp;&nbsp;&nbsp;&nbsp; DriverID[277(IV)、533(5.0)]、<br> FIL[dbase III;]、SafeTransaction、UID、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\ImplicitCommitSync、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Collating[字符串,排序依据,可为ASCII、International、Norwegian-Danish、<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Swedish-Finnish]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Deleted[二进制,是否不显示被软删除的记录,0表示显示,默认为1]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\PageTimeout[默认为600]、<br> Engines\Xbase\UserCommitSync、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Threads、Engines\Xbase<br> \Statistics[二进制,是否用大约的行数,1为是,默认0]<br>&nbsp;&nbsp;&nbsp;&nbsp; 注:(dBaseIV和dBase5.0两个版本的DriverId有不同)<br> </p> </blockquote> <p>&nbsp;&nbsp;</p> <p> 4.<b>Foxpro(Microsoft Foxpro Driver(*.dbf))</b> <br> </p> <blockquote> <p>&nbsp;&nbsp;&nbsp;&nbsp; DefaultDir[数据库文件所在目录]、<br> Description、Driver[odbcjt32.dll]、<br>&nbsp;&nbsp;&nbsp;&nbsp; DriverID[536(2.6)、280(2.5)]、<br> FIL[Foxpro 2.0;]、SafeTransaction、UID、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Collating[字符串,排序依据,可为ASCII、International]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Deleted[二进制,是否不显示被软删除的记录,0表示显示,默认为1]、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\PageTimeout[默认为600]、<br> Engines\Xbase\UserCommitSync、<br>&nbsp;&nbsp;&nbsp;&nbsp; Engines\Xbase\Threads、Engines\Xbase<br> \Statistics[二进制,是否用大约的行数,1为是,默认0]<br>&nbsp;&nbsp;&nbsp;&nbsp; 注:(Foxpro2.5和Foxpro2.6两个版本的DriverId有不同) </p> </blockquote> <p>  把上面程序做成一个COM或ActiveX控件吧,在很多高级程序设计语言如DELPHI、C++Buider、VB、VC、PB中都能用到的.<br></p> </td></tr></table><br><img src="/xslimages/content/buttom.gif" align="absmiddle"></img>        相关内容        <br><ul><a href="/33554432/34603008/34668544/34672640/34672672/70748.htm">在DEPHI程序中使用ADO对象存取ODBC数续<br><br></a><a href="/33554432/34603008/34668544/57909.htm">用Dephi程序维护Paradox 数据表的索引<br><br></a></ul><br><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>            相关链接          </font><br><ul></ul><a href=""><font color="#FF9900"><font color="#CC0000"></font></font></a><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>               更多的                </font><br><table width="70%"><tr><td width="30%" valign="top" align="left"><ul></ul></td><td width="30%" valign="top" align="left"></td></tr></table></td></tr></table><table width="98%" border="0" cellspacing="0"><tr><td width="85%" height="19" align="center" bgcolor="#FDF0C4"><a href="mailto:ph@cpcw.com">      本文版权归作者和天极网共同所有,如有任何版权问题,请与我们联系。        </a></td><td width="15%" bgcolor="#FFCC66" height="19">          <a href="/index.htm">            回首页          </a>        </td></tr></table><br></td><td colspan="2" valign="top" width="25%" bgcolor="#eeeeee"><table width="97%" align="center"><tr><td bgcolor="#ff9900" width="182" height="15"></td></tr></table><table width="97%" border="0" cellpadding="3" align="center"><tr><td valign="top" height="23" border="1" bgcolor="#eeeeee" cellspacing="0" bordercolor="#ff9900"><div align="center">             火热链接          </div></td></tr><tr bgcolor="#F5F5F5"><td width="27%" height="20" align="left"><div align="left"><a href="/33554432/44040192/112568.htm">办公室偷懒之绝招</a><br><a href="/33554432/44040192/113017.htm">网络成为日本第五大广告媒体</a><br><a href="/33554432/44040192/113377.htm">非常办公室(二十六)</a><br><a href="/33554432/44040192/113378.htm">非常办公室(二十七)</a><br><a href="/33554432/44040192/113772.htm">日本当代美女标准</a><br><a href="/33554432/44040192/113779.htm">移动网络别太沉重</a><br><a href="/33554432/44040192/113783.htm">把主旋律唱到网络上</a><br><a href="/33554432/44040192/113785.htm">网络将创造一千万个就业岗位</a><br><a href="/33554432/44040192/113787.htm">校园新宠电子课本</a><br><a href="/33554432/44040192/113789.htm">美国学者质疑“电脑从娃娃抓起”</a><br></div></td></tr></table><br><table width="97%" border="0" cellpadding="3" align="center"><tr bgcolor="#ff9900"><td valign="top" height="20"><div align="center">                        天极搜索          </div></td></tr><tr bgcolor="#F5F5F5"><form action="http://search.yesky.com/servlet/search" method="post" name="search" onsubmit="form_onsubmit(); return ValidationPassed;"><td width="27%" height="20" align="center"><div><script language="javascript">          function form_onsubmit() {            ValidationPassed = true ;            if (document.search.keyword.value=="") {               alert ("请输入搜索关键字!");               ValidationPassed=false;             }               return ValidationPassed;           }       </script><input name="keyword" id="keyword" class="nava" size="12"></input><input type="hidden" name="classify" value="keyword"></input><input type="hidden" name="no" value="34603008"></input><input onClick="form_onsubmit(this.form);" style="HEIGHT:22px;WIDTH:40px" type="submit" value="搜索" name="submit2"></input></div></td></form></tr></table><div align="left"><font color="#000000"><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10" height="2"><img src="/xslimages/school/pathboy-ruanjian.gif" width="32" height="32"></img></td><td width="186" height="2" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" bgcolor="#6898D0"><tr align="center"><td height="26"><font color="#FFFFFF">                                          MyDown下载                                        </font><font class="nava" color="#FFFFFF"></font></td></tr></table></td></tr></table></td></tr></table><table border="0" cellpadding="0" cellspacing="1" width="100%" align="center"><tbody><tr align="left"><td bgcolor="#ffffff"><script type="text/javascript" language="javascript" src="http://www.mydown.com/mydown.js"></script><br></td></tr></tbody></table><table width="100%" align="center"><tr><td align="center"><tr><td align="center"><a href="http://www.hoyodo.com"><img border="0" src="http://www.hoyodo.com/home/images/banner/botton.gif" width="120" height="60"></img></a><br><br><a href="http://e.yesky.com"><img border="0" src="http://e.yesky.com/images/logo_e2.gif" width="120" height="60" alt="天极E时代"></img></a></td></tr></td></tr></table></font></div><br></td></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><a href="/hdong/gao.htm" target="_blank">欢迎投稿</a>|            <a href="/bill/index.html" target="_blank">市场联系</a>|            <a href="/serve/dnbjs.htm" target="_blank">关于我们</a>|            <a href="/maillist/index.html" target="_blank">邮件列表</a>|            <a href="/hdong/zaopin.html" target="_blank">加入我们</a>|            <a href="/hdong/xinsi.html" target="_blank">隐私条款</a></div></td></tr></table><hr height="1" size="1" width="760"></hr><td width="57%" valign="top" rowspan="1" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr></tr><tr></tr><tr></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><span class="nava"><font color="#000000" face="Arial, Helvetica, sans-serif">              Copyright (C) 1999 Yesky.com, All Rights Reserved            </font><font color="#000000"><br>              版权所有                <font face="Arial, Helvetica, sans-serif">              Yesky              </font></font></span></div></td></tr></table><script>document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?program target=_blank><img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=program&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 ></a>");</script><script> document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?rkai target=_blank> <img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=rkai&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 width=15 height=15></a>");</script><A HREF="http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw" TARGET="_blank"><IMG SRC="http://best.nease.net/cgi-bin/log.cgi?user=cpcw" style="visibility:hidden"/></A><br><iframe frameborder="0" scrolling="no" src="http://count.yesky.com/servlet/count?articleno=70727" height="0" width="100%"></iframe></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -