服部全藏喜欢猿飞:用vb写通信簿

来源：百度文库 编辑：中科新闻网 时间：2024/05/04 14:13:18
问一下添加联系人中日期的添加为什么最后显示的是全是零,我把代码给大家看下!
Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "请输入姓名！"
Else

Form1.Adodc1.Recordset.AddNew
Form1.Adodc1.Recordset(1).Value = Text1.Text
Form1.Adodc1.Recordset(2).Value = Combo1.Text
Form1.Adodc1.Recordset(3).Value = Text2.Text
Form1.Adodc1.Recordset(4).Value = Text3.Text
Form1.Adodc1.Recordset(5).Value = Data

Form1.Adodc1.Recordset.Update
MsgBox "联系人添加成功！"

End If

End Sub
用vb写通信簿 用VB如何写局域网通信模块？ 求救！！ VB ! 通信问题！！！ 用VB如何实现局域网内的实时通信 vb串口通信怎么调试? 用哪个部件? 用VB怎样写呀？ 《求教》vb的通信编程 vb如何与vc通信 用C++builder如何写串口通信程序 火红怎么用通信进化?给个步骤 写````