操作Access数据库Recordset的编辑问题。
先看一下代码
Dim Conn As Database
Dim strCon As String
strCon = ";pwd="
Set Conn = OpenDatabase("test.mdb", False, False, strCon)
Dim Rs As Recordset
Dim sql As String
sql = "SELECT a.ID,a.Name FROM T1 a,T2 b Where a.ID=b.ID"
Set Rs = Conn.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges, dbOptimistic)
Rs.Edit '这里出错,提示Read-only
Rs(1) = "1212kk"
Rs.Close
If Not (Rs Is Nothing) Then
Set Rs = Nothing
End If
If Not (Conn Is Nothing) Then
Set Conn = Nothing
End If
目的是想对Rs结果集做编辑,如果sql是单表查询没问题,问题就是多表时不能编辑,试了好多方法都不行,已经焦头烂额了,期望高手给予解决的方法,高分相送,不甚感激。
先看一下代码
Dim Conn As Database
Dim strCon As String
strCon = ";pwd="
Set Conn = OpenDatabase("test.mdb", False, False, strCon)
Dim Rs As Recordset
Dim sql As String
sql = "SELECT a.ID,a.Name FROM T1 a,T2 b Where a.ID=b.ID"
Set Rs = Conn.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges, dbOptimistic)
Rs.Edit '这里出错,提示Read-only
Rs(1) = "1212kk"
Rs.Close
If Not (Rs Is Nothing) Then
Set Rs = Nothing
End If
If Not (Conn Is Nothing) Then
Set Conn = Nothing
End If
目的是想对Rs结果集做编辑,如果sql是单表查询没问题,问题就是多表时不能编辑,试了好多方法都不行,已经焦头烂额了,期望高手给予解决的方法,高分相送,不甚感激。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货