与楼小烟共鸣

原来是如此简单的代码，不知为什么这么多人提这个问题。

Private Sub GetAllTable()
Dim Cn As New ADODB.Connection
Dim Rs_Table As New ADODB.Recordset
Dim Rs_Colums As New ADODB.Recordset

    With Cn   '定义连接
        .CursorLocation = adUseClient
        .Provider = "sqloledb"
        .Properties("Data Source").Value = "LIHG"
        .Properties("Initial Catalog").Value = "NorthWind"
        .Properties("User ID") = "sa"
        .Properties("Password") = "sa"
        .Properties("prompt") = adPromptNever
        .ConnectionTimeout = 15
        .Open
       
        If .State = adStateOpen Then
            Rs_Table.CursorLocation = adUseClient   '得到所有表名
            Rs_Table.Open "SELECT name From sysobjects WHERE xtype = 'u'", Cn, adOpenDynamic, adLockReadOnly
            Rs_Table.MoveFirst
            Do While Not Rs_Table.EOF
                Debug.Print Rs_Table.Fields("name")
                Rs_Colums.CursorLocation = adUseClient
                Rs_Colums.Open "select top 1 * from [" & Rs_Table.Fields("name") & "]", Cn, adOpenStatic, adLockReadOnly
                For I = 0 To Rs_Colums.Fields.Count - 1   ' 循环所有列
                    Debug.Print Rs_Colums.Fields(I).Name   '字段名
                    Debug.Print FieldType(Rs_Colums.Fields(I).Type)  '字段类型
                    Debug.Print Rs_Colums.Fields(I).DefinedSize  '宽度
                Next
                Rs_Colums.Close
                Rs_Table.MoveNext
            Loop
            Rs_Table.Close
            Set Rs_Colums = Nothing
            Set Rs_Table = Nothing
       
        Else
            MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
            End
        End If
    End With
End Sub

'*********************************************************
'* 名称：FieldType
'* 功能：返回字段类型
'* 用法：FieldType(nType as integer)
'*********************************************************
 Function FieldType(nType As Integer) As String
    Select Case nType
        Case 128
            FieldType = "BINARY"
        Case 11
            FieldType = "BIT"
        Case 129
            FieldType = "CHAR"
        Case 135
            FieldType = "DATETIME"
        Case 131
            FieldType = "DECIMAL"
        Case 5
            FieldType = "FLOAT"
        Case 205
            FieldType = "IMAGE"
        Case 3
            FieldType = "INT"
        Case 6
            FieldType = "MONEY"
        Case 130
            FieldType = "NCHAR"
        Case 203
            FieldType = "NTEXT"
        Case 131
            FieldType = "NUMERIC"
        Case 202
            FieldType = "NVARCHAR"
        Case 4
            FieldType = "REAL"
        Case 135
            FieldType = "SMALLDATETIME"
        Case 2
            FieldType = "SMALLMONEY"
        Case 6
            FieldType = "TEXT"
        Case 201
            FieldType = "TIMESTAMP"
        Case 128
            FieldType = "TINYINT"
        Case 17
            FieldType = "UNIQUEIDENTIFIER"
        Case 72
            FieldType = "VARBINARY"
        Case 204
            FieldType = "VARCHAR"
        Case 200
            FieldType = ""
    End Select
End Function

    每次上课前,枫都会露出阳光的笑脸和几个要好的同学打招呼后,径直走到习惯的座位上坐下来,拿出纸和笔.开始他的大作.
那天早晨,枫偶然从同学的一本杂志上看到了一幅钢笔画,一幅江南水巷,工笔很能给人带来意境和回味.枫觉得自己也能画.于是自己也就学着画起来.那天,枫凭自己的想像,画了一幅竹子,整整用了一下午才感到满意,题上落款.抬起头来,窗户上落满了夕阳的余辉.很柔和,很惬意.
枫这时才发现,宽敞的教室,除了他只剩下了一个人,他前面的芸.他感到很奇怪为什么这么晚了她还没走.可是,枫想问一下她,但一想,芸好像不爱和别人说话.一直给人很傲慢的感觉.枫最讨厌这种人了.自入学以来,不但未和她说过话,连正脸都未仔细看过.只知道她的背影很漂亮.相信走到大街上碰头也不会认识吧..见她还在那埋头看书,就没想打扰她,收拾了一下纸准备回宿舍.她可能听到了后面的响动,突然把头抬起来,转过身,看着我.手里拿着几张纸.睁着大大的眼睛,嘴角含着些笑意,善意的.我看到那些纸是我的竹子的草稿.可能是我随意扔的,扔到了她的座位上."你画得挺好的,我挺喜欢的,扔了怪可惜的.能送我吗?",芸好像很吃力地,小心翼翼地对枫说.

    芸长得很清秀,很恬静,白色的上衣,蓝色的百褶裙,黑色的皮鞋,很学生的样子,夕阳的余辉映在她的脸上,很纯真.

    枫从未有机会这样正面看她,也许是画得有些蒙吧,也许是芸的样子太动人了吧,枫站在那里,有些不知所措,呆住了,竟然说不出话来.脸都红了.大约一分钟吧,枫和芸都没有说话,最后还是芸率先打破了僵局."对不起,我只是很喜欢竹子,既然...嗯,还给你吧",芸低头把纸放到了桌上.枫这时才回过神来,慌忙把最后画的那张用双手拿起来,"送给你,嘿,就是上面写了我的名字".枫说."那..,谢谢你.明天见."芸低着头,把画纸和书抱在胸前,轻盈地走出了教室.

    枫像逃兵一样,慌乱地把笔和书一古脑的装到了书包里,跑回了家.没有回宿舍. 和家人一起吃完了晚饭,枫晕乎乎地竟然晃到了姐姐的房间,一头扎在被子里,傻笑.嘿嘿.枫想:我这是怎么了,怎么有种说不出的,就像吃了蜂蜜似的,这是不是我的那个....呵呵..枫正在那胡思乱想呢,屁股上挨了一脚,"快起来,别把我这搞乱了,脏兮兮的,回你屋去."是姐姐.哈哈.枫好像没有听到似的,反而仰面朝天,抱着头,看着房顶,一脸坏笑,就像苗侨伟扮演的杨康似的.姐姐没理他,去整理衣服.枫躺了一会,坐起来,把刚才的事告诉了姐姐.姐姐听了没有多大的反应,只是说:"你这木头桩子,也要发芽了."就走出了房间.枫好没兴趣,又躺下了.可是.一会儿,姐姐又突然把头伸进来,"明天你带我见见她,看看她究竟什么样子把你迷住了".我张大了嘴,还没等回话,她的头又缩回去了.姐姐是北大医学院的硕士生,人长得也不难看,所以老以为她从内到外比别人棒,尤其对女孩子,没有几个看上眼的.枫最看不惯她这一点了.管她呢.

     第二天,枫迟到了,来到教室,芸静静地坐在以前的位置上,低着头好像在写着什么.枫猫着腰,趁着讲师没注意,溜到了芸后的座位上.好像芸没看到他.他以为她要和他打招呼呢.枫掏笔时才发现,他的龙笔不见了.枫想了半天,可能是昨天没装好,挤公车时掉了.唉,丢了就算了吧,有时间再买一支.不过怪可惜的.那支笔是大哥从奥地利给他带来的.不过已经坏了,不好用了.丢了正好..前面传过来一张纸条,枫拆开一看,是芸的,"谢谢你的画,舍友都说画得像真的似的.我们把它贴在了墙上,你不介意吧".枫抄起笔来随意地回复,"区区练习,不至于.我给你画张更好的.不过,我的笔丢了".就这么简单的一句话,枫没料到芸却记了三年.

    课间休息时,枫和芸渐渐地熟悉起来.不过,他们之间谈话的方式很特殊,脸朝着脚下说,呵,可能是双方都不好意思吧.虽然只是些课程之内的谈话.

    毕竟是同学,中午姐姐邀请芸一块吃饭,芸答应了.枫认为姐姐神经有问题.枫的什么事姐姐都要掺和.

    从此,三个人经常一起玩,听演唱会,看电影,坐在大街上装傻.嘿嘿.看来两个女孩互相都很喜欢对方.

    枫看了"天若有情",背着妈妈买了辆摩托车,放在同学家里,星期天,带着芸去郊外兜风.因为芸的家不在北京,枫也不喜欢回家,他要陪她,要让她感觉到她不孤独.

    芸说:和你在一起很快乐.枫说:我也是.因为枫喜欢芸穿白色的上衣,蓝色的百褶裙,黑色的皮鞋,很纯真.芸的内心也和她的外表,像个小孩子.芸喜欢看枫笑的样子.

     在学校的日子,一起走过的日子,是难忘的.每个人都这样.
     当临近毕业时,他们之间好像是相爱了.双方的家长也互相认识了.都很满意.但要枫和芸保持一定的距离,嘱咐他们应该以事业为重.他俩没觉得什么,本来就是那么想的.

     毕业那年,正赶上大陆举行规模盛大的军事演习,以振国威,军威.我们都有义务参加.为了报效国家,都是中华民族的热血青年,枫和芸不约而同的放弃了找工作的机会.和班上的大部分同学和老师赶赴了沿海.来到了当年他父亲战斗过的地方.
    工作(机密)紧张而有序地进行.

    半个月后,同学们圆满地完成了学校和部队交给的任务.受到了首长的表扬.首长是父亲当年的战友,父亲当年任电报员,首长是舰长,一起抓远台湾国民党反共特务.父亲在枫来时已经和首长通了电话.
    演习结束后,两个人去海边合影留念.两个人坐在礁石上.芸拿出了一支钢笔,递给枫,是那支"龙笔".芸说是她偶然间在教室拾到的.当时想到是枫的,后来修好后一直没有机会还给枫.她一直给他保存了三年.现在还给你.枫很意外.他没想到她竟然这么心细.枫正想问芸为什么要现在还给他.营房里传来了号声,他俩一路小跑,跑回了各自的营房.

    枫晚上一直在想为什么现在还给他笔的原因,却怎么也想不出来,也许,明天会有答案吧.
    事故发生在夜里,为了抢救国家财产,保护群众的生命安全.芸和他们其中的两个同学,和他们敬爱的李老师,他们,都像美丽的海燕一样飞走了,向大海的深处,碧蓝的天空,......

     枫没来得及听到还笔的理由.
     枫经常独自骑车到他和芸生前常来的郊外,然后坐在那,幻想着天空中的小鸟就是芸,它们叫着,好像在对他说:不要难过,我为国捐躯,无悔无憾,你应该为我而自豪,你要很好的生活下去.我在天空,永远会看着你.枫总是忍不住他的泪水.

     枫离开了北京,不顾家人的反对,又回到了小时候生活的城市,和姥姥住在一起,身边带的,除了那支钢笔,还有一枚胸针,妈妈送给芸的,还没来得及给她.

    六年了,枫永远也不会忘记: 白色的上衣,蓝色的百褶裙,黑色的皮鞋,纯真的笑容，和孟庭苇的“无声的雨”......

你能感觉到一种气质,让你不敢靠她太近,因为你根本就没有那种靠近她的资格,连仅存的一丝勇气被融化掉了.
幸运,我每次都坐在她的后面.

她从不和我说话,至少我是这样感觉的.事实上感觉,她越是不和我说话,越是增强我的强烈的探索欲望.欲望是有的,但却没有去行动的勇气.事实上,默默地在她身后,去欣赏着她的一举一动,去品味着她的衣着,已经是我的最大的享受.她喜欢孟庭苇,或许,和她的性格十分相像吧.有两个字来描述好最合适不过了:安静.

晚自习结束,我们躲在宿舍里无聊.我被分配去楼下小卖部买冰棍.女生楼就在小卖部旁边.当我提着一兜冰棍出来时,她叫住了我.我内心狂喜,手有些发抖,激动,说不出话来.她对我说,班上的美美想和我交朋友,问我的意见.我愕然我完全蒙了,简直不敢相信,这些话能从她的口里发出.在我的印象里,她每天只是看书,写日记,几乎不和男同学说话,很纯真的那种女生.
她看起来也有些不自然,简单地叫我去和美美谈一下,就跑回宿舍了.我无语.呆在那里,好长时间,低头看看,手里的冰棍在滴着水.
后来她告诉我,那时,她一点都不懂得恋爱是怎么回事.对男生,包括对我,一点感觉都没有.

我永远也忘不了:两条梳得很整齐的小辫,白色的衬衫,深蓝色的连衣裙,黑色的袜子,黑色的皮鞋,浅浅的微笑.我一直相信,总有一天,我会再次看到她的样子,始终不渝.


Aaron

寂寞的伤口，深深地刻在心头，
走在梦想的边缘，却只不过是一个过客，
带不走的爱情，和，留不住的朋友，是夜梦醒以后，尽未拥有。
想问那些拼命的水手，过河的卒子，是否可以换条路走？

瞬息看尽花似海，如雪落，
转眼间，又风起云动，虎啸龙吟，
小桥仍在，稚竹依青，重回故里，伊人何处？

－－－2003.10.30　　北航

总会在我身旁

------烟小楼

    左岸小憩，这个名字初看起来很吸引人，与众不同的名字。

    游荡在聊天室里，随便地聊几句，也不知所云。聊天，好像成了网络的代名词，当初美国军方把它推向民用时，可能不会想到能发展到这样，也许，这就是中国网络的特色吧。我也承认，无聊时也上网聊天，当然，这时也是无聊的人，也不再标榜自己乃有志青年。可惜的是，现在的聊天室，不再是几年前的聊天室了，聊天的话题，参与聊天的人也大不尽然，也搞不清大家都在想什么，都想做什么。很难找得到真正的聊友，来谈谈理想，谈谈现实。

    有时侯，一个人的名称，基本上可以露显出他的性格取向。看到左岸小憩，突然有些安静、和谐的感觉。随便聊上几句，有一些相见恨晚？莫名的感觉油然而生。

    太平淡的生活，会消磨人的意志。就像是一潭清水，久了，也会青苔死水。那天下午，我走出办公室，去和她面对面。给我的印象是干练的女子，很职业化。我并不想去和那些外表很冷酷、内心很浮的女人来往，觉得她们很累，我也会很累。她可能长我两岁吧，衣着很得体，谈话很直接，有些姐姐的样子。在女人面前一直很被动的我，不知怎么回事，在她面前话说得很多，可能那次谈话，更多是与工作相关。我承认，从她那里学到了一些很有价值的东西。也许，因为我太多话了，她可能感觉我这个人很浮华，随她怎么想吧，我只做我自己。

    后来，我们没有再见过面。

    在以后的日子里，每当听到这首歌，就会想起她来。“前路依然很模糊 ，要挣脱许多束缚，每当我需要依靠你，你一定会在这里..你总会在我身旁...”，张敬轩这个小男生，也能做出这样的作品来着实不易。很晚了，放下手上的书，揭开一听啤酒，听着这首歌，回想着一个人，猜想着她在做什么，很惬意。习惯性的点燃一支烟，放到烟缸里，看着它慢慢地燃烧，却懒得碰它。

    短暂的接触，也会永生难忘。人的一生又有多少次这样的机会和经历呢？而无论何时何地，我都会感觉她会在我身旁，鼓励我，安慰我。我这算不算一种恋姐情绪呢？

    楼二公子的姐姐一定不是平凡的， 他会一直会站在角落里，默默地祝福，默默地离开......