SQL SERVER 局域网连接的问题！

平平淡淡的天使

之前为设置TCP/Ip和防火墙的时候，本地连接SQL Server连接正常，但是设置后。。不能正常连接了。。
代码如下：

1. Sub test()  '定义过程名称
   
2. Application.ScreenUpdating = False
   
3. Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
   
4. Dim a As String, b As String
   
5. Dim cn As Object
   
6. Set cn = CreateObject("ADODB.Connection")
   
7. Dim rs As Object
   
8. Set rs = CreateObject("ADODB.Recordset") '定义记录集对象，保存数据表
   
9. 'Dim cm As New ADODB.Connection
   
10. Dim strCn As String, strSQL As String '字符串变量
    
11. a = Cells(2, 1).Value
    
12. b = Cells(2, 2).Value
    
13. 'strCn = "Provider=sqloledb;Server=IDEA-PC\SQLEXPRESS;Database=alesdata;Uid=sa;Pwd=198977"    '定义数据库链接字符串
    
14. 'strCn = "Provider=SQLOLEDB; User ID=sa;Password =198977;Data Source=IDEA-PC\SQLEXPRESS;Initial Catalog=alesdata"
    
15. strCn = "Driver={SQL Server};Server=192.168.10.38,1433;uid =sa;pwd =198977;database=alesdata" '必须使用driver={sql server}中间不能有空格，server不能直接使用local，必须指定本机机名 win-j8vpcts806b，注意相关引号
    
16. strSQL = "select * from  全年数据 WHERE 下单日期 between '" & a & "' and '" & b & "'" '定义SQL查询命令字符串
    
17. cn.Open strCn   '与数据库建立连接，如果成功，返回连接对象cn
    
18. Set rs = cn.Execute(strSQL)
    
19.              Cells(4, 1).CopyFromRecordset rs
    
20. For i = 1 To rs.Fields.Count
    
21.      Cells(3, i) = rs.Fields(i - 1).Name
    
22.       Next
    
23. rs.Close   '关闭记录集，至此，程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列，行数等于数据表的记录数
    
24. cn.Close
    
25. Set cn = Nothing
    
26. Application.ScreenUpdating = True
    
27. End Sub

复制代码

各位大师帮忙下。。

平平淡淡的天使

我还测试过PING  都正常。。。而且telnet 也正常。

Renco

1.看看SQL的补丁有没打
2.看看SQL端口是否改了，看看是不是1433
3.再看看你的防火墙是否设置上出了问题

平平淡淡的天使

Renco 发表于 2013-9-14 20:48
1.看看SQL的补丁有没打
2.看看SQL端口是否改了，看看是不是1433
3.再看看你的防火墙是否设置上出了问题

大师，已经解决了，，主要问题是我没有加入公司的域，我是win8 普通版。不能设置域，改用公司的主机做服务器，才能使用。感谢大师的热心解答。

Renco

平平淡淡的天使 发表于 2013-9-15 16:08
大师，已经解决了，，主要问题是我没有加入公司的域，我是win8 普通版。不能设置域，改用公司的主机做服务 ...

可能你的SQL采用了用户模式，而不是混合模式，在用户模式下，不加入域当然通不过用户权限
如在混合模式下，和加不加域没关系，和网段有关系，
不过另一种可能是不是WIN8普版对SQL有限制就不知道了，
解决了就好，不必深讨。

平平淡淡的天使

Renco 发表于 2013-9-15 20:32
可能你的SQL采用了用户模式，而不是混合模式，在用户模式下，不加入域当然通不过用户权限
如在混合模式下 ...

sql = "SELECT count(美金合同金额) FROM 销MYPATH =售数据源 WHERE year(下单日期) = '" & MING & "' and 美金合同金额 <> 0"

大师，这段代码是我以ACCCESS为数据源设置的，现在转为SQL SERVER了，，其中year(下单日期) = 这个语句，提示错误，大师 能否帮忙解决下。。谢谢！

Renco

year返回的是数字，你要去掉=号后面的单引号