荆门工商局举报网站:VB的问题
来源:百度文库 编辑:神马品牌网 时间:2024/08/31 11:17:48
我写了这样一个程序,请问还要加什么才可以将List的内容存储起来,是不是需要用到数据库,另外DATA控件要怎样用
Private Sub Close_Click()
Unload Me
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\IEEE.mdb"
End Sub
Private Sub Save_Click()
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
Data1.Recordset.AddNew
End Sub
应用程序的对象
文本框 Test1
ListBox List1
按钮1 Save
按钮2 Close
DATA DATA1
Private Sub Close_Click()
Unload Me
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\IEEE.mdb"
End Sub
Private Sub Save_Click()
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
Data1.Recordset.AddNew
End Sub
应用程序的对象
文本框 Test1
ListBox List1
按钮1 Save
按钮2 Close
DATA DATA1