Question

access 引用外部数据同样是 SQLsever 的表格 有的可以进行 有的不能修改保存呢 高分求解

用的ODBC引用的 SQLsever数据库的表格 没法进行修改 或者修改后保存提示 复制到粘贴板
另外引用外部数据的语句和用ACCESS表格的语句一样嘛？请帮忙看下这个保存语句在用外部数据的情况下是否正确， 在运行是总提示rst.Update错误 3146 ODBC调用失败
Private Sub cmd_Save()
Dim rst As DAO.Recordset
If IsNull(Me.员工姓名) Then
MsgBox "请输入员工姓名!", vbCritical, "提示："
Me.员工姓名.SetFocus
Exit Sub
End If
Me.Refresh

If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("dbo_委托单", dbOpenDynaset)

rst.AddNew
rst("员工姓名") = Me.员工姓名
rst.Update

rst.Close
Set rst = Nothing

MsgBox "保存成功!", vbInformation, "提示"
Me.员工姓名 = Null
End If
End Sub

Answer 1

DAO对象用来处理ACCESS的表，由于你这是个链接表

建议使用 ADODB的Recordset对象

追问

能说的详细点吗

追答

首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library
'必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可）
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关

'连接数据库的代码段
Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读）
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨
If Rs.State adStateClosed Then Rs.Close
Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层面积, 欠费明细, 欠费金额 FROM data WHERE 首层面积 is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic
Cnt = Rs.RecordCount

追问

大哥 我有些小白 依然搞不定 能帮我远程操作下嘛 ？

追答