关于vb+sql2000中update的“超时已经过期”问题

Question

 Dim SQLConn As New ADODB.Connection
 Dim SQLRecords As New ADODB.Recordset
 Dim SQLStr As String
‘数据库连接
    SQLConn.ConnectionString = "Provider=SQLOLEDB.1;Password=toplabel;Persist Security       Info=false;User ID=Toplabel;Initial Catalog=pcr_mdb;Data Source=10.168.83.64"
   
    SQLConn.Open
    SQLStr = "Select * from qcs20200"
    SQLRecords.Open SQLStr, SQLConn, adOpenDynamic, adLockOptimistic
    
    
    
    SQLRecords.AddNew
'以下是给你各个字段赋值
    SQLRecords!DIE_No = "2#"
    SQLRecords!Date = Now
    SQLRecords!Time = Now
                                                                   
    SQLRecords!Model_No = Int(Fix32.FIX_IJ.O_Q_DAT_2_MODEL_NO.f_cv)
                                                                     
    SQLRecords!L_RFV_OA_CW_Vol = CDec(Fix32.FIX_IJ.O_Q_DAT_2_RFV_CW_G1.f_cv)
                                                                      
    SQLRecords!L_RFV_OA_CCW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_RFV_CCW_G1.f_cv)
                                                                      
    SQLRecords!L_LFV_OA_CW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_LFV_CW_G1.f_cv)
                                                                        
    SQLRecords!L_LFV_OA_CCW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_LFV_CCW_G1.f_cv)
                                                                    
    SQLRecords!L_RFV_1st_CW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_RFV_CW_1H_G1.f_cv)
                                                                  
    SQLRecords!L_RFV_1st_CCW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_RFV_CCW_1H_G1.f_cv)
                                                                 
    SQLRecords!L_LFV_1st_CW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_LFV_CW_1H_G1.f_cv)
                                                                         
    SQLRecords!L_LFV_1st_CCW_Vol = CDbl(Fix32.FIX_IJ.O_Q_DAT_2_LFV_CCW_1H_G1.f_cv)
                                                                   
    SQLRecords!L_LFD_CW_Vol = Fix32.FIX_IJ.O_Q_DAT_2_LFD_CW_G1.f_cv
    SQLRecords!L_LFD_CCW_Vol = Fix32.FIX_IJ.O_Q_DAT_2_LFD_CCW_G1.f_cv
    SQLRecords!L_CON_Vol = Fix32.FIX_IJ.O_Q_DAT_2_CON_G1.f_cv
    SQLRecords!L_PLY_Vol = Fix32.FIX_IJ.O_Q_DAT_2_PLY_G1.f_cv
'刷新数据库
    SQLRecords.Update
    SQLRecords.Close
    SQLConn.Close
    Set SQLRecords = Nothing
    Set SQLConn = Nothing以上程序中，在运行时，SQLRecords.Update时，不时的出现“超时已经过期”的报警问题。
求大神给指点一二。谢谢

Answer 1

方法一：
SQLStr = "Select * from qcs20200 where 1=2"方法二：
SQLConn.execute " insert into qcs20200(...) values(...)"

Answer 2

远程数据库，不要连接一直打开，网络个各个协议层都会数据包超时丢弃的机制
一般，你可以在需要的时候打开连接，然后下载或者上传数据，然后关闭连接如ls所说，添加记录可以使用：
SQLConn.execute " insert into qcs20200(...) values(...)"

Answer 3

谢谢楼上的两位，现在在SQLConn.Open也会出现报警“超时已经过期”，怎么解决？？？

Answer 4

    cn.CommandTimeout  '打开数据的超时设置
    cn.ConnectionTimeout '连接的超时设置 自己设置一个合适值