module_插入通讯录.bas

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

Attribute VB_Name = "Module_插入通讯录"
'Public sqlString As String
'Dim sqlstring As String

Sub 插入通讯录()
With 通讯录维护

'生成sql语句
   sqlstring = "insert into 通讯录维护表 ( 帐号 , 分组代码 , 姓名 , 性别代码 , 固定电话 , 移动电话 , email , qq , 省市代码 , 通讯地址 ) values(  '" & _
        登陆帐号 & "', " & _
       CStr(CInt(.DataCombo分组.BoundText)) & ",'" & _
      CStr(.txt姓名.Text) & "'," & _
       CStr(.DataCombo性别.BoundText) & ",'" & _
      .txt固定电话.Text & "','" & _
      .txt移动电话.Text & "','" & _
      .txtemail.Text & "',' " & _
      .txtqq.Text & "','" & _
      .DataCombo省市名称.BoundText & "','" & _
      .txt通讯地址.Text & " ') "

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