Question

在VB中如何实现软件的自动更新

如何在一个窗体中添加一个按钮，使程序能自动从网上更新版本。求亲们能写下详细的方法及代码。还有我提供的更新内容又该放在哪里呢？asp空间可以吗

Answer 1

ADO控件与数据库连接代码如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() '插入数据： If rs.State <> adStateClosed Then '检查记录集状态 rs.Close End If rs.Open "insert into T_user(name,age) values('" & txtname.Text & "'," & txtage & ")", conn, adOpenDynamic, adLockBatchOptimistic If rs.State <> adStateClosed Then rs.Close End If '更新DataGrid1数据 rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient '游标放在客户端 rs.CursorLocation = adUseClient rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close '释放 conn.Close Set rs = Nothing Set conn = Nothing End Sub

Answer 2

程序设计的最终结果是软件。