Office中国论坛/Access中国论坛

标题: ADO 事件有没Delete例子。 [打印本页]

作者: luhao 时间: 2010-1-8 22:31
标题: ADO 事件有没Delete例子。
ADO的Addnew事例子就有

有没Delete的例子?

作者: tz-chf 时间: 2010-1-8 23:21
帮助里有

作者: luhao 时间: 2010-1-10 21:31
只有VBA函数，没有数据库例子。且很多无关的函数，看
不太明的 2# tz-chf

作者: tz-chf 时间: 2010-1-10 21:47
你举个例子

作者: luhao 时间: 2010-1-10 21:52
4# tz-chf

Dim i As Integer
Dim rst As New ADODB.Recordset
rst.Open "BASEMPS排产计划订单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To ctGrid1.ItemCount - 1
If ctGrid1.ItemSelect(i) = True Then
rst.AddNew
' rst("流水单号ID") = Forms![frmERPlib]![Child1]![流水单号]
rst("流水单号ID") = form_.流水单号
rst("销售订单") = DLookup("销售订单", "QUERY生产补料档案", "补料NO = '" & gridtxt & "'")
rst("模具编码") = "99999缓冲模具"
rst("物料编码") = "9999999999"
rst("物料名称") = "缓冲物料名称"
rst("生产订单数量") = "1"
rst("单重") = DLookup("应领数量", "QUERY生产补料档案", "补料NO = '" & gridtxt & "'")
rst("重量") = DLookup("应领数量", "QUERY生产补料档案", "补料NO = '" & gridtxt & "'")
rst("物料规格") = "缓冲物料规格"
' rst("自动编号ID") = ctGrid1.CellText(i, 7)

ctGrid1.ItemSelect(i) = False
End If
Next
DoCmd.close
rst.Update

作者: tz-chf 时间: 2010-1-10 22:06
本帖最后由 tz-chf 于 2010-1-10 22:10 编辑

这是addnew。delete呢
而且自动编号还能写入？rst.update也应该写上面一点吧。

作者: luhao 时间: 2010-1-14 18:28
我需要的是DELETE 6# tz-chf

作者: sgrshh29 时间: 2010-1-15 12:27
本帖最后由 sgrshh29 于 2010-1-15 12:29 编辑

我需要的是DELETE 6# tz-chf
luhao 发表于 2010-1-14 18:28

Dim rst As New ADODB.Recordset
rst.Open "select * from BASEMPS排产计划订单 where id=2", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
rst.Delete

作者: aslxt 时间: 2010-1-15 12:34
试一试
Dim rst As New ADODB.Recordset
rst.Open "Delete * from BASEMPS排产计划订单 where id=2", CurrentProject.Connection, adOpenDynamic, adLockPessimistic

作者: Grant 时间: 2010-1-20 00:14
一次删除一条记录,不建议使用

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)