sql - vb6 ADODB 连接字符串到 sql server 2008

Question

我最近将一个数据库从 sql server 2005 迁移到 windows server 2008 上的 2008。客户端从他们的 XP 机器连接良好，SQL Management Studio 2008 也是如此。我还使用 LINQPad 测试了远程连接，效果很好。

但是在我的 VB6 应用程序上，连接字符串似乎给我带来了问题。任何想法我做错了什么？

    Dim strUserName As String
     Dim strPassword As String
     Dim sProc As String

     sProc = "Class_clsAdoFnx_Initialize"

        Me.DatabaseName = "db_app"




 'Connect to SQL Server

    strUserName = "admin"
    strPassword = "mudslinger"

    Set cSQLConn = New ADODB.Connection
    '**Original connection String
    'cSQLConn.CommandTimeout = 0
    'cSQLConn.ConnectionString = " PROVIDER=SQLOLEDB" & _
    '    ";SERVER=NET-BRAIN" & _
    '    ";UID=" & strUserName & _
    '    ";PWD=" & strPassword & _
    '    ";DATABASE=" & Me.DatabaseName

    '***First attempt, no dice
    'cSQLConn.ConnectionString = "Provider=sqloledb;" & _
    '       "Data Source=NET-BRAIN;" & _
    '       "Initial Catalog=DB_APP;" & _
    '       "User Id=admin;" & _
    '       "Password=mudslinger"
    'cSQLConn.Open

    '***3rd attempt, no dice 
    cSQLConn.Open "Provider=sqloledb;" & _
           "Data Source=NET-BRAIN;" & _
           "Initial Catalog=db_app;" & _
           "User Id=admin;" & _
           "Password=mudslinger", "admin", "mudslinger"

提前致谢。

更新:这是我使用 test.UL 文件生成的字符串

[ODBC] 提供者

Provider=MSDASQL.1;Password=logmein;Persist Security Info=True;User ID=sa;Extended Properties="DSN=NET-BRAIN;UID=admin;PWD=mudslinger;APP=Microsoft® Windows® 操作系统;WSID=BPOOR-16D68FBC7D;DATABASE=DB_App;Network=DBMSSOCN";初始目录=DB_App

这是使用 SQL Native 提供程序 的同一个 UL 文件:

"Provider=SQLNCLI10.1;Integrated Security="";Persist Security Info=False;User ID=admin;Initial Catalog=DB_APP;Data Source=NET-BRAIN;Initial File Name="";Server SPN="""

--收到错误:Ado Call 错误... Class_clasAdoFnx_initialize 中出现错误 3001 参数类型错误、超出可接受范围或相互冲突。--错误:Class_clsAdoFnx_Initialize3709 请求的操作需要 OLE DB session 对象，当前提供程序不支持该对象。

为 sql server 提供程序选项尝试了 [oledb]"Provider=SQLOLEDB.1;Password=mudslinger;Persist Security Info=True;User ID=admin;Initial Catalog=db_app;Data Source=net-brain"

错误:-2147217900 用户“admin”登录失败

UPDATE2: 隔离打开的连接字符串后，发现连接正在打开，我用来测试的存储过程失败了。

Answer 1

正在关注 Using ADO with SQL Server Native Client要启用 SQL Server Native Client，ADO 应用程序需要在其连接字符串中实现以下关键字:

Provider=SQLNCLI10
DataTypeCompatibility=80

Dim con As New ADODB.Connection

con.ConnectionString = "Provider=SQLNCLI10;" _
         & "SERVER=NET-BRAIN;" _
         & "Database=DB_APP;" _ 
         & "DataTypeCompatibility=80;" _
         & "User Id=admin;" _
         & "Password=mudslinger;"

con.Open