�� SQL OLE DB � ��

�� : 229564 - �� , � �� .

��: ��

��

�� | ��

��

�� SQL Server �� ActiveX (ADO) �� SQL Server, �� SQL Server 7.0.

sp_setapprole �� . �� .

�� SQL Server 2000, �� :

[DBNETLIB][ConnectionRead (WrapperRead()).]�� . ��

�� , �� sp_setapprole �� ADO, �� OLE DB. �� SQLOLEDB �� ODBC �� SQL Server ��.

�� , �� SQL Server.NET �� OLE DB.NET �� SQLOLEDB OLE DB. �� , �� , �� :

��

�� | ��

��

� ��, �� SQL Server �� . �� , �� SQL Server � �� , �� . �� OLE DB �� , �� , � �� , �� sp_setapprole �� .

�� | ��

��

�� , �� OLE DB ��, �� ADO �� . �� OLE DB = -2 "� �� ADO, �� :

'For SQLOLEDB provider
 'strConnect = "Provider=SQLOLEDB;server=SQL7Web;OLE DB Services = -2;uid=AppUser;pwd=AppUser;initial catalog=northwind"

' For MSDASQL provider 
'strConnect = "DSN=SQLNWind;UID=Test;PWD=Test; OLE DB Services= -2"

�� SQL Server.NET �� , �� "Pooling = False" � �� .

�� | ��

��

�� :

Private Sub Command2_Click()
 Dim adoCn1 As ADODB.Connection
 Dim adoCn2 As ADODB.Connection

 Set adoCn1 = GetConnection
 
 Set adoCn2 = GetConnection
 Set adoCn2 = Nothing
 Set adoCn2 = GetConnection
 Set adoCn2 = Nothing
 Set adoCn2 = GetConnection  'Gives errors for both SQLOLEDB and ODBC
 Set adoCn2 = Nothing
End Sub

Private Function GetConnection() As ADODB.Connection
 Dim cn As ADODB.Connection
 Dim sSQL As String
 Dim strConnect As String

 Set cn = New ADODB.Connection
 
'For OLE DB provider
 strConnect = "Provider=SQLOLEDB;server=myServer;uid=AppUser;pwd=AppUser;initial catalog=northwind"

'Turn off Pooling ( all other services are enabled )
'strConnect = "Provider=SQLOLEDB;server=myServer;OLE DB Services= -2;uid=AppUser;pwd=AppUser;initial catalog=northwind"
 
 'For ODBC driver
 'strConnect = "DSN=SQLNWind;UID=Test;PWD=Test; "

'Turn off Pooling
'strConnect = "DSN=SQLNWind;UID=Test;PWD=Test; OLE DB Services= -2"

cn.ConnectionString = strConnect
cn.Open
 
 sSQL = "sp_setapprole 'order_entry', 'password'"
 cn.Execute sSQL
 Set GetConnection = cn
End Function