ADO 事件有没Delete例子。

luhao

ADO的Addnew事例子就有

有没Delete的例子?

tz-chf

帮助里有

luhao

只有VBA函数，没有数据库例子。且很多无关的函数，看
不太明的 2# tz-chf

tz-chf

你举个例子

luhao

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

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

luhao

我需要的是DELETE       6# tz-chf

sgrshh29

我需要的是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

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

Grant

一次删除一条记录,不建议使用