如何通过程序进行ODBC的设置 到注册表中看一下你就明白了。HKEY_LOCAL_MACHINE\software\odbc\odbc.ini 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转贴的:uses registry; 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; sql access 存贮速度慢? 做好了帮助文档后,在delphi中怎么调用??在线等待! 有关Quick Report控件的使用。 数据库连接 Delphi 7 中如何控制 3D 请问ADO能不能连Sybase数据库? 关于打包的问题!!在线急等! 高手指教,两个exe之间怎样传递参数? 你能帮帮我吗? 我的售后服务管理系统就快完成了,希望大家帮我 测试一下,有原码!呵呵 ??? 如何编程实现自动培植odbc数据员
uses registry;
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;