用于TLS1.2的VB6应用程序ado连接

发布时间：2020-12-17 07:18:54 所属栏目：百科来源：网络整理

导读：我必须支持一个仍在生产的VB6应用程序(呃).客户指定我们的软件需要符合PCI标准,这需要TLS 1.2. 有人知道怎么做吗？我正在使用SQL Server 2014.我已修补构建12.0.4502.0. Public Function GetConnection() As ADODB.Connection Dim con As ADODB.Connection

我必须支持一个仍在生产的VB6应用程序(呃).客户指定我们的软件需要符合PCI标准,这需要TLS 1.2.

有人知道怎么做吗？

我正在使用SQL Server 2014.我已修补构建12.0.4502.0.

Public Function GetConnection() As ADODB.Connection
  Dim con As ADODB.Connection

  On Error Resume Next
  Set con = New ADODB.Connection
  con.ConnectionTimeout = 10

  Dim connstring As String
  'connstring = "Provider=SQLOLEDB;Server=" & gstrServer & ";Database=" & gstrDB & ";User Id=" & gstrUser & ";Password=" & gstrPwd
  connstring = "Provider=MSDASQL;DRIVER=Sql Server;Server=" & gstrServer & ";Database=" & gstrDB & ";UID=" & gstrUser & ";PWD=" & gstrPwd

  con.Open connstring

  If Err Then Set con = Nothing
  Set GetConnection = con
End Function

该项目引用了“Microsoft ADO Ext.6.0 for DDL and Security”和“Microsoft ActiveX Data Objects 2.5 Library”

我尝试了多个连接字符串选项.

谢谢！

解决方法

我在 Using ADO with SQL Server Native Client找到了答案.

将提供程序更改为SQLNCLI11并添加DataTypeComptibility = 80.

谢谢Bob77！您使用较新的客户端即可.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!