vb数据库实训总结

[数控实训总结]时间过的真快转眼间我期望已久的实训周已经结束。经过两周的实训练习让我学到了许多知识回头想想实训这几天我确实是有很大收获的。在老师的耐心指导和鼓励下，圆满完成了实习...+阅读

在VB中压缩ACCESS数据库如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压缩不会影响到数据库对象（例如表或视图），因为它们是存储在Microsoft SQL Server数据库中而不是在Access项目本身中。同样，这样的压缩也不会影响到Access项目中的自动编号。在Access数据库中，如果已经从表的末尾删除了记录，压缩该数据库是就会重新设置自动编号值。

添加的下一个记录的自动编号值将会比表中没有删除的最后记录的自动编号值大一。下面说明如何在VB中用一个CompactJetDatabase过程实现对Access数据库文件的压缩处理，在这个过程中有一个可选参数，就是在压缩前你是否需要把原有的数据库文件备份到临时目录（True或False）。我用此办法使21.6MB的数据库压缩到仅仅300KB。 '这些代码可放在模块中，在其他窗体也使用 Public Declare Function GetTempPath Lib ＂kernel32＂ Alias _ ＂GetTempPathA＂ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Const MAX_PATH = 260 Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True) On Error GoTo CompactErr Dim strBackupFile As String Dim strTempFile As String '检查数据库文件是否存在 If Len(Dir(Location)) Then '如果需要备份就执行备份 If BackupOriginal = True Then strBackupFile = GetTemporaryPath & ＂backup.mdb＂ If Len(Dir(strBackupFile)) Then Kill strBackupFile FileCopy Location, strBackupFile End If '创建临时文件名 strTempFile = GetTemporaryPath & ＂temp.mdb＂ If Len(Dir(strTempFile)) Then Kill strTempFile '通过DBEngine压缩数据库文件 DBEngine.CompactDatabase Location, strTempFile '删除原来的数据库文件 Kill Location '拷贝刚刚压缩过临时数据库文件至原来位置 FileCopy strTempFile, Location '删除临时文件 Kill strTempFile Else End If CompactErr: Exit Sub End Sub Public Function GetTemporaryPath() Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetTempPath(MAX_PATH, strFolder) If lngResult 0 Then GetTemporaryPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1) Else GetTemporaryPath = ＂＂ End If

求一份计算机实训报告

交换机/路由器及其配置实训报告班级：姓名：学号：指导教师：

1、控制访问列表：实验用三台路由器、两台交换机和几台主机组成一个基本的控制访问列表，通过中间路由器C的一个端口的设置，控制每台主机通过它的权限。实验连接图如下：下图中，交换机A的F0/1口是一个干线，所有的vlan都可以通过，先进入端口配置模式，进入F0/1端口。命令行为：switch(config-if)#int f0/1 switch(config-if)#switchport mode trunk switch(config-if)#switchport trunk allowed vlan all switch(config-if)#switchport trunk encap dot1q switch(config-if)#end 当配置信息栏出现：SWAf1=trunk时，f1口干线设置完成。下图为控制访问列表的配置信息：实验中干线的设置是一个重要的部分，配置完交换机后，三个路由器的每个连接的端口都进行IP地址的配置，并且每两个相连的端口的IP地址必须的在同一个网段，为了实现台主机，每台路由器都能够Ping通，因此的给每个路由器的加一个动态路由，使每个路由器和主机都能相通，动态路由的命令行为：RouterA(config)#ip routing RouterA(config)#router rip RouterA(config-router)#network 192.168.0.0 RouterA(config-router)#end 当配置信息栏出现：ROA RIP: yes ROA ip routing: yes network=192.168.0.0 255.255.255.0时，说明动态路由打开，配置完成。然后进行Ping测试，当配置的每台主机和每个端口都同后，就可以进行控制防问列表的加入了，我们通过RouterC的一个端口设置控制可以访问的ip地址，设置s0/0口当主机A的ip地址通过时，数据可以通过，当其他的的主机要通过这个端口访问其他主机时就过滤掉。配置命令为：在ROC的s0/0写一个输入的访问控制列表：RouterC(config)#access-list 1 permit 192.168.1.2 0.0.0.0 设置访问列表1主机192.168.1.2可以通过。RouterC(config)#access-list 1 deny any 访问列表1可以访问任一个 RouterC(config)#int s0/0 RouterC(config-if)#ip access-group 1 in s0/0口的ip控制列表1进入 RouterC(config-if)#end RouterC#sh access-list 1 当进行ping命令时，由主机A可以通任一台主机，实验中主机C和D不能ping通主机A，因为他们的数据被access-list 1禁止。主机B能够ping通主机A，因为主机B 不经过access-list 1。而主机E和F 虽然是和主机A在一个往段，但是access-list 1只允许主机A的ip地址通过，所以也ping不通主机C和D, access-list 1不允许。主机A可以控制所有的主机。

2、静态路由：实验是由两台路由器和三台主机组成，两台路由器分别配置静态路由，信息配置如右图。主机A要ping通主机B和C，要在两个路由器上都配置静态路由，设置完成后通过命令查询静态路由的情况。在路由器B上设置静态路由，主机B通过通过S0/0口将数据进行转发，配置命令为：ROB(config)#ip route 192.168.1.0 255.255.255.0 192.168.2.1 ROB(config)#ip routing 同样，在路由器A上设置静态路由，主机A通过通过S0/0口将数据进行转发，配置命令为：ROA(config)#ip route 192.168.3.0 255.255.255.0 192.168.2.2 ROA(config)#ip routing ROA(config)#show ip routing 结果如下：结果中的s 192.168.3.0 [1/1] via 192.168.2.2 serial0/0 显示的是他静态路由的网段和转发数据的端口。另一个的也同理。这样，主机A就可以ping和主机B在同一个网段的主机，主机B就可以ping和主机A在同一个网段的主机。

3、动态路由：动态路由实验是由三个路由器和两台主机组成，实验目的是要主机A和主机B能够通过路由器进行不同网段的ping通。Ip地址如左图所示。在实验中，三台路由器内部要进行动态路由的分配，配置信息如：RouterA(config)#ip routing RouterA(config)#router rip RouterA(config-router)#network 192.168.0.0 RouterA(config-router)#end 上部命令中，ip routing为启动路由转发，router rip为启动RIP路由协议，network 192.168.0.0是设置发布的路由，同样要在每一个路由器中都要设置这样的动态路由，上图右图中为动态路由的配置信息。动态路由的注意事项：三个路由器都要设置动态路由。

4、单臂路由：单臂路由实验是由一台路由器和一台交换机和两台主机组成，左边为实验的原理连接图，右边为实验的配置信息。实验要求是两台主机分别在两个不同的vlan中和不同的网段中，f0/0口设置为干线，路由器的需配置两个ip及网关，通过路由器端口的转发，两个不同vlan的主机可以互相的ping通。实验过程如下：交换机划分van的配置命令为：switch#vlan database switch(vlan)#vlan 2 switch(vlan)#vlan 3 switch(vlan)#exit switch#show vlan switch#conf t switch(config)#int f0/6 switch(config-if)#switchport access vlan 2 switch(config-if)#int f0/7 switch(config-if)#switchport access vlan 2 其中vlan database为vlan的划分，switchport access vlan 2为将交换机的端口加入到vlan2中，其于的默认在vlan1中。下面为将f0/1口设置干线，命令为：switch(config-if)#int f0/1 switch(config-if)#switchport mode trunk switch(config-if)#switchport trunk allowed vlan all switch(config-if)#switchport trunk encap dot1q switch(config-if)#end 其中switchport mode trunk为设置为干线，...

交换机路由器实训心得体会

经过两周的实训，顺利完成六个项目，分别是交换机配置（vlan trunk vtp），静态路由，动态路由，ospf，访问列表，nat。在此次交换机和路由器的专业课程实训过程中，使我能将平时课堂上所学到的零散的理论知识能够综合灵活的运用起来，由于我平时的踏实努力，在遇到一些配置错误问题时，也能轻松的解决，并且知道了不能一味的单方面学习理论知识，或者是一味的单方面注重动手能力的培养，是不能够完全的学到精湛的技术，是不能满足用人单位的的需求的，因此，我们不仅仅要加强我们理论知识，也要提高我们的实际操作能力，这样才能拿的出去，才能和一些本科学校竞争，才能走上属于自己的工作岗位，这样的我们才能真正的被社会认可，只有不断努力，用人单位才会更加的器重和肯定我们的能力。而且在当今找工作难的情况下，没有过硬的技术就会被淘汰，就不会找到好工作。

在实训的过程中，让我体会到了，不仅仅要熟悉掌握命令，更重要的是在实训的过程中，必须要小心在小心和谨慎在谨慎，必须要注意配置的模式，，不论在其中的任何一个环节脱轨，就意味着你必须重新配置，一个不小心导致的是全部的重新开始，也许造成的就不是重新开始这样的小事故，所以我们必须在学习和工作的时候，打起精神，一定要认真仔细，有耐性。在实训的时候，应该先分析实训题目，看清楚实训要求，比如，第一个项目要求switch1,switch2，由于我的不细心没认真审题没有把交换机名字改为switch1,switch2，导致从做一遍，这就是教训，在实训的时候，应该先分析实训题目，看清楚实训要求，有自己的处理方法，是把自己的配置方法写下来还把拓扑图画下来按题的要求标记好尽可能的不出不必要的错误，按着分析和要求去配置，按着分析和要求去配置时，特别要注意的是每个IP地址配置后要激活才可以生效，show命令必须是在特权模式下进行等，按着正确的方法和步骤去配置，细心的执行每一个命令，就可以减少因为粗心带来的不必要的麻烦，特别是在做实训5的时候我知道要用到书本中配置命令但由于我对访问例表的知识不够熟悉也没有掌握除按照书本上的方法做，我自己不知道从何做起也不知道要实现什么样的结果，当我按照书上和平时的笔记做时，结果还是会错当老师给我讲解时我才明白.访问例表要应用到每个端口并且ip access-group 101 out 而不是书上写的ip access-group 101 in 如果没有实训我可能不会知道.还有实训5的第二的题时配置访问例表也不能照书上的按部就班只要在全局模式下写入access-list 101 permit tcp host 192.168.1.2 any eq telnet 就可以而书本上的却多了一些不必要的配置命令。让我明白了，做任何一件事情都要细心，工作也好，学习也好，细心都是很重要的因素。

此次实训，也让我明白了自己的不足和今后努力的方向，我的不足就是在我配置的过程中，不能把课本上知识灵活运用在具体项目中，尤其是在做每个项目第二题的时候，需要灵活运用课本知识，而我照书本上的方法做，这只能说明理论学的还不够扎实。这就是今后努力方向，不管做什麽事都要一步一个脚印。

其实，我应该先增强理论知识，才能提高我的实际动手能力，其一、实训是对每个人综合能力的检验。要想做好任何事，除了自己平时要有一定的功底外，我们还需要一定的实践动手能力，操作能力。其二、此次实训，我深深体会到了积累知识的重要性。俗话说：“要想为事业多添一把火，自己就得多添一捆材”。我对此话深有感触。再次，“纸上得来终觉浅，绝知此事要躬行！”在短暂的实习过程中，让我深深的感觉到自己在实际运用中的专业知识的匮乏，刚开始的一段时间里，对一些工作感到无从下手，茫然不知所措，这让我感到非常的难过。总以为自己学的不错，一旦接触到实际，才发现自己知道的是多么少，这时才真正领悟到“学无止境”的含义。这也许是我一个人的感觉。不过有一点是明确的，就是我们的理论到实践的确是有一段距离的。

通过这次实训，真正的明白自己需要加强的是在加强理论知识和提高动手能力的同时增强自信心，有足够的自信心才敢去面对以后的生活，所以我觉得我还应该多动手练习，结合书本和实际，加强自身的能力提高。

这次实训，也让我明白了自己的不足有很多知识都不够牢固需要更加努力加强练习，同时我也克服平时动手时间少的坏毛病，让我明白面对各种各样的困难，不管是未解答的题目，还是生活工作上遇到的困难，就像是一道实训题，我应该要有自信和细心，还要保持十足的干劲和充沛的精力，去用心解答它。实训心得：自信，细心，认真，踏实，谨慎，耐性，灵活。