unit LinkDBAccess;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Registry, ExtCtrls;
type
TLinkDB_info = class(TForm)
Memo1: TMemo;
pnllink: TPanel;
pnlclose: TPanel;
procedure pnllinkClick(Sender: TObject);
procedure pnlcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LinkDB_info: TLinkDB_info;
//连接Access数据库
const databaseName='\data\ShipDB.mdb'; //数据库名 (SQL中的)
ODBCName='ShipDB'; //ODBC数据源名
Aboutname='提成管理';//数据源描述
implementation
{$R *.dfm}
procedure TLinkDB_info.pnllinkClick(Sender: TObject);
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到Software\ODBC\ODBC.INI\ODBC Data Sources
if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( ODBCName,'Driver do Microsoft Access (*.mdb)');
end
else
begin//创建键值失败
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
//找到或创建Software\ODBC\ODBC.INI\MGMIS_XDB,写入DSN配置信息
if OpenKey('Software\ODBC\ODBC.INI\'+ODBCName,True) then
begin
WriteString( 'DBQ', GetCurrentDir+databaseName);
WriteString( 'DriverId', '25' );
WriteString('Driver','C:\WINNT\System32\odbcjt32.dll' );//驱动程序DLL文件
Writestring( 'FIL', 'MS Access;');
WriteString( 'SafeTransactions','0' );
Writestring( 'UID', '' );
end
else//创建键值失败
begin
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
if OpenKey('Software\ODBC\ODBC.INI\'+ODBCName+'\Engines\Jet',True) then
begin
WriteString( 'ImplicitCommitSync', '');
WriteString( 'MaxBufferSize', '2048' );
WriteString('PageTimeout','5' );
Writestring( 'Threads', '3');
WriteString( 'UserCommitSync','Yes' );
end
else//创建键值失败
begin
memo1.lines.add('连接ODBC数据源失败');
exit;
end;
CloseKey;
CloseKey;
memo1.lines.add('连接ODBC数据源成功');
Free;
end;
end;
procedure TLinkDB_info.pnlcloseClick(Sender: TObject);
begin
Close ;
end;
procedure TLinkDB_info.FormCreate(Sender: TObject);
begin
Self.Caption:=Aboutname;
end;
end.
其它数据库也一样,只要按照注册表写进去就可以
分享到:
相关推荐
动态创建Access的数据源名 sprintf(szDesc,"DSN=%s: DESCRIPTION=TOC support source: DBQ=%s: FIL=MicrosoftAccess: DEFAULTDIR=D:\\Database:: ","TestDB","D:\\Friends.mdb"); mlen = strlen(szDesc); ...
总结起来,这个Delphi项目提供了一个动态创建ODBC数据源的工具,它支持多种数据库,包括SQL Server、DB2和ACCESS,并且使用了VCL SKIN来提升用户界面。通过这个工具,用户可以更加方便地管理数据库连接,提高开发和...
这样可以在程序运行时动态创建数据源,提高应用的灵活性。 总结来说,ODBC数据源是数据库连接的关键组件,通过它,应用程序可以透明地访问多种数据库系统,而无需关心具体的数据库语法和特性。"如何修改注册表创建...
创建数据源的步骤包括打开ODBC管理器,选择相应的数据源类型,添加新数据源,然后选择对应的数据库驱动(如Access),最后配置连接参数。 在使用ODBC时,需要注意的是,对于本地数据库,通常在User DSN创建数据源,...
综上所述,动态创建Access数据源名是一个涉及ODBC API调用、数据库驱动管理和项目配置的过程。通过理解这些步骤和利用提供的资源文件,开发者可以创建一个能够动态连接到Access数据库的应用程序,使得数据源管理更加...
除了手动添加,还可以通过编程方式动态创建ODBC数据源。例如,你可以使用VBScript、Python的pyodbc库或C#等编程语言,调用ODBC API来实现自动化配置。 在实际应用中,了解如何添加Access数据源对于开发人员来说非常...
【创建ODBC数据源】是将数据库连接信息存储在计算机中以便通过ODBC驱动程序进行访问的过程。ODBC,全称Open Database Connectivity,是微软推出的一种早期数据库接口技术,旨在让程序员无需掌握特定数据库语言就能...
本资源“计算机软件-商业源码-动态创建Access数据源名.zip”主要关注的是如何在编程环境中动态地创建Access数据源名(DSN),这对于开发人员来说是一项关键技能,特别是在需要频繁切换数据库环境或者自动化部署的...
标题中的“动态创建ODBC连接的演示程序”指的是一个使用编程方式实现在运行时动态建立ODBC(Open Database Connectivity)数据源连接的应用程序。ODBC是微软提供的一个标准接口,允许应用程序通过统一的方式访问多种...
通过上述分析,我们可以看出Delphi中自动创建ODBC数据源的过程主要包括加载必要的DLL库、定义数据源属性、调用相应的函数以及进行错误处理等步骤。这种方法不仅可以简化应用程序的配置流程,还能提高程序的健壮性和...
在C++Builder中动态创建ODBC数据源,主要涉及Windows注册表的两个关键位置:`HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC Data Sources` 和 `HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI`。 #### 创建Access的ODBC数据...
在Windows 7环境下,为了能够连接并访问各种数据库,包括但不限于MS Access、SQL Server等,我们需要配置ODBC(Open Database Connectivity,开放式数据库互连)数据源。ODBC是一种标准的数据库访问接口,允许应用...
创建ODBC数据源时,选择“Microsoft Access Driver (*.mdb, *.accdb)”并指定Access数据库文件的路径。完成后,会得到一个数据源名称(DSN),在JSP中将用到这个DSN。 接下来,我们将使用JDBC-ODBC桥来连接数据库。...
通常,ODBC的使用流程包括创建数据源、配置驱动程序以及编写SQL查询来访问数据库。但在某些情况下,例如开发环境中,直接使用驱动程序的连接字符串可以避免DSN的设置步骤,简化操作。以下将详细介绍这个过程: 1. *...
### 在DELPHI中编程生成ACCESS数据库文件并创建指向此连接的ODBC数据源 #### 知识点一:DELPHI与ACCESS数据库交互的基本原理 - **DELPHI**是一种面向对象的编程语言,广泛应用于Windows应用程序开发。它允许开发者...
1. **设置数据源**:在操作系统层面,你需要创建一个ODBC数据源,指定要连接的数据库(如ACCESS数据库文件)以及相应的连接信息,如用户名和密码。 2. **编程接口**:在编程语言中,如VBScript、VBA(Visual Basic ...
### 使用VC6.0通过ODBC连接Access2003数据源详解 #### 一、简介 在软件开发过程中,经常需要将Visual C++ (VC)与Microsoft Access结合使用,以便进行数据库操作。本文主要介绍如何在Visual C++ 6.0环境中利用ODBC...
手动配置数据源的过程相对繁琐,以Microsoft Access为例,创建一个新的用户DSN需要通过ODBC数据源管理器进行。首先选择“用户DSN”,然后添加新的数据源并选择相应的驱动程序,最后填写数据源名称和数据库文件路径。...
标题和描述中的知识点聚焦于如何在程序中不创建DSN(数据源名称)而直接使用ODBC(开放式数据库连接)数据源。这一方法对于提升Web应用程序的灵活性和效率具有显著意义,尤其在需要频繁切换数据库环境或进行快速部署...
在使用ODBC连接到MS Access数据库时,你需要创建一个ODBC数据源。这通常通过控制面板的“ODBC数据源管理器”完成,你可以在这里配置数据源名称(DSN)、驱动程序选择、数据库文件路径等信息。对于MS Access,需要...