50分求数据库连接。本人信誉优良。结贴积极!

Question

把On Error Resume Next注释掉，看看出什么错误报告？再进行解决

Answer 1

看看出什么错误报告？这就是：run-time error-'2147467259(80004005)' timeout expired

Answer 2

是数据库进程被堵，在循环也没有用。
建议到将以前的进程强制取消，可以一试
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 3

Provider=SQLOLEDB; data source=n;user id=sa;password=;initial catalog=yl我觉得可能是网络原因，是不是你不能登陆

Answer 4

怎么设置？是在Server 端吗？

Answer 5

Server 端的 Query  time-out 是600 Sec

Answer 6

CnHr.CommandTimeout =60
这个属性设置有用吗？？

Answer 7

你的网络可能不好，或你的连接字符串有问题，如果是-'2147467259，则不能与服务器正常连接，你可以用ACCESS的ODBC测试一下能否与服务器正常连接。如果正常，则说明你的网络没有问题，这样，再判断一下连接字符串的问题，如果没有问题了的话。还有你的CNhR的配置属性得改一下才好。如果你的网络较慢的话，最好把连接的时间加长一些。我正常是这样用的。
with cnhr
  .commandedtimeout = 60
  .connectiontimeout = 60
  .connettionstring = "连接字符串"
　.open
end with
然后在ERROR中处理连接不上的问题，最好把打开数据连接写成一个单独的函数，出错时就调用它打开数据连接。
我在以前的程序中这样做没有问题，以前因为数据库做备份时经常连接不上的问题就是这样解决的。

Answer 8

我用SQL作了一下测试，你试一下：
'连接数据库(ADO 使用SQL Server)(增加超时设置TimeOut,用于延时)
Public Function ConnectSQLServer(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String, ByVal TimeOut As Integer) As Boolean
    
    Dim strConnect As String
    
    On Error GoTo Error_ConnectSQLServer
    
    gadoConnect.CursorLocation = adUseClient
    strConnect = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DBName & ";UID=" & UserName & ";PWD=" & PWD & ";TimeOut=" & TimeOut & ""
    gadoConnect.Open strConnect
        
    ConnectSQLServer = True
    Exit Function
    
Error_ConnectSQLServer:
    ConnectSQLServer = False
    
End Function

Answer 9

我用SQL作了一下测试，你试一下：
'连接数据库(ADO 使用SQL Server)(增加超时设置ConnectionTimeout ,用于延时)
Public Function ConnectSQLServer(ByVal ServerName As String, ByVal DBName As String, ByVal UserName As String, ByVal PWD As String, ByVal TimeOut As Integer) As Boolean
    
    Dim strConnect As String
    
    On Error GoTo Error_ConnectSQLServer
    
    gadoConnect.CursorLocation = adUseClient
    strConnect = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DBName & ";UID=" & UserName & ";PWD=" & PWD & ";"    gadoConnect.ConnectionTimeout = TimeOut
    gadoConnect.Open strConnect
            
    ConnectSQLServer = True
    Exit Function
    
Error_ConnectSQLServer:
    ConnectSQLServer = False
    
End Function

Answer 10

你这样做事拌头砸自己脚一 你的问题出在网络不稳定，换100兆网（网络质量好的话哪怕0.5兆也问题哈）卡，线都要换还有HUB 或者事服务器有问题也不一定？
二 你返回的错误事因为第一次的请求还没有返回就循环到下一次请求能不出错吗？ 连接就一次不成功就说明网络或服务器有问题 要推出程序即使你可以成功的处理多次请求也不要这么做
    大量的客户机都同时启动那么一台也成功不了还会造成网络阻塞！
================================================================ok?

Answer 11

你这样做事拌头砸自己脚一 你的问题出在网络不稳定，换100兆网（网络质量好的话哪怕0.5兆也问题哈）卡，线都要换还有HUB 或者事服务器有问题也不一定？
二 你返回的错误事因为第一次的请求还没有返回就循环到下一次请求能不出错吗？ 连接就一次不成功就说明网络或服务器有问题 要推出程序即使你可以成功的处理多次请求也不要这么做
    大量的客户机都同时启动那么一台也成功不了还会造成网络阻塞！
================================================================ok?