写代码:
Dim sql1, sql2 As String//【定义两个字符串,用来装查询语句】
strConn = "Provider=microsoft.ace.oledb.12.0;Data Source=F:\1文章\个人数据库.accdb"//【读取数据库所在路径】
sql1 = "alter table xscj add column 总分数 float"//【增加一个“总分数”字段的语句】
sql2 = "update xscj set 总分数=yy yw sx"//【算三门总分的语句】
conn.Open strConn//【打开数据库】
conn.Execute (sql1)//【执行语句1】
conn.Execute (sql2)//【执行语句2】
conn.Close//【关闭数据库】
好了,写完了,放在程序里面就是这样的:
运行之后,就是这样了:
点击下面新增加的这个按钮,就是刚刚我们编写代码的控件,程序就开始运行:
可以看到,我们刚刚编写的程序瞬间运行完成,点击确定,来看看我们的数据库里面有什么变化吧: