在Delphi里调用API函数动态建立ODBC数据源。

最新推荐文章于 2022-05-28 13:51:11 发布

l_xiaofeng

最新推荐文章于 2022-05-28 13:51:11 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： DELPHI技术类文章标签： delphi api sqlserver sql server integer string

本文链接：https://blog.youkuaiyun.com/l_xiaofeng/article/details/15996

本文介绍了如何在Delphi中使用API函数SQLConfigDataSource动态创建ODBC数据源，以连接SQLServer和DBF文件。示例代码展示了建立SQLServer和DBF数据源的详细步骤，包括DSN、Server、Database等参数设置，以帮助开发者避免因用户删除ODBC数据源而引发的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在前段时间项目过程中倒数据过程中要求动态不同数据库倒数据时遇到的关于数据源的问题，当然，不能ADOQUERY连接的DBF表（未下补丁版本，后发现也可连接）一定要建ODBC进行连接处理，那么ODBC一定要动态建立以排除用户删除ODBC的可能，下面我就把API函数原型及建SQLSERVER和DBF表的语句写下来共享（当然SQLSERVER在ADO状态下不必建立）。

SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;

调用状态下使用：

function SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;stdcall;external 'ODBCCP32.DLL';

建立SQLSERVER的ODBC：

SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,'SQL Server','DSN=Record_ODBC'+ chr(0) +'Server=(local)'+ chr(0) +'Database=master'+ chr(0) +'Description=DragonPC SQLServer ODBC Source'+ chr(0));

{　　DSN：你的ODBC数据源名称。

　　Server：你的数据库服务器名称，使用(local)指的是本地计算机安装的数据库。注&