ado控件连接mysql_Delphi中用ADO控件连接数据库例子

Delphi中用ADO控件连接数据库例子

翻译|其它|编辑：郝浩|2008-05-04 10:41:31.000|阅读 3871 次

概述：

一、说明

最近在写个“数据库管理系统框架程序”，其中封装了几个连接数据库的函数，觉得挺好用，拿出来与大家分享下，希望能对大家有点用处。

我以连接oracle和access为例，其余数据库连接在此基础上稍加修改，便可使用。

二、连接oracle

1、源码

{

功能：连接ORACLE数据库

参数：sServerName ORACLE服务名，sUserName 用户名，sUserPwd 密码

}

function LinkOracle(sServerName, sUserName, sUserPwd: string): boolean;

begin

Result := True;

if _adoConn <> nil then _adoConn.Free;

_adoConn := TADOConnection.Create(nil);

_adoConn.ConnectionString := 'Provider=MSDAORA.1;'+

'Password='+sUserPwd+';'+

'User ID='+sUserName+';'+

'Data Source='+sServerName+';'+

'Persist Security Info=True';

_adoConn.LoginPrompt := False;

try

_adoConn.Open;

except

on E: Exception do

begin

Application.MessageBox(PChar('连接ORACLE失败！原因：' + E.message), '系统错误', MB_OK+MB_ICONERROR);

Result := False;

end;

end;

end;

{

功能：返回成功连接上数据库的ADOConnection实例

}

function GetAdoConnection: TADOConnection;

begin

Result := _adoConn;

if _adoConn = nil then

begin

Application.MessageBox('尚未创建数据库连接！', '系统错误', MB_OK+MB_ICONERROR);

Exit;

end;

try

if not _adoConn.Connected then

_adoConn.Connected := True;

except

on E: Exception do

Application.MessageBox(PChar('Exception in GetAdoConnection: '+E.Message), '系统错误', MB_OK+MB_ICONERROR);

end;

end;

上面是我封装的连接oracle的函数，下面对代码进行简单介绍：

_adoConn 是 TADOConnection 变量，被申明成在单元内可见的变量，这样方便在LinkOracle和GetAdoConnection中共同使用，又不至于对其他单元文件产生影响。

2、应用举例

例子：假设数据库服务名是orcl，用户名是scott，密码是tiger，连接该用户，并查出该用户有几张表。

begin

if not LinkOracle('orcl', 'scott', 'tiger') then

begin

showmessage('连接数据库失败');

Exit;

end;

with TADOQuery.Create(nil) do

try

Connection := GetAdoConnection;

sql.add(' select count(*) cnt from tab ');

open;

showmessage('共有' + fieldbyname('cnt').AsString + '张');

finally

close;

free;

end;

end;

三、连接access

1、源码

{

功能：创建AccessODBC数据源

参数：sDsn为数据源的名称, sMdbPath为数据库的名称包括目录, sUserId为用户名, sUserPwd为密码

}

function CreateAccessODBCDataSource(sDsn, sMdbPath, sUserId, sUserPwd: string): boolean;

var

Reg: TRegistry;

bData : array[ 0..0 ] of byte;

begin

Reg :=TRegistry.Create;

with Reg do

begin

RootKey:=HKEY_LOCAL_MACHINE;

if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',true) then

begin

WriteString(sDsn,'Microsoft Access Driver (*.mdb)');

end

else

begin

Result:=False;

Application.MessageBox('创建ODBC数据源失败', '系统错误', MB_OK+MB_ICONERROR);

Exit;

end;

CloseKey;

if OpenKey('Software\ODBC\ODBC.INI\'+sDsn,true) then

begin

WriteString('DBQ', sMdbPath);//数据库目录

WriteString('Description',sMdbPath+'数据源');

WriteString('Driver','C:\Windows\System32\odbcjt32.dll');

WriteInteger('DriverId', 25 );

WriteString('FIL', 'Ms Access;'); //Filter依据

WriteInteger('SafeTransaction', 0 ); //支持的事务操作数目

WriteString('UID', sUserId); //用户名称

WriteString('PWD', sUserPwd); //用户密码

bData[0] := 0;

WriteBinaryData('Exclusive', bData, 1 );//非独占方式

WriteBinaryData('ReadOnly', bData, 1 );//非只读方式

end

else

begin

Result:=False;

Application.MessageBox('创建ODBC数据源失败', '系统错误', MB_OK+MB_ICONERROR);

Exit;

end;

CloseKey;

if OpenKey('Software\ODBC\ODBC.INI\'+sDsn+'\Engines\Jet',true) then

begin

WriteString('ImplicitCommitSync','Yes');

WriteInteger('MaxBufferSize',2048 );//缓冲区大小

WriteInteger('PageTimeout',5 );//页超时

WriteInteger('Threads',3 );//支持的线程数目

WriteString('UserCommitSync','Yes');

end

else

begin

Result:=False;

Application.MessageBox('创建ODBC数据源失败', '系统错误', MB_OK+MB_ICONERROR);

Exit;

end;

CloseKey;

Result:=True;

Free;

end;

end;

{

功能：连接ACCESS

参数：sDsn为数据源的名称

}

function LinkAccess(sDsn: string): Boolean;

begin

Result := True;

if _adoConn <> nil then _adoConn.Free;

_adoConn := TADOConnection.Create(Application);

_adoConn.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + sDsn;

_adoConn.LoginPrompt := False;

_adoConn.Open;

if not _adoConn.Connected then

begin

Application.MessageBox('连接ACCESS失败！', '系统错误', MB_OK+MB_ICONERROR);

Result := False;

end;

end;

{

功能：返回成功连接上数据库的ADOConnection实例

}

function GetAdoConnection: TADOConnection;

begin

Result := _adoConn;

if _adoConn = nil then

begin

Application.MessageBox('尚未创建数据库连接！', '系统错误', MB_OK+MB_ICONERROR);

Exit;

end;

try

if not _adoConn.Connected then

_adoConn.Connected := True;

except

on E: Exception do

Application.MessageBox(PChar('Exception in GetAdoConnection: '+E.Message), '系统错误', MB_OK+MB_ICONERROR);

end;

end;

上面是我封装的连接access的函数，下面对代码进行简单介绍：

_adoConn 是 TADOConnection 变量，被申明成在单元内可见的变量，这样方便在LinkAccess和GetAdoConnection中共同使用，又不至于对其他单元文件产生影响。

2、应用举例

举例：我在e盘下有个access文件，名为db1.mdb, 该文件设了密码也为db1。下面代码为连接该文件的例子

begin

if CreateAccessODBCDataSource('accessDataSource', 'e:\db1.mdb', 'db1', 'db1') then

begin

if LinkAccess('accessDataSource') then

begin

with TADOQuery.Create(nil) do

try

Connection := GetAdoConnection;

SQL.Clear;

SQL.Add('自己写吧');

Open;

finally

close;

Free;

end;

end;

end;

end;

标签：

本站文章除注明转载外，均为本站原创或翻译。欢迎任何形式的转载，但请务必注明出处、不得修改原文相关链接，尊重他人劳动成果

4

好文不易，鼓励一下吧！