Dim cnn1 As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strCnn As String
   Dim varDate As Variant    strCnn = "Provider=sqloledb;" & _
      "Data Source=localhost;Initial Catalog=wygl;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
以上连接不知道出了什么问题,提示sqlserver不存在,或拒绝访问。

解决方案 »

  1.   

    将localhost改成计算机名或IP地址试试
      

  2.   

    连接字符串你这样写看看: g_SqlDBString = "DRIVER={SQL Server};server=.;UID=sa;PWD=;database=mydb"
      

  3.   

    dim conn as new adodb.connection
    with conn
        If .State = adStateOpen Then .Close
        .ConnectionString = "driver=SQL Server;server=计算机名或IP地址;uid=sa;pwd=;database=数据库名"
        .CommandTimeout = 0
        .Open
    end with
      

  4.   

    查查是不是可以用sa登录的,还是只允许window用户登录
      

  5.   

    先检查SQL本身是否正常,然后再检查语句
      

  6.   

    1连接sql的有两种认证方式,你是选择windows认证还是sql的用户名密码验证,如果不同的话连接的字符串是不同的,你要先知道。然后在可以进行连接操作,都是搞这个的怎么连接都清楚了,你先判断你的连接方式吧。
    至于那种认证来源你SQl 的安装,你看看你Sql的配置再说,希望能帮助你