vb,ado,sql2000 一般网络错误

我用vb+ado+sql2000,开发一套系统，开发环境是2000P，VB（已打SP5）
有一个模块的功能是从文本装入一批数据到数据表中，在倒入的时候报“[DBMSSCON]
一般网络错误”。此系统在2000环境下，调试完全正常（包括上面的倒入数据），在98工作站上就有上述的错误，但是其他模块比如出报表也是正常的。文本文件大概有100多条记录，尝试过删去一些，大约剩下3-4条记录能导入的。请问该如何解决，谢谢！ 附代码
Dim cn_djb As New ADODB.Connection
Dim rst_djb As New ADODB.Recordset
'Dim cn_djrz As New ADODB.Connection
Dim rst_djrz As New ADODB.Recordset
'Dim cn_mxrz As New ADODB.Connection
Dim rst_mxrz As New ADODB.Recordset
server = ReadIni("server", "ip")
db_user = ReadIni("server", "User")
db_pass = ReadIni("server", "Password")
database = ReadIni("server", "database")
cnstr = "Provider=SQLOLEDB.1;Password='" & db_pass & "';Persist Security Info=True;User ID='" & db_user & "';Initial Catalog='" & database & "';Data Source='" & server & "'"
cn_djb.Open cnstr
rst_djb.LockType = adLockOptimistic
rst_djb.CursorType = adOpenStatic
rst_djb.CursorLocation = adUseClient
'rst_djb.Open "djb", cnstr
'**************************************
'cn_djrz.Open cnstr
rst_djrz.LockType = adLockOptimistic
rst_djrz.CursorType = adOpenStatic
rst_djrz.CursorLocation = adUseClient
rst_djrz.Open "djrz", cnstr
'**************************************
'cn_mxrz.Open cnstr
rst_mxrz.LockType = adLockOptimistic
rst_mxrz.CursorType = adOpenStatic
rst_mxrz.CursorLocation = adUseClient
rst_mxrz.Open "mxrz", cnstr
zGe = 0#
zfs = 0
Hs = 0
'On Error GoTo yeEnd
'下面是选择余额文件
CommonDialog2.CancelError = True
CommonDialog2.ShowOpen
yeFile = CommonDialog2.FileName
Open yeFile For Input As #1
Do While Not EOF(1)
        '逐行读取
        Line Input #1, strYe
        'MsgBox strMx
        'Hs = Hs + 1
        n = 1
        strField(n) = ""
        strField(6) = ""
        For m = 1 To Len(strYe) Step 1
            'MsgBox i
            If Mid(strYe, m, 1) = " " Then
                If Mid(strYe, m - 1, 1) <> " " Then
                If Len(yeField(n)) < 1 Then yeField(n) = "0"
                       'MsgBox yeField(n) & "......" & Str(n)
                       n = n + 1
                       yeField(n) = ""
                
                End If
            Else
                If Mid(strYe, m, 1) <> "-" Then yeField(n) = yeField(n) & Mid(strYe, m, 1)
            End If
        Next
 
 If Trim(yeField(3)) = GetZh Then
    Yje = CDbl(yeField(6))
 End If
 Loop
 Label3.Caption = "余额为:" + Str(Yje)
 Close #1'下面是选择数据文件
'On Error GoTo gsEnd
      If Not rst_mxrz.EOF Then
        MsgBox "明细日志未初始化", vbApplicationModal, "装入前台明细"
        rst_mxrz.Close
         'Adodc2.Recordset.Close
        Exit Sub
    End If 
    If Not rst_djrz.EOF Then
        MsgBox "大机日志未初始化", vbApplicationModal, "装入前台明细"
              Exit Sub
    End If
    '检查是否已加入djb
    CommonDialog1.CancelError = True
    CommonDialog1.ShowOpen
    strFile = CommonDialog1.FileName
    Text1.Text = "正在装入数据..."
     Open strFile For Input As #1
    Do While Not EOF(1)
        '逐行读取'
        Line Input #1, strMx
        'MsgBox strMx
        Hs = Hs + 1
        j = 1
        strField(j) = ""
        strField(6) = ""
        For i = 1 To Len(strMx) Step 1
            'MsgBox i
            If Mid(strMx, i, 1) = " " Then
                If Mid(strMx, i - 1, 1) <> " " Then
                If Len(strField(j)) < 1 Then strField(j) = "0"
                       'MsgBox strField(j) & "......" & Str(j)
                       j = j + 1
                       strField(j) = ""
                 End If   
            Else
                If Mid(strMx, i, 1) <> "-" Then strField(j) = strField(j) & Mid(strMx, i, 1)
            End If
        Next
        If Len(strField(j)) < 1 Then strField(j) = "0"
            If Len(strField(6)) < 1 Then strField(6) = "0"
            yy = Left(strField(3), 4) & "/" & Mid(strField(3), 6, 2) & "/" & Right(strField(3), 2)
        strsql = "select * from djb where rq= '" & yy & "'"
        rst_djb.Open strsql, cnstr
        sno2 = rst_djb.RecordCount
           If Not rst_djb.EOF Then
           MsgBox "此日大机历史明细已装入" & "--请检查!", vbApplicationModal, "大机历史明细装入"
           Close #1
           rst_djb.Close
             Exit Sub
        End If
        rst_djb.Close
    Loop
    Close #1
    
    ' 开始装入大机文件
    rst_djb.Open "djb", cnstr
    CommonDialog1.CancelError = True
    CommonDialog1.ShowOpen
    strFile = CommonDialog1.FileName
    Text1.Text = "正在装入数据..."
    Open strFile For Input As #1
    Do While Not EOF(1)
        Line Input #1, strMx
        Hs = Hs + 1
        j = 1
        strField(j) = ""
        strField(6) = ""
        For i = 1 To Len(strMx) Step 1
            If Mid(strMx, i, 1) = " " Then
                If Mid(strMx, i - 1, 1) <> " " Then
                If Len(strField(j)) < 1 Then strField(j) = "0"
                    'MsgBox j
                    'MsgBox strField(j)
                        j = j + 1
                    strField(j) = ""
                End If
            Else
                If Mid(strMx, i, 1) <> "-" Then strField(j) = strField(j) & Mid(strMx, i, 1)
            End If
        Next
        If Len(strField(j)) < 1 Then strField(j) = "0"
        If Len(strField(6)) < 1 Then strField(6) = "0"
        
        '只装入该帐号的记录
        ' If strField(1) = "2062490123564" Then
          
         '**************  EDIT BYE WANGJIAN
          If strField(2) = GetZh Then
         '*************   EDIT END
        '写入字段
  '       sno3 = Adodc3.Recordset.RecordCount
        ' MsgBox sno3
         With rst_djrz
            .AddNew
          '   !sno = sno3 + 1
            '!sh = strField(1)
            !sh = strField(2)
            '!ge = CDbl(strField(5))
            !ge = CDbl(strField(6))
            '!ye = CDbl(strField(6))
            !ye = Yje
            '!rq = strField(2)
            !rq = strField(3)
            !bz = 0
            .Update
         End With
                                        
        'zGe = zGe + CDbl(strField(5))
         zGe = zGe + CDbl(strField(6))
        'zYe = zYe + CDbl(strField(6))
        zfs = zfs + 1
        With rst_djb
            .AddNew
            !sno = sno2
            !sh = strField(2)
            !ge = CDbl(strField(6))
            '!ye = CDbl(strField(6))
            !ye = Yje
            !rq = strField(3)
            !bz = 0
            sno2 = sno2 + 1
           .Update
        
        End With
        Text2.Refresh
        Text2.Text = Str(zfs)
        End If
'        MsgBox strMx & "; " & strField(1) & "; " & strField(5)
    Loop
    Close #1
   ' Adodc2.Recordset.Close
   ' Adodc3.Recordset.Close
    rst_djb.Close
    rst_djrz.Close
 '   rst_djrz.Close
    cn_djb.Close
'    cn_djrz.Close
    Text1.Text = "装入完毕！" & Chr(10) _
                & "总笔数：" & zfs & Chr(10) _
                & "总金额：" & zGe & Chr(10)
                '& "总余额：" & zYe
    Exit Sub
gsEnd:
    Close #1
    rst_djb.Close
    rst_djrz.Close
  '  rst_djrz.Close
    cn_djb.Close
  '  cn_djrz.Close
    'Adodc2.Recordset.Close
    'Adodc3.Recordset.Close
    Text1.Text = "装入失败！" & Chr(10) _
                & "总笔数：" & zfs & Chr(10) _
                & "总金额：" & zGe & Chr(10) & "总余额：" & zYe
    Exit Sub
yeEnd:
   Close #1
    Text1.Text = "余额文件选择错！"
End Sub

解决方案 »

  1.   

    djb目前大概有20000条记录，mxrz,djrz一般记录为空
      

  2.   

    检查SQL权限设置，以及安装SQL时是用的单安全制、还是双安全制。 
      

  3.   

    在2000P下可以装入的啊，能不能指教下安全制、双安全制在哪检查的，刚开始用SQL，见笑了
      

  4.   

    在WIN98时其他功能,如资料录入可以出错吗?
      

  5.   

    to csdmzmk ：id 是 -2147467259 （8000405）一般性网络错误
      

  6.   

    to fuanwei;在2000P下是可以装入的啊
      

  7.   

    to csdnmzk:那问题在哪啊，请多指教
      

  8.   

    to  fuanwei : 在2000P下是可以装入的啊
      

  9.   

    如果排除了网络质量原因，你也许可以注意一下当前服务器与SQL Server的connection数目是否维持在一个正在高涨的数量。当连接不断增加的时候，就要当心，服务器连接数据库是有一定限制的，而且达到最大值后，其他程序再次请求连接时，就可能得到“一般性网络错误”的警告，而且错误号80004005也并没有说明到底发生了什么，SQL Server和ADO并不会告诉你连接数已经达到最大值。
      

  10.   

    应该不会是连接过多的原因啊，目前那台SQL服务器，只有一台工作站在调用啊
      

  11.   

    下面我们依次介绍如何来解决这三个最常见的连接错误。　　第一个错误"SQL Server 不存在或访问被拒绝"通常是最复杂的，错误发生的原因比较多，需要检查的方面也比较多。一般说来，有以下几种可能性：
    　　1、SQL Server名称或IP地址拼写有误；
    　　2、服务器端网络配置有误；
    　　3、客户端网络配置有误。
    　　要解决这个问题，我们一般要遵循以下的步骤来一步步找出导致错误的原因。
    　　首先，检查网络物理连接：
    　　 ping ＜服务器IP地址＞ 
    　　或者
    　　 ping ＜服务器名称＞
    　　如果 ping ＜服务器IP地址＞ 失败，说明物理连接有问题，这时候要检查硬件设备，如网卡、HUB、路由器等。还有一种可能是由于客户端和服务器之间安装有防火墙软件造成的，比如 ISA Server。防火墙软件可能会屏蔽对 ping、telnet 等的响应，因此在检查连接问题的时候，我们要先把防火墙软件暂时关闭，或者打开所有被封闭的端口。
    　　如果ping ＜服务器IP地址＞ 成功而 ping ＜服务器名称＞ 失败，则说明名字解析有问题，这时候要检查 DNS 服务是否正常。有时候客户端和服务器不在同一个局域网里面，这时候很可能无法直接使用服务器名称来标识该服务器，这时候我们可以使用HOSTS文件来进行名字解析，具体的方法是：
    　　1、使用记事本打开HOSTS文件（一般情况下位于C:\WINNT\system32\drivers\etc）.
    　　2、添加一条IP地址与服务器名称的对应记录，如：
    　　　　172.168.10.24 myserver
    　　也可以在 SQL Server 的客户端网络实用工具里面进行配置，后面会有详细说明。
    　　其次，使用 telnet 命令检查SQL Server服务器工作状态：
    　　　telnet ＜服务器IP地址＞ 1433
    　　如果命令执行成功，可以看到屏幕一闪之后光标在左上角不停闪动，这说明 SQL Server 服务器工作正常，并且正在监听1433端口的 TCP/IP 连接；如果命令返回"无法打开连接"的错误信息，则说明服务器端没有启动 SQL Server 服务，也可能服务器端没启用 TCP/IP 协议，或者服务器端没有在 SQL Server 默认的端口1433上监听。
    　　接着，我们要到服务器上检查服务器端的网络配置，检查是否启用了命名管道，是否启用了 TCP/IP 协议等等。我们可以利用 SQL Server 自带的服务器网络使用工具来进行检查。
    　　点击：程序 -＞ Microsoft SQL Server -＞ 服务器网络使用工具，打开该工具后看到的画面如下图所示：
    　　从这里我们可以看到服务器启用了哪些协议。一般而言，我们启用命名管道以及 TCP/IP 协议。
    　　点中 TCP/IP 协议，选择"属性"，我们可以来检查 SQK Server 服务默认端口的设置，如下图所示：
    　　一般而言，我们使用 SQL Server 默认的1433端口。如果选中"隐藏服务器"，则意味着客户端无法通过枚举服务器来看到这台服务器，起到了保护的作用，但不影响连接。
    　　检查完了服务器端的网络配置，接下来我们要到客户端检查客户端的网络配置。我们同样可以利用 SQL Server 自带的客户端网络使用工具来进行检查，所不同的是这次是在客户端来运行这个工具。
    　　点击：程序 -＞ Microsoft SQL Server -＞ 客户端网络使用工具， 打开该工具后看到的画面如下图所示：
    　　从这里我们可以看到客户端启用了哪些协议。一般而言，我们同样需要启用命名管道以及 TCP/IP 协议。
    　　点击 TCP/IP 协议，选择"属性"，可以检查客户端默认连接端口的设置，如下图所示。
    　该端口必须与服务器一致。
    　　单击"别名"选项卡，还可以为服务器配置别名。服务器的别名是用来连接的名称，连接参数中的服务器是真正的服务器名称，两者可以相同或不同。如下图中，我们可以使用myserver来代替真正的服务器名称sql2kcn-02，并且使用网络库 Named Pipes。别名的设置与使用HOSTS文件有相似之处。
    　　通过以上几个方面的检查，错误 1 发生的原因基本上可以被排除。下面我们再详细描述如何来解决错误 2。
    　　当用户尝试在查询分析器里面使用sa来连接SQL Server，或者在企业管理器里面使用sa来新建一个SQL Server注册时，经常会遇到如图 2 所示的错误信息。该错误产生的原因是由于SQL Server使用了"仅 Windows"的身份验证方式，因此用户无法使用SQL Server的登录帐户（如 sa ）进行连接。解决方法如下所示：
    　　1、 在服务器端使用企业管理器，并且选择"使用 Windows 身份验证"连接上 SQL Server；
    　　2、 展开"SQL Server组"，鼠标右键点击SQL Server服务器的名称，选择"属性"，再选择"安全性"选项卡；
    　　3、 在"身份验证"下，选择"SQL Server和 Windows "。
    　　4、 重新启动SQL Server服务。　　在以上解决方法中，如果在第 1 步中使用"使用 Windows 身份验证"连接 SQL Server 失败，那么我们将遇到一个两难的境地：首先，服务器只允许了 Windows 的身份验证；其次，即使使用了 Windows 身份验证仍然无法连接上服务器。这种情形被形象地称之为"自己把自己锁在了门外"，因为无论用何种方式，用户均无法使用进行连接。实际上，我们可以通过修改一个注册表键值来将身份验证方式改为 SQL Server 和 Windows 混合验证，步骤如下所示：
    　　1、点击"开始"-"运行"，输入regedit，回车进入注册表编辑器；
    　　2、依次展开注册表项，浏览到以下注册表键：
    [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer]
    　　3、在屏幕右方找到名称"LoginMode"，双击编辑双字节值；
    　　4、将原值从1改为2，点击"确定"；
    　　5、关闭注册表编辑器；
    　　6、重新启动SQL Server服务。
    　　此时，用户可以成功地使用sa在企业管理器中新建SQL Server注册，但是仍然无法使用Windows身份验证模式来连接SQL Server。这是因为在 SQL Server 中有两个缺省的登录帐户：BUILTIN\Administrators 以及 ＜机器名＞\Administrator 被删除。要恢复这两个帐户，可以使用以下的方法：
    　　1、打开企业管理器，展开服务器组，然后展开服务器；
    　　2、展开"安全性"，右击"登录"，然后单击"新建登录"；
    　　3、在"名称"框中，输入 BUILTIN\Administrators；
    　　4、在"服务器角色"选项卡中，选择"System Administrators" ；
    　　5、点击"确定"退出；
    　　6、使用同样方法添加 ＜机器名＞\Administrator 登录。
    　　以下注册表键HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\LoginMode的值决定了SQL Server将采取何种身份验证模式。该值为1，表示使用Windows 身份验证模式；该值为2，表示使用混合模式（Windows 身份验证和 SQL Server 身份验证）。
    　　看完如何解决前两个错误的方法之后，让我们来看一下如图 3 所示的第三个错误。
    　　如果遇到第三个错误，一般而言表示客户端已经找到了这台服务器，并且可以进行连接，不过是由于连接的时间大于允许的时间而导致出错。这种情况一般会发生在当用户在Internet上运行企业管理器来注册另外一台同样在Internet上的服务器，并且是慢速连接时，有可能会导致以上的超时错误。有些情况下，由于局域网的网络问题，也会导致这样的错误。
    　　要解决这样的错误，可以修改客户端的连接超时设置。默认情况下，通过企业管理器注册另外一台SQL Server的超时设置是 4 秒，而查询分析器是 15 秒（这也是为什么在企业管理器里发生错误的可能性比较大的原因）。具体步骤为：
    　　1、在企业管理器中，选择菜单上的"工具"，再选择"选项"；
    　　2、在弹出的"SQL Server企业管理器属性"窗口中，点击"高级"选项卡；
    　　3、在"连接设置"下的"登录超时（秒）"右边的框中输入一个比较大的数字，如 20。
    　　查询分析器中也可以在同样位置进行设置。