VB使用ADO操作Access数据库简单实例

这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access

环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）

数据库：Access数据库，数据库是xs.mbd，内建表为xj

结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。

代码：

Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接
db.Open '打开数据库

strSQL = "select * from xj" 'SQL字符串
RS.Open strSQL, db, 3, 1 '查询数据表
Do While Not RS.EOF '循环输出查询到的结果
Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果
RS.MoveNext '记录下移
Loop
RS.Close '关闭记录集
Set RS = Nothing
End Sub

源代码下载地址：vb_ado_access.zip

VB使用ADO操作Access数据库简单实例

这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access

环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）

数据库：Access数据库，数据库是xs.mbd，内建表为xj

结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。

代码：

Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集Dim strSQL As String 'SQL字符串db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xs.mdb" '数据库连接db.Open '打开数据库strSQL = "select * from xj" 'SQL字符串RS.Open strSQL, db, 3, 1 '查询数据表Do While Not RS.EOF '循环输出查询到的结果Print RS!姓名; RS!性别; RS!班级; RS!出生年月 '在窗口中打印输出结果RS.MoveNext '记录下移LoopRS.Close '关闭记录集Set RS = NothingEnd Sub

源代码下载地址：vb_ado_access.zip

伊朗的电影《一次别离》

Jasmine一个劲儿地要看一部伊朗电影，我比较不情愿。我知道伊朗是位于中东的国家，受宗教影响较重，而且专制不开放。我觉得像这么样的国家怎么可能拍得出好电影出来呢。

当我看完《一次别离》后，我知道我错了。如果把电影中女人的头巾去掉，狭小的法庭换成宽敞的大法庭，忽略掉人们对宗教的神圣崇拜的话，其他的就都是我们所熟悉的了。

看电影之前看过关于它的一篇影评，说它是一部难得的电影，在伊朗严厉的审查制度下的漏网之鱼。但我看完电影也没有感觉到它有哪点批判伊朗政府的地方，反倒觉得伊朗能产生这么好的电影很难得。

说到电影本身，它讲述了一个四口之家。故事从夫妻俩的离婚开始，到请保姆，再到围绕保姆流产而爆发矛盾，之后就是绕来绕去的官司。这是一个再普通不过的家庭的事情，围绕柴米油盐、家庭里短。看起来又是那么真实。

我不喜欢男主角，蛮横又固执，为了自己的利益而撒谎，而且期望孩子为他撒谎。但是他很有孝心，爱他老爸，知道老爸被虐待而大发雷霆，有点傻孝之感。

我同情女主人公，就是那个保姆。爱丈夫，哪怕他好吃懒做欠了一屁股债，她还挺着大肚子给人做工。她爱子女，走到那里都会带些她的女儿，还有那个小书包。她深信宗教，不撒谎，遵信条，不为自己的利益违背教条。

这是我看的第一部伊朗电影。

伊朗电影《一次别离》观后感

Jasmine一个劲儿地要看一部伊朗电影，我比较不情愿。我知道伊朗是位于中东的国家，受宗教影响较重，而且专制不开放。我觉得像这么样的国家怎么可能拍得出好电影出来呢。

当我看完《一次别离》后，我知道我错了。如果把电影中女人的头巾去掉，狭小的法庭换成宽敞的大法庭，忽略掉人们对宗教的神圣崇拜的话，其他的就都是我们所熟悉的了。

看电影之前看过关于它的一篇影评，说它是一部难得的电影，在伊朗严厉的审查制度下的漏网之鱼。但我看完电影也没有感觉到它有哪点批判伊朗政府的地方，反倒觉得伊朗能产生这么好的电影很难得。

说到电影本身，它讲述了一个四口之家。故事从夫妻俩的离婚开始，到请保姆，再到围绕保姆流产而爆发矛盾，之后就是绕来绕去的官司。这是一个再普通不过的家庭的事情，围绕柴米油盐、家庭里短。看起来又是那么真实。

我不喜欢男主角，蛮横又固执，为了自己的利益而撒谎，而且期望孩子为他撒谎。但是他很有孝心，爱他老爸，知道老爸被虐待而大发雷霆，有点傻孝之感。

我同情女主人公，就是那个保姆。爱丈夫，哪怕他好吃懒做欠了一屁股债，她还挺着大肚子给人做工。她爱子女，走到那里都会带些她的女儿，还有那个小书包。她深信宗教，不撒谎，遵信条，不为自己的利益违背教条。

这是我看的第一部伊朗电影。

单位换了新厨子

周一，我们单位食堂换了厨子，说是原来的要转行切猪肉去了。心里挺舍不得，难得从报社每天吃七块钱的猪脚盒饭的状况改善出来，又要面临未知与调整了。

我们几个同事平常为了避免高峰期，中午都会晚些去。听那些吃完回来的同事说很咸很油，开玩笑说去时要带杯水之类。到了饭堂，新厨子见我们去了无动于衷，因为不认识的缘故吧。

几份菜端了出来，都是凉的。一份卤猪蹄，咸的要人命，很肥，猪油已经结冻了，关键皮上还有好多毛。还有一份番茄炒蛋，凉透气了，一人只有一点点。还有一份糖腌的红薯，油油的，超甜，咬一丁点都要齁死了。我的妈呀，简直是在挑战我们的味觉极限。

菜真的没法多吃，那就多吃饭呗，但是饭锅只剩硬硬的锅巴了。因为是第一天，大家都很期待，以为新厨子的饭菜会又好吃又丰盛，所以去了好多人，一人招架不过来，难免有些手忙脚乱。我们等着新厨子正在煮新的，他也顾不上用饭勺，直接把手伸进高压锅抓了一把尝了尝，不知道有没有烫到手。

无奈肚子饿，不管三七二十一赶紧盛饭，结果又去了几个同事，刚煮的饭还是不够分，一人一小勺。 吃的肚子凉凉的，想喝口热汤也没有了，只剩几个大骨头。 又咸又甜又很凉，这顿饭吃的，这厨子可以赶超hillway公司食堂的水平了。

换了厨子又赶上单位内部施工，砸了一上午的墙，中午一点半又开始了，耳边嗡嗡响，睡不着就爬起来了。

单位换了新厨子

周一，我们单位食堂换了厨子，说是原来的要转行切猪肉去了。心里挺舍不得，难得从报社每天吃七块钱的猪脚盒饭的状况改善出来，又要面临未知与调整了。

我们几个同事平常为了避免高峰期，中午都会晚些去。听那些吃完回来的同事说很咸很油，开玩笑说去时要带杯水之类。到了饭堂，新厨子见我们去了无动于衷，因为不认识的缘故吧。

几份菜端了出来，都是凉的。一份卤猪蹄，咸的要人命，很肥，猪油已经结冻了，关键皮上还有好多毛。还有一份番茄炒蛋，凉透气了，一人只有一点点。还有一份糖腌的红薯，油油的，超甜，咬一丁点都要齁死了。我的妈呀，简直是在挑战我们的味觉极限。

菜真的没法多吃，那就多吃饭呗，但是饭锅只剩硬硬的锅巴了。因为是第一天，大家都很期待，以为新厨子的饭菜会又好吃又丰盛，所以去了好多人，一人招架不过来，难免有些手忙脚乱。我们等着新厨子正在煮新的，他也顾不上用饭勺，直接把手伸进高压锅抓了一把尝了尝，不知道有没有烫到手。

无奈肚子饿，不管三七二十一赶紧盛饭，结果又去了几个同事，刚煮的饭还是不够分，一人一小勺。 吃的肚子凉凉的，想喝口热汤也没有了，只剩几个大骨头。 又咸又甜又很凉，这顿饭吃的，这厨子可以赶超hillway公司食堂的水平了。

换了厨子又赶上单位内部施工，砸了一上午的墙，中午一点半又开始了，耳边嗡嗡响，睡不着就爬起来了。

吃肯德基

上大学前没有去过肯德基，也不知道麦当劳。和Jasmine在一起的一天，她对我说，我从来没有吃过肯德基，我们去吃吧。

于是我们俩第一次来到了肯德基店，找了个座位坐下，然后商量着吃些什么。原来服务台的头上就是菜单，我们看来看去，比对价格，最后决定每人买一个汉堡。

服务生问Jasmine要什么，她说两个汉堡。服务生问，还要点其他的吗。她说，不要了。服务生仍没有放弃，你们两个人只要两个汉堡，不喝点饮料。她说，不要。服务生恨恨地结了账。

还有一次也是去肯德基，火车站旁边的一家。Jasmine要了一杯饮料和一个汉堡。服务生很体贴地说，这些不能吃饱吧，再点些其它的吧。抠门的Jasmine显然不会妥协，经过一番交战，她还是没有另买其它，不过回到座位时明显不高兴。

这种强势推销的做法明显让人感到不适，顾客有权决定如何消费。你采用鄙视加不耐烦的态度，只会让人反感。

吃肯德基

上大学前没有去过肯德基，也不知道麦当劳。和Jasmine在一起的一天，她对我说，我从来没有吃过肯德基，我们去吃吧。

于是我们俩第一次来到了肯德基店，找了个座位坐下，然后商量着吃些什么。原来服务台的头上就是菜单，我们看来看去，比对价格，最后决定每人买一个汉堡。

服务生问Jasmine要什么，她说两个汉堡。服务生问，还要点其他的吗。她说，不要了。服务生仍没有放弃，你们两个人只要两个汉堡，不喝点饮料。她说，不要。服务生恨恨地结了账。

还有一次也是去肯德基，火车站旁边的一家。Jasmine要了一杯饮料和一个汉堡。服务生很体贴地说，这些不能吃饱吧，再点些其它的吧。抠门的Jasmine显然不会妥协，经过一番交战，她还是没有另买其它，不过回到座位时明显不高兴。

这种强势推销的做法明显让人感到不适，顾客有权决定如何消费。你采用鄙视加不耐烦的态度，只会让人反感。

既是女朋友，又是男朋友

当看到今年金马奖的获奖名单时才注意到《女朋友 男朋友》这部电影，因为它的最佳女主角的得主是Jasmine最最喜爱的台湾女演员桂纶镁。

我们一开始把它当作台湾小清新电影来看，以为它讲述的依旧是青春版的爱情。等电影看完，发现我们错了，愣是没有看懂。我怀疑是因为看了删节的版本，错失了一些情节，所以才造成理解上的困难。之后确认所看到的确实是部完整的电影。

通过网络上的信息知道，这是一部深层次的情感剧，不再是小清新的样子了。它参杂了同性、社会、历史等多方面的因素，与我们的认知有不少的差距。

电影本身我觉得男一号饰演的同性角色并不是太到位，以至于电影结束时我都没看出来他的这一性取向。我以为他为了兄弟情意让出心爱的女人，意志消沉后借一男人浇愁，内心深处还是想着那个女人。我太单纯了！

桂纶镁演的这个女人，主动执着，固执又无可奈何。她完全可以选择其他的生活方式，却死死地夹杂在两个男人之间（这句话让我不怀好意地想起了“嬲”字）。

这是一部说不上来好，但看完以后也没觉得浪费时间的电影。

P.S：之前写了一稿，莫名地丢失了，重新来过，却写的和那个差别巨大啊，这可能是由于不同的心境吧。

既是女朋友，又是男朋友——《女朋友 男朋友》观后感

当看到今年金马奖的获奖名单时才注意到《女朋友 男朋友》这部电影，因为它的最佳女主角的得主是Jasmine最最喜爱的台湾女演员桂纶镁。

我们一开始把它当作台湾小清新电影来看，以为它讲述的依旧是青春版的爱情。等电影看完，发现我们错了，愣是没有看懂。我怀疑是因为看了删节的版本，错失了一些情节，所以才造成理解上的困难。之后确认所看到的确实是部完整的电影。

通过网络上的信息知道，这是一部深层次的情感剧，不再是小清新的样子了。它参杂了同性、社会、历史等多方面的因素，与我们的认知有不少的差距。

电影本身我觉得男一号饰演的同性角色并不是太到位，以至于电影结束时我都没看出来他的这一性取向。我以为他为了兄弟情意让出心爱的女人，意志消沉后借一男人浇愁，内心深处还是想着那个女人。我太单纯了！

桂纶镁演的这个女人，主动执着，固执又无可奈何。她完全可以选择其他的生活方式，却死死地夹杂在两个男人之间（这句话让我不怀好意地想起了“嬲”字）。

这是一部说不上来好，但看完以后也没觉得浪费时间的电影。

P.S：之前写了一稿，莫名地丢失了，重新来过，却写的和那个差别巨大啊，这可能是由于不同的心境吧。