在VB中可以将连接参数设为以下格式:
ConnectString = "uid=myname;pwd=mypw;driver={SQL Server};" & _
 "server=myserver;database=pubs;dsn=''"

解决方案 »

  1.   

    使用ado,sql7.0,vb6.0 sp3
    1
    nt 集成验证
    Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TEST;Data Source=sy_server_tj12
    sql server验证
    Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TEST;Data Source=sy_server_tj1
      

  2.   

    详细代码如下(需要在程序中引用msado15.dll)
        Dim cn As New ADODB.Connection
        cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TEST;Data Source=sy_server_tj1"
        cn.Open
        
        Dim rs As New ADODB.Recordset
        Dim sql As String
        sql = "select * from city"
        rs.Open sql, cn, adOpenKeyset, adLockOptimistic, adCmdText
        Debug.Print rs.RecordCount
    [email protected]
      

  3.   

    好象应该更改注册表。ProgID为MSDASC.即oledb32.dll
    或者更改adodc的注册表设置。来指定ms sql server oledb provider为默认选项。
    仅供参考。