with TRegistry.Create do
begin
RootKey:=HKEY_LOCAL_MACHINE;
openKey('\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)',true);
SqlDriver:=readstring('Driver');
closekey;
OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',true);
WriteString('WebRooter','Microsoft Access Driver (*.mdb)');
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter',True);
WriteString('DBQ',ExtractFilePath(Application.ExeName)+'WebRooter.mdb');
WriteString('Driver',SqlDriver);
WriteString('FIL','MS Access;');
WriteString('UID','UID');
WriteInteger('DriverId',25);
WriteInteger('SafeTransactions',0);
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter\Engines',True);
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter\Engines\Jet',True);
WriteString('ImplicitCommitSync','');
WriteInteger('MaxBufferSize',2048);
WriteInteger('PageTimeout',5);
WriteInteger('Threads',3);
WriteString('UserCommitSync','Yes');
closekey;
free;
end;
begin
RootKey:=HKEY_LOCAL_MACHINE;
openKey('\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)',true);
SqlDriver:=readstring('Driver');
closekey;
OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',true);
WriteString('WebRooter','Microsoft Access Driver (*.mdb)');
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter',True);
WriteString('DBQ',ExtractFilePath(Application.ExeName)+'WebRooter.mdb');
WriteString('Driver',SqlDriver);
WriteString('FIL','MS Access;');
WriteString('UID','UID');
WriteInteger('DriverId',25);
WriteInteger('SafeTransactions',0);
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter\Engines',True);
closekey;
OpenKey('\Software\ODBC\ODBC.INI\WebRooter\Engines\Jet',True);
WriteString('ImplicitCommitSync','');
WriteInteger('MaxBufferSize',2048);
WriteInteger('PageTimeout',5);
WriteInteger('Threads',3);
WriteString('UserCommitSync','Yes');
closekey;
free;
end;
解决方案 »
- ComboBox1数值改变DBGrid1上显示的随之改变
- frReport1.DesignReport为什么没能打开那个报表设计器?
- ★★终于搞定了VMWare,爽……★★
- 大家请进来侃侃这样的报表用fastreport怎么建立?
- 请问如何删除一个分区里的所有文件!
- 高分来啦,要详细点哦.最好可以email个例子给我:)
- TADOTable.DeleteRecords(arall)出错,错误如下,帮忙,谢谢,马上给分
- 关于三层结构中的数据同步
- DCOM中的IPicture应该怎样使用,客户怎么老是提示运行总提示“意外错误”,然后服务器异常退出
- 还是一个关于DHTMLEdit控件的小问题,有意者请助我一臂之力吧!重谢
- 如何通过程序进行ODBC的设置
- 显示JPEG时出错,请大家帮忙,在下先谢谢各位!
在use中如何申明呢?