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