189 8069 5689
Public Sub Storage() '存储函数
在介休等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供做网站、成都网站制作 网站设计制作按需定制设计,公司网站建设,企业网站建设,成都品牌网站建设,成都营销网站建设,成都外贸网站建设公司,介休网站建设费用合理。
Dim setstr As String = ""
Dim keyname As String
Dim mykey As RegistryKey
keyname = "software\microsoft\windows\currentversion\policies\system"
mykey = Registry.CurrentUser.CreateSubKey(keyname)
mykey.SetValue("ArgueSet", setstr) '设置
mykey.Close()
End Sub '存储
-----------------------------------------------------------------------------------------------------------------
Public Sub Read() '读取数据函数
Dim setstr As String
Dim keyname As String
Dim mykey As RegistryKey
keyname = "software\microsoft\windows\currentversion\policies\system"
mykey = Registry.CurrentUser.CreateSubKey(keyname)
setstr = mykey.GetValue("ArgueSet") '读取
mykey.Close()
End Sub
是不是这样的
首先~~需要确认的是，每次读取花时间的问题~是在连接上还是在创建实例上。
如果是在创建实例上，需要做【单例模式】，建议所有数据创建在Module中，并做全局变量。
Cache是一种B/S，的MVC方式。
缓存方式有很多~~~
一种是物理方式（做物理RAM内存开避空间）
一种是文件方式（做文件）
如文件方式，较常出现的如MVC的缓存，就是大概原理就是，把不经常用到（变化）的数据信息放到文件中，采用读取文件的方式（比访问数据快），存在指定或CurrentDir中。
如果想方便~需要追加一系列状态标识~当访问时，触发变更，然后在读取数据前，确认这个状态是否变动，如果变动说明数据库有变动，需要再次访问数据库。如果没有变动，则读取文件。
这种就叫缓存技术。
当然，我说的这种是比较简单的，还是需要设计思想。
方法/步骤
由于需要用到命令，因为我们首先要调出电脑的命令对话框，方法一是使用组合快捷键：Windows + R键，打开运行操作框，然后在打开后面输入 cmd ，完成后，点击底部的确定即可打开CMD命令操作框了。方法二是直接打开电脑左下角Windows开始页面，在搜索框里直接输入CMD命令，按回车键即可！如下图：
安装上图完成步骤之后，我们即可进入到如下的CMD命令操作对话框，如下图：
在CMD命令操作框上输入清空DNS缓存的命令，命令为：ipconfig/flushdns，如下图：
然后按回车键，（Enter）即可开始清空DNS缓存了，如下图所示
这样我们就成功的完成了DNS缓存清理了，其实很简单，当我们电脑无法上网，或者DNS出错的时候都可以尝试下清除DNS缓存试试。另外大家还可以在以上命令框中，输入ipconfig /displaydns这个命令，来查看一下本机已经缓存了哪些DNS信息。
新建---类库---把你的函数放在新建的类库中-----生成ClassLibrary1
在net程序中---引用----对应目录下的ClassLibrary1.dll
对应的代码定义如： Dim mydll As New ClassLibrary1.Class1
最后就可以用mydll调用你的函数MyFunction了： mydll .MyFunction(1, 2)
注意：vb.net编写的DLL不能用API函数的方式通过Declare宣告，只能引用的方式使用
vb.net要编写的DLL能被vb6.0引用，需要先在编译属性中选择“为COM互操作注册”打勾
然后在Visual Studio 2008 命令提示中运用RegAsm命令加/tlb命令生成tlb文件
例如：c:\ReleaseRegAsm ClassLibrary1.dll /tlb回车就会在当前目录生成ClassLibrary1.tlb文件
vb6.0中引用ClassLibrary1.tlb即可。
直接用datatable的Select选项，筛选出来是一个Datarow组，然后再循环它就可以了。
Dim dtrs as DataRow() =dataset.datatable.Select("列名 = '条件' ")
if dtr.rows 0 Then
for each dtr as DataRow in dtrs
'你的处理代码~
next
endif
可以考虑使用Cache（缓存）技术，对于不经常变化的数据可以采用静态Cache，对于可能经常被修改的数据可以采用数据库依赖的通知Cache更新技术。