module_修改通讯录.bas

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

Attribute VB_Name = "Module_修改通讯录"
'Dim 通讯录ID As Integer


Sub 修改通讯录()

With 通讯录维护

  '生成sql语句

  通讯录id = .DataGrid1.Columns.Item("通讯录代码")
  
   sqlstring = "update 通讯录维护表 " & _
     "set  分组代码 = " & CStr(CInt(.DataCombo分组.BoundText)) & "," & _
     "姓名 = '" & CStr(.txt姓名.Text) & "'," & _
     "性别代码 = '" & CStr(.DataCombo性别.BoundText) & "'," & _
     "固定电话 = '" & .txt固定电话.Text & "'," & _
     "移动电话 =' " & .txt移动电话.Text & "'," & _
     "email='" & .txtemail.Text & "'," & _
     "qq = '" & .txtqq.Text & "'," & _
     "省市代码 = '" & .DataCombo省市名称.BoundText & "'," & _
     "通讯地址 = '" & .txt通讯地址.Text & "'" & _
     "where 通讯录代码 = " & 通讯录id

   
    '执行修改语句
     DataEnvironment1.Commands("com通讯录维护").CommandText = sqlstring
     DataEnvironment1.Commands("com通讯录维护").Execute
     
    '刷新DataGrid1
    DataEnvironment1.rsCom通讯录查询.Requery
   Set .DataGrid1.DataSource = DataEnvironment1
  
End With

End Sub