按将该数据源定位到了一个具体的目录也不行!为什么呢?
解决方案 »
- 一个三层结构在internet应用的问题
- 如何设置DBGridEh的自动排序?
- 很奇怪的问题,请来看看
- 求以下几个东东的下载地址
- 巨难问题!!--Access动态建库,然后动态建表,内详!只要解决,马上给分!!
- 怎样动态创建tdatetimepicker呀
- 用PCL-818L做数据采集过程中遇到的问题
- 哪位兄弟用过WISE INSTALL SYSTEM? 急:3T
- 寻求大家帮助,做了一个p2p的软件,已接近完成,
- 关于安装盘的制作,我用Delphi5做了一个系统,现在使用D版光盘上带的insertshield express 打包,却出现安装错误。
- listbox1int.items.indexof 中 indexof是什么意思??
- DELPHI如果结合SQL SERVER用ADO来生成数据库应用程序,发布的时候要怎样呢....
不过我是想知道怎么才能把这个ODBC配置好,通过BDE用.
直接用我知道的!
var tempreg:tregistry;
bytearray:array[0..0] of byte;
begin
tempreg:=tregistry.create;
with tempreg do
begin
rootkey:=hkey_local_machine;
if openkey('software\odbc\odbc.ini\ODBC DATA SOURCES',true) then
begin
writestring('MyODBC','Microsoft Access Driver (*.mdb)');
end
else
begin
showmessage('increase odbc sources failed');
exit;
end;
closekey;
if openkey('software\odbc\odbc.ini\myodbc',true) then
begin
writestring('dbq',pchar(extractfilepath(application.ExeName)+'test.mdb'));//你的ODBC的路径
writestring('description','new data sources');
try
writestring('driver','c:\windows\system32\odbcjt32.dll');
except
writestring('driver','c:\windows\system\odbcjt32.dll');
end;
writeinteger('driverid',25);
writestring('fil','Ms Access;');
writeinteger('safetransaction',0);
writestring('uid','abc');
writestring('PWD','123');
bytearray[0]:=0;
writebinarydata('exclusive',bytearray,1);
writebinarydata('readonly',bytearray,1);
end
else
begin
showmessage('increase datasources failed');
exit;
end;
closekey;
if openkey('software\odbc\odbc.ini\myodbc\engines\jet',true) then
begin
writestring('implicitcommitsync','yes');
writeinteger('maxbuffersize',512);
writeinteger('pagetimeout',20);
writeinteger('threads',5);
writestring('usercommitsync','yes');
end
else
begin
showmessage('increase datasources failed');
exit;
end;
closekey;
showmessage('increase odbc datasources success');
end;end;