Persist Security Info 参数的作用

https://www.cnblogs.com/tearer/archive/2012/12/20/2826759.html

 

Persist Security Info属性的意思是表示是否保存安全信息,其实可以简单的理解为"ADO在数据库连接成功后是否保存密码信息",

True表示保存,False表示不保存

ADO缺省为True
(ADO.net缺省为False,未测试,根据参考资料上说的)

具体可以通过ADO的Connect对象的ConnectString属性进行验证,如下所示(以下在Delphi7中测试通过):

----------------------------------------------------------------------------------------------------------

数据库连接前

ConnectString="Provider=MSDAORA.1;Password=mypassword;User ID=yzs;Data Source=ydgl22;Persist Security Info=false"

数据库连接成功后

ConnectString="Provider=MSDAORA.1;User ID=yzs;Data Source=ydgl22"

----------------------------------------------------------------------------------------------------------

数据库连接前

ConnectString="Provider=MSDAORA.1;Password=mypassword;User ID=yzs;Data Source=ydgl22;Persist Security Info=true"

数据库连接成功后

ConnectString="Provider=MSDAORA.1;Password=mypassword;User ID=dlyx;Data Source=ydgl22"

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, DB, ADODB, ComCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; ADOConnection1: TADOConnection; ListView1: TListView; Panel1: TPanel; Button1: TButton; Button2: TButton; DataSource1: TDataSource; ADOQuery1: TADOQuery; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure DisplayDataInListView(ListView: TListView); var Connection: TADOConnection; Query: TADOQuery; Field: TField; ListItem: TListItem; begin // 创建ADO连接和查询组件 Connection := TADOConnection.Create(nil); Query := TADOQuery.Create(nil); try // 设置连接字符串 Connection.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\tongbugongju\DBSync.mdb;Persist Security Info=False;'; Connection.LoginPrompt := False; Connection.Connected := True; // 绑定连接到查询组件 Query.Connection := Connection; // 执行查询语句获取数据 Query.SQL.Text := 'SELECT * FROM tasklist'; Query.Open; // 清空ListView ListView.Clear; // 遍历查询结果并将数据显示到ListView中 while not Query.Eof do begin ListItem := ListView.Items.Add; // 遍历查询结果的字段,并将数据添加到ListItem的各列中 for Field in Query.Fields do begin ListItem.SubItems.Add(Field.AsString); end; Query.Next; end; finally // 释放资源 Query.Close; Connection.Connected := False; Connection.Free; Query.Free; end; end; end.
最新发布
07-10

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值