VB连接数据库

定义数据库连接
Public cnn_PDMDB As New ADODB.Connection
定义连接字符串
cnn_PDMDB.ConnectionString = "Provider=MSDAORA.1;Password=x;User ID=x;Data Source=p.pdm;Persist Security Info=True"

cnn_PDMDB.CursorLocation = adUseClient
打开连接
cnn_PDMDB.open
以上内容放在在模块里

CursorLocation 属性
设置或返回游标服务的位置。

设置和返回值

设置或返回可设置为以下某个常量的长整型值。

常量 说明
adUseNone 没有使用游标服务。（该常量已过时并且只为了向后兼容才出现）。
adUseClient 使用由本地游标库提供的客户端游标。本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的，因此使用该设置对于那些将要启用的功能是有好处的。AdUseClient 具有向后兼容性，也支持同义的 adUseClientBatch。
adUseServer 默认值。使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活，对于其他用户对数据源所作的更改具有额外的敏感性。但是，Microsoft Client Cursor Provider（如已断开关联的记录集）的某些功能无法由服务器端游标模拟，通过该设置将无法使用这些功能。

说明

该属性允许在可用于提供者的各种游标库中进行选择。通常，可以选择使用客户端游标库或位于服务器上的某个游标库。

该属性设置仅对属性已经设置后才建立的连接有影响。更改 CursorLocation 属性不会影响现有的连接。

对于 Connection 或关闭的 Recordset 该属性为读/写，而对打开的 Recordset 该属性为只读。

由 E