VB6+SQL Server 2000应用CRUD数据未持久化问题求助

这种“应用内可见、重启后消失”的数据丢失问题，在VB6+SQL Server 2000的老系统里，几乎都是事务未正确提交或者客户端缓存未同步到服务器导致的。结合你的描述，我整理了核心排查方向、修复方案，以及需要你提供的代码片段来精准定位：

一、核心修复方案：确保数据持久化或显式报错 #

1. 强制显式事务+严格错误处理 #

VB6中使用ADO时，最常见的静默丢失就是开启了事务但未提交，或者错误被On Error Resume Next吞掉。你需要把所有CRUD操作包裹在显式事务中，并添加完整的错误捕获：

Private Sub btnSave_Click()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    
    On Error GoTo SaveError
    conn.Open "你的连接字符串"
    conn.CommandTimeout = 300 ' 根据操作耗时调整，避免超时静默回滚
    
    ' 开启显式事务
    conn.BeginTrans
    
    ' 执行INSERT/UPDATE操作，务必检查受影响行数
    conn.Execute "INSERT INTO YourTable (Col1, Col2) VALUES ('Val1', 'Val2')", , adCmdText Or adExecuteNoRecords
    If conn.RecordsAffected = 0 Then
        Err.Raise vbObjectError + 1001, , "保存失败：无数据行被影响"
    End If
    
    ' 提交事务
    conn.CommitTrans
    MsgBox "数据保存成功", vbInformation
    Cleanup:
        If conn.State = adStateOpen Then conn.Close
        Set conn = Nothing
        Exit Sub
    
    SaveError:
        ' 回滚事务+显式报错
        If conn.TransactionLevel > 0 Then conn.RollbackTrans
        MsgBox "保存错误：" & Err.Description & " (错误码：" & Err.Number & ")", vbCritical
        ' 记录错误到本地日志（方便后续排查）
        Open App.Path & "\save_error.log" For Append As #1
        Print #1, Now() & " | 错误码：" & Err.Number & " | 描述：" & Err.Description
        Close #1
        GoTo Cleanup
End Sub

2. 检查客户端游标与同步逻辑 #

如果你的代码使用了adUseClient客户端游标（常用于离线数据集），很可能出现本地缓存更新但未同步到服务器的情况：

• 确保更新后调用UpdateBatch提交到服务器
• 避免在客户端游标下混用隐式事务：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM YourTable", conn, adOpenStatic, adLockOptimistic

' 修改数据后必须提交到服务器
rs.AddNew
rs("Col1") = "NewValue"
rs.UpdateBatch ' 关键：将本地缓存同步到数据库

' 如果用了事务，要配合连接的事务提交
conn.BeginTrans
rs.UpdateBatch
conn.CommitTrans

3. 禁用SQL Server隐式事务 #

部分老系统可能在数据库层面开启了SET IMPLICIT_TRANSACTIONS ON，导致每个DML操作自动开启事务但需要手动提交。在连接初始化时强制关闭：

conn.Open "你的连接字符串"
conn.Execute "SET IMPLICIT_TRANSACTIONS OFF" ' 确保自动提交每个DML操作

4. 验证数据持久化（兜底方案） #

在保存后立即执行查询，验证数据是否真的写入数据库：

' 假设插入后返回IDENTITY主键
Dim newID As Long
conn.Execute "INSERT INTO YourTable (Col1) VALUES ('Val1'); SELECT SCOPE_IDENTITY()", newID, adCmdText Or adExecuteNoRecords

' 立即查询验证
Dim rs As ADODB.Recordset
Set rs = conn.Execute("SELECT * FROM YourTable WHERE ID = " & newID)
If rs.EOF Then
    Err.Raise vbObjectError + 1002, , "数据未写入数据库，请检查连接或事务"
End If
rs.Close

5. 处理应用退出时的后台操作 #

你提到关闭应用时后台仍有CRUD操作，这会导致连接被强制断开，未提交的事务被自动回滚。添加退出清理逻辑：

Private Sub Form_Unload(Cancel As Integer)
    ' 检查全局连接对象的事务状态
    If Not g_Conn Is Nothing Then
        If g_Conn.State = adStateOpen Then
            If g_Conn.TransactionLevel > 0 Then
                g_Conn.RollbackTrans
                MsgBox "警告：未提交的事务已回滚，请重新保存未完成的数据"
            End If
            g_Conn.Close
        End If
        Set g_Conn = Nothing
    End If
End Sub

二、需要你提供的代码片段（用于精准排查） #

为了进一步定位偶发问题，建议你补充以下代码：

• 保存按钮/后台CRUD操作的完整代码（特别是事务处理和错误捕获部分）
• 全局ADO连接对象的初始化、复用逻辑
• 任何使用On Error Resume Next的代码片段（这是静默吞错的重灾区）
• 数据库连接字符串（可隐去密码等敏感信息）

三、额外排查点 #

• 检查SQL Server的事务日志：查看是否有未提交的事务被自动回滚的记录
• 确认用户权限：虽然你说权限正常，但偶尔的权限波动（比如临时失效）也可能导致静默写入失败
• 检查网络稳定性：如果客户端与服务器之间有间断性断网，ADO可能会缓存操作但未同步，重启后丢失

内容的提问来源于stack exchange，提问作者Alex