如何用ODBC连接*.DBF文件

fjy101 2001-12-14 09:52:50
我现在用DELPHI本地数据库DABASEIV做了一些表,创建了数据库,那我在另一台机器上如何用这个数据库呢,是不是用ODBC连接,该如何连接呢?请指教
...全文
105 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
cobi 2001-12-14
  • 打赏
  • 举报
回复
可以使用odbc连接,也可以通过bde
可以参考一下的程序再程序中动态配置odbc,例子中用的是access,可以首先在本机上配置一个连接到dbf的odbc数据源,然后参考注册表中相应选项是怎么写的,然后修改程序就可以了。

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;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧