精华内容
下载资源
问答
  • 怎么利用vb里的循环算法实现对数组中重复数据查找的判别?怎么判断重复的数据的哪一个是待查数据?
  • (2)实现上述功能的VB程序如下,请在划线处填入合适的代码。Constmaxn=10Dima(1 To maxn) As IntegerPrivateSub Form_Load()‘maxn个数据存储在数组a中,并在列表框List1中显示‘代码略EndSubPrivateSub Command1_...

    (2)

    实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Const

    maxn=10

    Dim

    a(1 To maxn) As Integer

    Private

    Sub Form_Load()

    ‘maxn个数据存储在数组a中,并在列表框List1中显示

    ‘代码略

    End

    Sub

    Private

    Sub Command1_Click()

    Dim

    i As Integer, n As Integer     ‘n用于存储当前査找的数组长度

    Dim

    j As Integer, key As Integer     ‘key用于存储本次查找关键字的数据位置

    key=1:

    n=maxn

    Do

    While key <=n

    i=n

    Do While a(i) <> a(key)

    ________

    Loop

    If i=key Then     ‘未找到,重新下一査找关键字

    key=key+1

    Else    ‘找到重复数据,删除

    For j=i To n-1

    ________

    Next j

    n=n-1

    End If

    Loop

    For

    i=1 To n

    List2.AddItem Str(a(i))

    Next

    i

    Label1.Caption=“共删除数据”+________+“个”

    End

    Sub

    展开全文
  • VB.NET机房收费系统SQLHelper

    千次阅读 热门讨论 2015-04-29 21:23:10
    一直在用SQLHelper,但是直到现在才稍稍明白一点数据连接类的妙用 真正的体现了代码重复利用。SQL 语句的 更新 插入 查找 删除 包括有参数的、无参数的更新 插入 查找 删除 都包括了下面是代码的详细解释,现在先看...

    一直在用SQLHelper,但是直到现在才稍稍明白一点数据连接类的妙用 真正的体现了代码重复利用。


    SQL 语句的 更新 插入 查找 删除
    包括有参数的、无参数的更新 插入 查找 删除 都包括了


    下面是代码的详细解释,现在先看看明白,等到以后写的时候就方便多了。

    “`
    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration ‘必须要在管理器中添加引用
    ”’
    ”’ SqlHelper类是专门提供给广大用户用于高性能、可升级和最佳练习的sql数据操作
    ”’
    ”’
    Public Class SqlHelper
    ‘定义变量
    ‘获得数据库的连接字符串
    Private ReadOnly strConnection As String = ConfigurationManager.AppSettings(“ConnStr”)
    ‘设置连接
    Dim conn As SqlConnection = New SqlConnection(strConnection)
    ‘定义cmd命令
    Dim cmd As New SqlCommand

    ''' <summary>  
    ''' 执行增删改三个操作,(有参)返回值为Boolean类型,确认是否执行成功  
    ''' </summary>  
    ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param>  
    ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param>  
    ''' <param name="paras">参数数组,无法确认有多少参数</param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Integer
        '将传入的值,分别为cmd的属性赋值  
        cmd.Parameters.AddRange(paras)   '将参数传入  
        cmd.CommandType = cmdType            '设置一个值,解释cmdText  
        cmd.Connection = conn                '设置连接,全局变量  
        cmd.CommandText = cmdText            '设置查询的语句  
    
        Try
            conn.Open()                      '打开连接  
            Return cmd.ExecuteNonQuery()     '执行增删改操作  
            cmd.Parameters.Clear()           '清除参数  
        Catch ex As Exception
            Return 0                         '如果出错,返回0  
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
    End Function
    ''' <summary>  
    ''' 执行增删改三个操作,(无参)  
    ''' </summary>  
    ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param>  
    ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param>  
    ''' <returns>Interger,受影响的行数</returns>  
    ''' <remarks>2013年2月2日8:19:59</remarks>  
    Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer
        '为要执行的命令cmd赋值  
        cmd.CommandText = cmdText       '先是查询的sql语句  
        cmd.CommandType = cmdType       '设置Sql语句如何解释  
        cmd.Connection = conn           '设置连接  
    
        '执行操作  
        Try
            conn.Open()
            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            Return 0
        Finally
            Call CloseConn(conn)
            Call CloseCmd(cmd)
        End Try
    End Function
    
    ''' <summary>  
    ''' 执行查询的操作,(有参),参数不限  
    ''' </summary>  
    ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param>  
    ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param>  
    ''' <param name="paras">传入的参数</param>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable
    
        Dim sqlAdapter As SqlDataAdapter
        Dim dt As New DataTable
        Dim ds As New DataSet
        '还是给cmd赋值  
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType
        cmd.Connection = conn
        cmd.Parameters.AddRange(paras)  '参数添加  
        sqlAdapter = New SqlDataAdapter(cmd)  '实例化adapter  
        Try
            sqlAdapter.Fill(ds)           '用adapter将dataSet填充   
            If ds.Tables.Count = 0 Then
    
            Else
                dt = ds.Tables(0)             'datatable为dataSet的第一个表  
                cmd.Parameters.Clear()        '清除参数  
            End If
    
        Catch ex As Exception
            MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
        Finally                            '最后一定要销毁cmd  
            Call CloseCmd(cmd)
        End Try
        Return dt
    End Function
    
    
    ''' <summary>  
    ''' 执行查询的操作,(无参)  
    ''' </summary>  
    ''' <param name="cmdText">需要执行语句,一般是Sql语句,也有存储过程</param>  
    ''' <param name="cmdType">判断Sql语句的类型,一般都不是存储过程</param>  
    ''' <returns>dataTable,查询到的表格</returns>  
    ''' <remarks></remarks>  
    Public Function ExecSelectNo(ByVal cmdText As String, ByVal cmdType As CommandType) As DataTable
        Dim sqlAdapter As SqlDataAdapter
        Dim ds As New DataSet
        '还是给cmd赋值  
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType
        cmd.Connection = conn
        sqlAdapter = New SqlDataAdapter(cmd)  '实例化adapter  
        Try
            sqlAdapter.Fill(ds)           '用adapter将dataSet填充   
            Return ds.Tables(0)             'datatable为dataSet的第一个表  
        Catch ex As Exception
            Return Nothing
        Finally                            '最后一定要销毁cmd  
            Call CloseCmd(cmd)
        End Try
    End Function
    
    ''' <summary>  
    ''' 关闭连接  
    ''' </summary>  
    ''' <param name="conn">需要关闭的连接</param>  
    ''' <remarks></remarks>  
    Public Sub CloseConn(ByVal conn As SqlConnection)
        If (conn.State <> ConnectionState.Closed) Then  '如果没有关闭  
            conn.Close()                    '关闭连接  
            conn = Nothing                  '不指向原对象  
        End If
    
    End Sub
    ''' <summary>  
    ''' 关闭命令  
    ''' </summary>  
    ''' <param name="cmd">需要关闭的命令</param>  
    ''' <remarks></remarks>  
    Public Sub CloseCmd(ByVal cmd As SqlCommand)
    
        If Not IsNothing(cmd) Then          '如果cmd命令存在  
            cmd.Dispose()                   '销毁  
            cmd = Nothing
        End If
    End Sub
    End Class
    

    这个数据库链接类非常全面既可以查询sql语句,又可以查询视图存储过程。触发器没有试过,不知道如何?

    展开全文
  • vb Script参考文档

    2009-07-28 22:13:02
    如何查找呢?单击左边的某个标题,即显示该部分中包含的项目列表。从这张列表中选择要查看的主题。当这个主题打开后,再链接到其他相关的部分就简单多了。 好了,让我们试一试,体会体会!学习几个语句,研究几种...
  • 学习Excel技术,关注微信公众号:excelperfect在查找相匹配的值时,...图1我们知道VLOOKUP函数通常会返回找到的第一个匹配值,或者最后一个匹配值,详见《Excel公式技巧62:查找第一个和最后一个匹配的数据》。然...

    学习Excel技术,关注微信公众号:

    excelperfect

    在查找相匹配的值时,如果存在重复值,而我们想要获取指定的匹配值,那该如何实现呢?如下图1所示的工作表,在“商品”列中,存在一些重复的商品,现在我们要找出第2次出现的“笔记本”的销售量。

    bdc6cb4b90c3c501ce1e13f2ec940585.png

    1

    我们知道VLOOKUP函数通常会返回找到的第一个匹配值,或者最后一个匹配值,详见《Excel公式技巧62:查找第一个和最后一个匹配的数据。然而,我们可以构造一个与商品相关的具有唯一值的辅助列(详见《Excel公式技巧64:为重复值构造包含唯一值的辅助列》),从而可以使用VLOOKUP函数来实现查找匹配值。

    首先,添加一个具有唯一值的辅助列,如下图2所示。

    58f9c6892ad00f84574c7ae8140d6bf7.png

    2

    在单元格B3中输入公式:

    =D3 & "-" &COUNTIF($D$3:D3,D3)

    下拉至单元格B14

    在单元格H6中输入公式:

    =VLOOKUP($H$2 & "-" &$G6,$B$3:$E$14,4,FALSE)

    即可得到指定的匹配值,如下图3所示。

    84767b74abd0454174a529159c641b1f.png

    3

    可以修改单元格H2G6中的数值,从而获取相应匹配的数据。

    欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料。

    9c8e23e4e984679d7aeb76bbe27c0f69.png

    展开全文
  • >Contains source code for shared classes and business objects (for example, ..cs, and .vb files) that you want to compile as part of your application. In a dynamically compiled Web site project, ASP...
  • 正则表达式经典实例.pdf

    热门讨论 2013-01-26 15:14:37
    5.8 查找重复单词 5.9 删除重复的文本行 5.10 匹配包含某个单词的整行内容 5.11 匹配不包含某个单词的整行 5.12 删除前导和拖尾的空格 5.13 把重复的空白替换为单个空格 5.14 对正则表达式元字符进行转义 第6章 数字...
  • 正则表达式经典实例

    2014-07-11 14:39:05
    5.8 查找重复单词 5.9 删除重复的文本行 5.10 匹配包含某个单词的整行内容 5.11 匹配不包含某个单词的整行 5.12 删除前导和拖尾的空格 5.13 把重复的空白替换为单个空格 5.14 对正则表达式元字符进行转义 第6...
  • 实例070 列出数据中的重复记录和记录条数 136 3.9 排序、分组统计 138 实例071 对数据进行降序查询 138 实例072 对数据进行多条件排序 139 实例073 对统计结果进行排序 141 实例074 数据分组统计(单列) 142 ...
  • 实例070 列出数据中的重复记录和记录条数 136 3.9 排序、分组统计 138 实例071 对数据进行降序查询 138 实例072 对数据进行多条件排序 139 实例073 对统计结果进行排序 141 实例074 数据分组统计(单列) 142 ...
  • 实例074 利用指针过滤数组重复数据 实例075 使用Split函数分隔明日公司网址 第4章 程序常用算法 4.1 计算类算法 实例076 最大公约数和最小公倍数 实例077 杨辉三角 实例078 输出100以内的素数 实例079 ...
  • 实例074 利用指针过滤数组重复数据 实例075 使用Split函数分隔明日公司网址 第4章 程序常用算法 4.1 计算类算法 实例076 最大公约数和最小公倍数 实例077 杨辉三角 实例078 输出100以内的素数 实例079 ...
  • 58.统计数组中非重复数据个数 59.摘取子字符串 60.计算20000余个汉字的笔画 61.删除当前工作表中的全部超连接 62.取得相近数据 63.提取定串中汉字 64.搜索重复数据(选定范围) 65.字符型转数字型 66.小写人民币转大写...
  • VCMFC编程方法笔记

    2010-01-10 20:19:03
    防止应用程序重复起动 CException类的派生与使用 实现VB的DoEvents函数 用CWinThread派生类创建带有窗口的线程 数据交换 使用剪贴板(VC++) 通讯与网络 串行通信(簡易版) 命名管道通讯(簡易版) 部品/...
  • 经典SQL脚本大全

    2013-12-24 15:28:19
    │ │ 8.2.5 校验表中数据是否有循环编码的通用存储过程.sql │ │ 8.2.6 复制指定节点及其所有子节点到指定结点的处理示例(借鉴方式排序法).sql │ │ 8.2.6 复制指定节点及其所有子节点到指定结点的处理示例.sql ...
  • │ │ 8.2.5 校验表中数据是否有循环编码的通用存储过程.sql │ │ 8.2.6 复制指定节点及其所有子节点到指定结点的处理示例(借鉴方式排序法).sql │ │ 8.2.6 复制指定节点及其所有子节点到指定结点的处理示例.sql ...
  • F4 重复最后一次操作,Alt F4退出EXCEL,SHIFT F4重复上一次查找操作 F5 显示定位对话框,Shift F5激活查找对话框 F6 移到下一个窗格,SHIFT F6移动到拆分的工作簿中的上一个窗格,CTRL F6,CTRL SHIFT F6移动到下...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    第六章 在VBA中重复操作 130 1.Do Loops: Do…While和Do…Until 130 2.观察过程执行 133 3.While…Wend循环 134 4.For…Next 循环 135 5.For Each…Next循环 136 7.提前跳出循环 137 8.循环嵌套 138 9.接下来… 138
  • 第六章 在VBA中重复操作 118 1.Do Loops: Do…While和Do…Until 118 2.观察过程执行 121 3.While…Wend循环 121 4.For…Next 循环 122 5.For Each…Next循环 123 7.提前跳出循环 124 8.循环嵌套 125 9.接下来… 125
  • Excel_VBA教程

    2014-09-22 11:36:34
    第六章 在VBA中重复操作 123 1.DO LOOPS: DO…WHILE和DO…UNTIL 123 2.观察过程执行 126 3.WHILE…WEND循环 127 4.FOR…NEXT 循环 128 5.FOR EACH…NEXT循环 129 7.提前跳出循环 130 8.循环嵌套 131 9.接下来… 131 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    第六章 在VBA中重复操作 123 1.DO LOOPS: DO…WHILE和DO…UNTIL 123 2.观察过程执行 126 3.WHILE…WEND循环 127 4.FOR…NEXT 循环 128 5.FOR EACH…NEXT循环 129 7.提前跳出循环 130 8.循环嵌套 131 9.接下来… 131 ...
  • Sqlserver2000经典脚本

    2007-05-23 10:58:09
    │ 8.2.2 树形数据深度排序处理示例(模拟单编号法).sql │ │ 8.2.2 树形数据深度排序处理示例(递归法).sql │ │ 8.2.3 查找指定节点的所有子节点的示例函数.sql │ │ 8.2.4 查找指定节点的所有父...
  • 8 VC和VB接口定义……………………………………………………………………………..34 8.1 NETMANAGE.DLL 接口定义…………………………………………………………………….34 8.2 NETMANAGE.DLL中数据
  • Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'VB延时API函数 Public Declare Sub winhelp Lib "user32" (ByVal hWnd As Long, ByVal lphelpfile As String, ByVal wcommand As Long, ...
  • 精通正则表达式(中英)

    热门讨论 2011-09-08 13:18:58
    vb.net测试 237 ruby测试 238 python测试 238 tcl测试 239 常见优化措施 240 有得必有失 240 优化各有不同 241 正则表达式的应用原理 241 应用之前的优化措施 242 通过传动装置进行优化 246 优化正则表达式本身 247 ...
  • 4.1.1 以不同的规模重复MVC模式 4.1.2 在浏览器端应用MVC 4.2 Ajax应用中的视图 4.2.1 将逻辑从视图中分离 4.2.2 保持视图与逻辑的分离 4.3 Aiax应用中的控制器 4.3.1传统的JavaScript事件处理函数 4.3.2 W3C事件...
  • 求2个集合的交集

    2014-05-26 18:49:03
    hash的另一个特点是查找效率为O(1),惊人的高! 对于这道题目要是算出来O(M*N)的同学就应该补课了。出来混,迟早要还的。 HashSet类 HashSet类主要是设计用来做高性能集运算的,例如对两个集合求交集、并集、差集...
  • 1个目标文件,JNDI的使用例子,有源代码,可以下载参考,JNDI的使用,初始化Context,它是连接JNDI树的起始点,查找你要的对象,打印找到的对象,关闭Context…… ftp文件传输 2个目标文件,FTP的目标是:(1)提高...
  • SQLServer2008查询性能优化 2/2

    热门讨论 2012-03-02 16:26:55
    书名: SQLServer2008查询性能优化 作者: 弗里奇(Grant Fritchey) 出版社: 人民邮电出版社 出版日期: 2010年8月1日 ...12.4.3 可重复读 335 12.4.4 可序列化(Serializable) 338 12.4.5 快照(Snapshot) 343 12.5...

空空如也

空空如也

1 2 3
收藏数 59
精华内容 23
关键字:

vb查找重复数据