|
上一期我们尝试了一个编程的小例子，旨在希望能够给大家带来最基本的帮助和启发。 今天我们要使用VB程序来逆天操纵Access数据库，让还在使用Excel的各路大神汗颜，话不多说，直入主题。 跟昨天一样，我们先来创建一个空的VB程序，当然也可以用昨天做好现成的，只不过我们在旁边再加一个'按钮控件'而已，我们按照昨天的设置，对今天新加的这个按钮显示的内容'Caption'改成'逆天操纵Access'，和背景色'BackColor'改成'粉色'，以及字体改成'楷体'和字体大小改成'小四'号，完成了相应的设置之后，就是下面这个样子：  下面再加一个'按钮控件' 可以看到这个窗体多了一个按钮，就是'逆天操纵Access'，来吧，双击它进入到编写代码窗口:  进入到编写代码窗口 可以看到，上面的代码就是我们昨天编写的存取Excel文件数据用的代码，下面这个模块是空的： Private Sub Command2_Click() End Sub 我们需要编写程序代码，前半部分是固定模式的代码： Dim conn As New ADODB.Connection【定义一个数据库连接】 Dim strConn As String【定义一个字符串变量存放数据库所在路径】 前半部分一切搞定，再来看后半部分： Set conn = Nothing【工作完成后释放数据库连接】 MsgBox '您的程序运行完毕'【弹出消息框示意工作已经完成】  固定模式的代码准备好 好啦，中间开始写我们要实现具体工作的代码吧，今天我们先来个简单的热热身，日后再逐渐加深难度。 我们现在就对下面这个学生成绩表，求三门成绩的总分放在新的字段中：  用程序自动加字段求总分 来，开工，写代码： 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【关闭数据库】 好了，写完了，放在程序里面就是这样的：  程序一气呵成 运行之后，就是这样了：  点击下面的按钮 点击下面我们新增加的这个按钮，就是刚刚我们编写代码的控件，程序就开始运行啦：  程序瞬间完成，并且看到提示信息 可以看到，我们刚刚编写的程序瞬间运行完成，点击确定，来看看我们的数据库里面有什么变化吧：  打开数据库，发现完全按照程序来走的 总分算出来了，并且还在我们的数据库里面增加了一个字段，就是我们在程序里面已经添加的，大功告成啦。 其实，这是最简单的，只有更复杂的工作才会动用我们去编程序，所以先把简单的学会，复杂的自然而然慢慢就学会啦，大家别着急，一步一步来，脚踏实地的来干工作吧。 小伙伴们，你们学会了吗？ |
|
|
