?? module_插入通訊錄.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -