unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ADODB, StdCtrls, DB;
type
TForm1 = class(TForm)
btConnectDB: TButton;
ADOConnection1: TADOConnection; //在控件选项卡ADO上找到ADOConnection,放到在Form1界面上
procedure btConnectDBClick(Sender: TObject);
procedure ADOConnection1AfterConnect(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btConnectDBClick(Sender: TObject);
begin
with ADOConnection1 do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xxx;password =123456;Data Source=xxx-PC\xxx';
try
ConnectionTimeout := 20;//连接超时等待时间
CommandTimeout := 30 ;//执行命令超时时间
Connected:=True; //连接
except
ShowMessage('not connected');
raise;
Exit;
end;
end;
end;
{ConnectionString注释如下:
Provider :指定数据库的OLE DB的提供程序,如果没有则是使用默认的ODBC
SQLOLEDB.1:提供程序是与数据源进行交互的动态链接库,可用于连接各种数据源,包括 SQL SERVER、ORACLE、ACCESS、活动目录等等
Persist Security Info: 表示是否保存安全信息,其实可以简单的理解为"ADO在数据库连接成功后是否保存密码信息",True表示保存,False表示不保存,ADO缺省为True,果数据库连接成功后不再需要连接的密码,出于安全性考虑,还是建议将Persist Security Info设为false,以防止后门程序取得数据库连接的密码(windows2003在sp1前就发生过这个问题)。
Initial Catalog:指定数据库名称
password:密码
Data Source:数据库对应的计算机名 {本机的话可以用"."或"本机计算机名"或"local"或"127.0.0.1"
}
procedure TForm1.ADOConnection1AfterConnect(Sender: TObject); //连接成功后触发的事件
begin
ShowMessage('connnect');
end;
end.
delphi7 ADO 方式连接 sqlserver2008/2005 简单应用
最新推荐文章于 2024-08-12 14:15:11 发布