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

最新推荐文章于 2021-01-26 21:44:21 发布

原创

最新推荐文章于 2021-01-26 21:44:21 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #api #sqlserver #sql server #integer #string

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

在前段时间项目过程中倒数据过程中要求动态不同数据库倒数据时遇到的关于数据源的问题，当然，不能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)指的是本地计算机安装的数据库。注：最新的SQL Server 2000支持一台计算机运行多个SQL Server服务，这个时候你需要指定SqlSever的InstanceName。

　　Address：指定SQL Server服务器的网络IP地址。

　　Database：指定默认数据库名称。

　　Language：指定默认语言。