本文整理汇总了VB.NET中System.Data.OleDb.OleDbConnectionStringBuilder.OleDbServices属性的典型用法代码示例。如果您正苦于以下问题:VB.NET OleDbConnectionStringBuilder.OleDbServices属性的具体用法?VB.NET OleDbConnectionStringBuilder.OleDbServices怎么用?VB.NET OleDbConnectionStringBuilder.OleDbServices使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Data.OleDb.OleDbConnectionStringBuilder
的用法示例。
在下文中一共展示了OleDbConnectionStringBuilder.OleDbServices属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Module1
' 导入命名空间
Imports System.Data.OleDb
Module Module1
' These constants correspond to values in the
' OLE DB SDK. You can use these values to
' turn features on and off.
Private Const DBPROPVAL_OS_AGR_AFTERSESSION As Integer = 8
Private Const DBPROPVAL_OS_AGR_RESOURCEPOOLING As Integer = 1
Private Const DBPROPVAL_OS_AGR_TXNENLISTMENT As Integer = 2
Private Const DBPROPVAL_OS_AGR_CLIENTCURSOR As Integer = 4
Private Const DBPROPVAL_OS_ENABLEALL As Integer = -1
Private Const DBPROPVAL_OS_DISABLEALL As Integer = 0
Sub Main()
Dim builder As New OleDbConnectionStringBuilder()
' Turn on all services except resource pooling.
builder.OleDbServices = DBPROPVAL_OS_ENABLEALL _
And Not DBPROPVAL_OS_AGR_RESOURCEPOOLING
builder.Provider = "sqloledb"
builder.DataSource = "(local)"
builder("Initial Catalog") = "AdventureWorks"
builder("Integrated Security") = "SSPI"
' Store the connection string.
Dim savedConnectionString As String = builder.ConnectionString
Console.WriteLine(savedConnectionString)
' Reset the object. This resets all the properties to their
' default values.
builder.Clear()
' Investigate the OleDbServices property before
' and after assigning a connection string value.
Console.WriteLine("Default : " & builder.OleDbServices)
builder.ConnectionString = savedConnectionString
Console.WriteLine("Modified: " & builder.OleDbServices)
Console.WriteLine("Press Enter to finish.")
Console.ReadLine()
End Sub
End Module