【VB】操作ODBC-DAO方式操作只能查询，不能更新插入操作解决。

最近接手一个改善项目，需要从Access转化到SQL Server 2014，使用原有的ODBC连接方式只能查询，不能更新插入。网上一直找不到解决方案，然后自己测试一下使用ADO方式竟然可以连接了。具体问题还未找到，现在贴出例子代码，希望给自己一个帮助找出真正问题所在。

 

Private Sub Command1_Click()
On Error GoTo Err
Dim db As Database
Dim Rs As Recordset
Dim Qry As QueryDef
        Set db = DBEngine(0).OpenDatabase("", False, False, _
      "ODBC;driver={SQL Server};server=(local);uid=sa;pwd=你的密码;database=数据库")
        
      Set Qry = db.CreateQueryDef("")
    With Qry
        .SQL = "SELECT * from P_STATUS;"
    End With
    
    Set Rs = Qry.OpenRecordset()
    With Rs
        Do While Not .EOF
        MsgBox !SEQNO, vbOKOnly + vbCritical, "提示"
        .MoveNext
        Loop
    End With
        
        'db.Updatable
        
      Dim intA As Integer
      intA = 2
        db.Execute "UPDATE P_STATUS SET STATUS = '2'", dbFailOnError '这里出错，不能更新
        Debug.Print "To Paris:", db.RecordsAffected
        db.Close
        Exit Sub
Err:
    Print Err.Number
    Dim ss As String
    ss = Err.Description
    
        db.Close
        Exit Sub
End Sub

 

'数据源信息常量
 Const conn As String = "driver={SQL Server};server=(local);uid=sa;pwd=你的密码;Database=数据库"             
 Const CONNECT_LOOP_MAX = 10 '一次执行connect操作，可以访问数据库的次数
 
 Private IsConnect As Boolean '标记数据库是否连接
 
 Private Connect_Num As Integer '标记执行Connect()函数后访问数据的次数
 
 Private cnn As ADODB.Connection '连接数据库的Connect对象
  
 Private re As ADODB.Recordset '保存结果集的Recordset对象

 
'连接数据库
 Private Sub Connect()
 
 
 '如果连接标记为真，则返回。
 If IsConnect = True Then
   Exit Sub
 End If
 
 Set cnn = New ADODB.Connection '关键new用于创建新对象cnn
  
 cnn.ConnectionString = conn
  
 cnn.Open
 '判断连接的状态
 If cnn.State <> adStateOpen Then
   MsgBox "数据库连接失败"
   End
 End If
 
 '设置连接标识，表示已经连接到数据库
 IsConnect = True
End Sub
 
 
'断开与数据库的连接
Private Sub DisConnect()
 Dim rc As Long
 
 If IsConnect = False Then
   Exit Sub
 End If
 '关闭连接
 cnn.Close
 '释放cnn
 Set cnn = Nothing
 IsConnect = False
End Sub
 
'使用Connect_Num控制数据连接
Public Sub DB_Connect()
  Connect_Num = Connect_Num + 1
  Connect
End Sub
 
'使用Connect_Num控制数据断开
Public Sub DB_Disconnect()
If Connect_Num >= CONNECT_LOOP_MAX Then
  Connect_Num = 0
  DisConnect
 End If
 End Sub
 
'强制关闭api方式访问俄的数据库，计数器复位
Public Sub DBapi_Disconnect()
  Connect_Num = 0
  DisConnect
End Sub
 
'执行数据库操作语言
'byval 就是按参数的值传递，再传递过程中，参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式，这就使过程访问发哦变量的副本，过程不可改变变量的值)；
'与之对应的是byref,指按参数的地址传值，byref可以省略
Public Sub SQLExt(ByVal TmpSQLstmt As String)
 
 On Error GoTo Err:
  Dim cmd As New ADODB.Command '创建Command对象cmd
   
  DB_Connect '连接数据库
   
  Set cmd.ActiveConnection = cnn '设置cmd的ActiveConnect属性，指定与其关联的数据库连接
 
  cmd.CommandText = TmpSQLstmt '设置要执行的命令文本
 
  'MsgBox TmpSQLstmt
 
  cmd.Execute '执行命令
 
  Set cmd = Nothing
 
  DB_Disconnect '断开与数据库的连接
  Exit Sub
  
Err:
    Dim ss As String
    ss = Err.Description
    Print ss
    DB_Disconnect '断开与数据库的连接
    Exit Sub
 
End Sub
 
'执行数据库查询语句
Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB.Recordset
   
  Dim rst As New ADODB.Recordset '创建Rescordset对象rst
 
  DB_Connect '连接数据库
 
  Set rst.ActiveConnection = cnn '设置rst的ActiveConnection属性,指定与其相关的数据库的连接
 
  rst.CursorType = adOpenDynamic '设置游标类型
 
  rst.LockType = adLockOptimistic '设置锁定类型
 
  rst.Open TmpSQLstmt '打开记录集
 
  Set QueryExt = rst '返回记录集
 
End Function



Private Sub Command2_Click()
    Set re = QueryExt("SELECT * from P_STATUS;")
    With re
        Do While Not .EOF
        MsgBox !SEQNO, vbOKOnly + vbCritical, "提示"
        .MoveNext
        Loop
    End With
    Call SQLExt("UPDATE P_STATUS SET STATUS = '8'")
End Sub