VB程序学习代码记录20160828

原创 2016年08月28日 15:28:25
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
    cnn.Open "driver={microsoft access driver (*.mdb)};DBQ=" & App.Path & "\db_kfgl.mdb"
    rs.Open "kf", cnn, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Do While rs.EOF = False
        Debug.Print rs.Fields("房间号")
        rs.MoveNext
    Loop
    rs.Close
End Sub
adOpenStatic 向前游标
adOpenKeyset 键集游标
adLockOptimistic设置窗口为固定的大小
adOpenKeyset 是 CursorType 属性值
adLockOptimistic 是 LockType 属性值
adOpenKeyset 键集游标。尽管从记录集不能访问其他用户删除的记录,但除无法查看其他用户添加的记录外,键集游标与动态游标相似,仍然可以看见其他用户更改的数据。 
adLockOptimistic 开放式记录锁定(逐条)。
提供者使用开放式锁定,只在调用 Update 方法时锁定记录。

ADO数据库连接中的Persist Security Info参数的作用

ADO用了这么久,每次用向导创建ADO的数据库连接字符串时总会有产生一个Persist Security Info属性,平时没太注意,因为设置为True或False时对数据库连接没有任何影响。不过心理还是不爽,今天有时间查询了一下资料,总算搞清楚了它 的作用。

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”


总体来说,如果数据库连接成功后不再需要连接的密码,出于安全性考虑,还是建议将Persist Security Info设为false,以防止后门程序取得数据库连接的密码(windows2003在sp1前就发生过这个问题)。

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

VB 键盘记录 程序代码

VB.Net程序设计:辅助代码段1

自己备忘。 Dim tbl As DataTable = GetFullPackLotList(order.ShipOrderID) For Each row A...

VB做的程序的代码是放在哪里了呢?

VB做的程序的代码是放在哪里了呢?     从第一次开始接触VB做程序,我就是根据书上的步骤一步一步的来,添加窗体然后双击窗体在里面写代码,有时还添加个模块或者是类模块在里面写代码,当时就已经想了,...

VB程序的代码调试及错误处理

正如“人无完人”一样,任何人做的程序都不可能一次就完美无瑕,我们在调试、使用中总是难免碰到这样或那样的问题。在埋头敲了半年左右的代码之后又听了老师的总结课程,感觉自己也有必要根据自己遇到的情况进行一下...

Vb.Net程序设计:代码片段集

'回车键,跳格,并选中内容。  Private Sub FrmFiber_KeyPress(ByVal sender As System.Object, ByVal e As System.Wind...

思绪膨胀,做出龙飞凤舞,怪诞异常的程序启动界面(VB6.0)[已完成,有具体代码,有第二章]

很多软件都有程序启动界面,我在这就找到了2个比较特别的给大家看看: 这是VS2010旗舰版的启动界面,大家留意他的底部,是不规则的。   这是PS CS5的启动界面,整个界面呈现完全的不规则,很飘逸...

VB.net对MFC记录式文件的读取实践代码

在项目开发中,在MFC下生成的文件,需要用VB.net进行读取;MFC是用CFile类生成的记录式文件,每条记录是一个结构体。 代码开放,遵循但不限于PCL协议,给予代码复制者商业软件使用特权;但是...

分享 VB 学习代码

听说VB(Visual Basic,指VB.net和VB6)能快速建立原型,容易上手。 前几天,于是在虚拟机上搭建了个VB6环境(VB6只有300M),抽空自学了下。 从窗口Hello开始,熟悉了La...

vb6程序原始代码

  • 2014-02-18 16:28
  • 644B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)