vb編程，數據庫“圖書管理”中存在“讀者表”，表結構為“編號，姓名

Dim?Rs?As?New?ADODB.Recordset

Private?Sub?Command1_Click()

If?Text1.Text?=?""?Then?'控制增加值不能為空

MsgBox?"請正確輸入年齡",?48,?"提示信息"

Else

Con.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\student.mdb;Persist?Security?Info=False"

Con.Open

Set?Rs?=?Con.Execute("UPDATE?學生基本信息?SET?年齡=?年齡+"?+?Text1.Text?+?"")'修改表語句

Con.Close

End?If

Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\student.mdb;Persist?Security?Info=False"?'刷新ADO控件

Adodc1.RecordSource?=?"select?*?from?學生基本信息"

Adodc1.Refresh

Set?DataGrid1.DataSource?=?Adodc1

End?Sub

Private?Sub?Form_Load()

Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\student.mdb;Persist?Security?Info=False"?'初始化ADO控件

Adodc1.RecordSource?=?"select?*?from?學生基本信息"

Adodc1.Refresh

Set?DataGrid1.DataSource?=?Adodc1

End?Sub