module_删除通讯录.bas

VB开发的一款简易个人通讯录

Attribute VB_Name = "Module_删除通讯录"



Sub 删除通讯录()
 With 通讯录维护
    '生成sql语句
   通讯录id = .DataGrid1.Columns.Item("通讯录代码")
   sqlstring = "delete from 通讯录维护表 " & _
              "where 通讯录代码 = " & 通讯录id

    '执行删除语句
     DataEnvironment1.Commands("Com通讯录维护").CommandText = sqlstring
     DataEnvironment1.Commands("Com通讯录维护").Execute

   
    DataEnvironment1.rsCom通讯录查询.Requery
    Set .DataGrid1.DataSource = DataEnvironment1
    
  End With
End Sub