Question

我必须支持仍在生产的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”

我尝试过多个连接字符串选项。

谢谢！

Answer 1

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

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

感谢Bob77！你很快就会使用新的客户端。

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

1 个答案: