.NET中自己构建一个ArrDictionary

以下是ArrDictionary类:
Public Class ArrDictionary
    Private objCollection As New Collection
    Private objDic As New DictionaryEntry
    Private strKey, strValue As String
    Public i As Integer

    Public Function Item(ByVal Index As Integer) As Object
        Try
            Item = objCollection.Item(Index)
        Catch ex As Exception
            Item = "错误,无此项!"
        End Try
    End Function

    Public Function Item(ByVal Key As String) As Object
        Try
            Item = objCollection.Item(Key)
        Catch ex As Exception
            Item = "错误,无此项!"
        End Try
    End Function

    Public Sub Add(ByVal Key As String, ByVal Value As String)
        objDic.Key = Key
        objDic.Value = Value
        objCollection.Add(objDic, objDic.Key)
        i += 1
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
        objCollection = Nothing
        objDic = Nothing
        strKey = ""
        strValue = ""
        i = 0
    End Sub
End Class

以下是调用代码段:
                Dim arrSQL As New ArrDictionary

                arrSQL.Add("收件号", objExcelSheet.Cells(t, 1).Value)
                arrSQL.Add("房屋地址", objExcelSheet.Cells(t, 2).Value)
                arrSQL.Add("建筑面积", objExcelSheet.Cells(t, 3).Value)
                arrSQL.Add("房型", objExcelSheet.Cells(t, 4).Value)
                arrSQL.Add("朝向", objExcelSheet.Cells(t, 5).Value)
                arrSQL.Add("楼层", objExcelSheet.Cells(t, 6).Value)
                arrSQL.Add("产别", objExcelSheet.Cells(t, 7).Value)
                arrSQL.Add("金额", objExcelSheet.Cells(t, 8).Value)
                arrSQL.Add("区域", objExcelSheet.Cells(t, 9).Value)
                arrSQL.Add("竣工日期", objExcelSheet.Cells(t, 10).Value)
                arrSQL.Add("使用年限", objExcelSheet.Cells(t, 11).Value)
                arrSQL.Add("联系人", objExcelSheet.Cells(t, 12).Value)
                arrSQL.Add("录入人", objExcelSheet.Cells(t, 13).Value)
                arrSQL.Add("录入日期", objExcelSheet.Cells(t, 14).Value)
                arrSQL.Add("所属分店", objExcelSheet.Cells(t, 15).Value)

                '组合字段名
                Dim ColumnSQL As String
                '组合字段值
                Dim ValueSQL As String

                For i As Integer = 1 To arrSQL.i
                    ColumnSQL += arrSQL.Item(i).Key.ToString & ","
                    ValueSQL += "'" & arrSQL.Item(i).Value.ToString & "',"
                Next

                '组合SQL语句
                objCom.CommandText = "insert into content(" & ColumnSQL & ")" & _
                "values(" & ValueSQL & ")"

                ColumnSQL = ""
                ValueSQL = ""
                arrSQL = Nothing

时间: 2016-02-06
Tags: item, value, string, ADD

.NET中自己构建一个ArrDictionary的相关文章

如何在运维场景中构建一个优秀精准的异常检查系统

在实际的运维场景中,构建一个异常检测系统往往需要两个角色共同参与:领域专家和算法开发人员.领域专家也就是我们的运维人员,他们对KPI曲线的行为很熟悉,可以通过观察KPI曲线并结合自己的领域知识,判断KPI曲线是否出现异常:算法开发人员负责构建异常检测系统,他们熟悉异常检测器(算法),但是实际中有各种不同类型的KPI曲线需要维护,所以需要为不同类型的KPI曲线选择合适的异常检测器以及合适的算法参数. 在实际构建异常检测系统时,首先需要运维人员结合自己的领域知识向算法开发人员描述异常,然后开发人员根

Python中的线性优化,第 2 部分 在云中构建一个可扩展的基础架构

简介 这个由三部分组成的系列文章的第 1 部分介绍了在 Python 中使用 Pyomo 库进行线性优化的 基础知识.现在我们将介绍如何扩展它.Python 缺乏真实的操作系统线程,该如何扩展它?本文将向您介绍 如何组合使用这些技术来创建一个实际的可扩展基础架构,该架构可用于构建一个 Pyomo Web 解决方案.我 们组合使用了一个单线程事件循环.一个 AMQP 服务器和工作线程流程来创建一个模式,利用该模式扩展一个 线性优化系统.该基础架构也适用于 Python 或 Ruby 中的许多通用计

先做点好事,转点东东来,用PHP和MySQL构建一个数据库驱动的网站(-)

mysql|数据|数据库 摘要 在这篇文章中,我们会着手解决在构建一个数据库驱动的网站的过程中将会遇到的问题.而我们只会使用两个新的工具,PHP和MySQL.如果你的Web主机支持PHP/MySQL,那么你会省掉不少麻烦.如果不是这样,你也不用提心,我们也会学习如何在Unix和Windows下安装相应程序. 这篇文章是提供给那些有可能学会服务器端程序开发的中高级的网页设计者的.我们会认为我们的读者熟悉HTML,所以我们在使用HTML时不会给出什么解释.另外,在有些地方我们可能还会用到少量的Jav

用PHP和MySQL构建一个数据库驱动的网站(十)

mysql|数据|数据库 在我们目前的情况下,我们所需要的列是Jokes表中的JokeText列以及Authors表中的Name列和Email列.Jokes表和Authors表的关联条件是Jokes表中的AID列的值等于Authors表中的ID列的值.下面是一个连接的例子(前两个查询只是用来显示我们的两个表中所包含的内容): mysql> SELECT LEFT(JokeText,20), AID FROM Jokes;+----------------------+------+| LEFT(

腾讯QQ设计师谈如何构建一个更轻巧的开发流程

网页制作Webjx文章简介:腾讯设计师谈敏捷开发. 腾讯一直推广敏捷开发,也在强调敏捷开发,但你会发现,即便如此,还是会陷入以下情景 又丑又长的讨论会 好像人手永远不够 不切实际的想法 悬而不决的功能点 无穷尽的偏好设置 越来越多纠缠不清的细节 项目依然延期 我们如何构建一个更轻巧的开发流程,让我们更快更好的交付结果?作为一个设计师,如何成为敏捷的一分子?以下是一些心得方法,希望和大家分享 1 界面先行 作为设计师,最简单能让大家明白你的想法就是先把它画出来,不要用晦涩的语言和结构图,毕竟不是所

用PHP4 和 PostgreSQL 构建一个电子商务应用

电子商务 本文通过一个简单的web 应用,演示了 PHP 和 PostgresSQL 在电子商务中的应用. 不久以前,如果要架构一个严肃的Web应用的话,意味着购买价格不菲的Cold Fusion 许可,以及一个商业的数据库服务程序像Sybase 加上Sun 服务器.幸运的是,这样的日子一去不复返了.随着日渐成熟的免费数据库市场以及Apache 使用者的大量增长,一些替代产品已经具有相当,甚至超过了这些专有软件的能力. 比较好的开放源码软件的一种是 PHP,一个很像Perl 的脚本语言,以及Po

用PHP和MySQL构建一个数据库驱动的网站(六)

mysql|数据|数据库 摘要 在这一章内我们会学习到如何在一个Web页面中向数据库中存储信息并显示它. (2002-08-29 14:11:25) --------------------------------------------------------------------------------By Wing, 出处:Linuxaid 第四章: 用PHP访问MySQL数据库 在这一章内我们会学习到如何在一个Web页面中向数据库中存储信息并显示它.之前我们已经安装了MySQL这个关系

用PHP构建一个简易监视引擎

摘要:在本文中,让我们共同探讨基于PHP语言构建一个基本的服务器端监视引擎的诸多技巧及注意事项,并给出完整的源码实现. 一. 更改工作目录的问题 当你编写一个监视程序时,让它设置自己的工作目录通常更好些.这样以来,如果你使用一个相对路径读写文件,那么,它会根据情况自动处理用户期望存放文件的位置.总是限制程序中使用的路径尽管是一种良好的实践:但是,却失去了应有的灵活性.因此,改变你的工作目录的最安全的方法是,既使用chdir()也使用chroot(). chroot()可用于PHP的CLI和CGI

网站建设寻求突破 构建一个符合seo的站点

如何构建一个符合seo优化的站点,是seo人员梦寐以求的想法,但实现起来却没有那么简单,网站上线前感觉良好,网站上线后,这样或那样的问题不断在网站中出现,做好一个网站不仅仅需要有牛逼的建站技术,而且还需要有合理的seo优化思维,打造一个符合seo优化的站点从五点做起: 一.寻找同行业参考站点 没有一个网站作为参考标准,完全凭空想象估计会让人走火入魔,想象很美好,但真正要实施时,就会发现很多瓶颈阻碍我们,根据自己的亲身体验,在网站建设前期应该寻找同行业相关的站点,作为自己的网站参考网站,特别是那些