精华内容
下载资源
问答
  • 为了方便查询VB键盘按键代码而设计, ASCII、KEY CODE、KEY VALUE、鼠标按钮,需要 NET Framework4.0 支持(安装有VS2010即可)。
  • VB查询代码

    2012-05-31 14:38:48
    可用,自己尝试过的,不信你可以试试!反正积分要的又不多!
  • 摘要:VB源码,数据库应用,交叉表查询 VB6.0与SQL2000结合演示的动态交叉表查询方法,测试前请首先附加Database文件中的数据库,然后再运行可执行文件。  数据库的附加方法如下:  1.将目录database下的xs_Data.MDF...
  • 摘要:VB源码,数据库应用,IN查询 VB使用IN查询表中的记录信息,使用IN谓词来评估一个表中指定列的值是否包含在已定义的列表中,或者在另一个表中,查询时请输入查询员工的姓名,本VB源码编译运行截图如上示。
  • 学生课程表查询(VB6.0代码编写) 学生课程表查询和access数据库建立连接,显示一周内的日期。你可以打开数据库进行修改。 QQ223857666勾月
  • VB实现超高速双向链表,非常高效的列表操作,1亿次列表数据添加仅需100毫秒以内。源代码关键字:  链表头、链表数据区、分配,清除内存、记录链表大小,链头,链尾、申请内存、设置表头数据、添加一个项,可指定...
  • VB 对数据库access的模糊查询代码

    千次阅读 2018-09-19 13:58:33
    rs.Open "person", conn, , adCmdTable '打开数据EmTabl Set MSHFlexGrid1.DataSource = rs '打开数据控制源为rs对象 rs.Close '关闭recordset对象 conn.Close '关闭connection对象 End Sub Private Sub ...
    Option Explicit
    
    Dim conn As New ADODB.Connection '定义connection 对象
    
    Dim rs As New ADODB.Recordset
    
    Private Sub Form_Load() '初始化程序
    
    Set conn = New ADODB.Connection   '分配一个connection对象
    
    Set rs = New ADODB.Recordset  '分配一个recordset对象
    
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
    "Data source=" & App.Path & "\tjn.mdb;" & _
    
    "Persist Security Info=False"  '设置连接字符串
    
    conn.Open  '打开连接
    
    rs.Open "person", conn, , adCmdTable '打开数据表EmTabl
    
    Set MSHFlexGrid1.DataSource = rs  '打开数据控制源为rs对象
    
    rs.Close   '关闭recordset对象
    
    conn.Close '关闭connection对象
    
    End Sub
    
    Private Sub MSHFlexGrid1_RowColChange()       '当点击里面的文本时候会将选择的文本进行操作
    
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
    "Data source=" & App.Path & "\tjn.mdb;" & _
    
    "Persist Security Info=False"  '设置连接字符串
    
    conn.Open  '打开连接
    
    rs.Open "select * from person where address='10' and datt like '2018/7/11%'", conn, adOpenKeyset
    
    If rs.RecordCount > 0 Then
    
    Text2.Text = "日期:" & rs.Fields(0) & "编号:" & rs.Fields(1) & "基站:" & rs.Fields(2)
    
    End If
    
    rs.Close
    
    conn.Close
    
    End Sub
    

    在这里插入图片描述

    展开全文
  • vb 连接 查询 修改 删除mysql数据库方法代码,直接调用就行。 SQLite是一款轻型的数据库,占用资源非常的低,处理速度快。SQLite虽然很小巧,但是支持的SQL语句不会逊色于其他开源数据库。无需安装和管理配置,储存...
  • 内容索引:VB源码,数据库应用,排序 一个基础VB数据库操作实例,使用VB创建数据库,创建数据、重命名数据、删除字段、创造字段、删除表格,排序和查询等操作,VB新手学习数据库编程的好帮手。
  • VB.net代码生成器

    热门讨论 2011-08-26 11:15:36
    主要实现在对应数据库中的基类代码的自动生成,包括生成属性、添加、修改、删除、查询、存在性、Model类构造等基础代码片断,支持不同3种架构代码生成,使程序员可以节省大量机械录入的时间和重复劳动,而将精力...
  • 课表查询系统 三、设计任务 (1)要求用VisualBasic6.0提供的系统函数和标准控件完成设计; (2)从列表框中选择“年级、专业、日期”的信息后,显示该班级在当日所对应的课程。 (3)在设计程序的过程中,要求...
  • vb6.0操作Excel表格代码

    2013-04-09 17:01:09
    使用VB软件新建一张Excel表格,并对Execl表格进行相关操作,包括合并单元格,调节单元格宽度、背景颜色、字体、字体颜色等,向excel表格中写数据。希望对大家有帮助!
  • select case用法课程表查询系统,VB6.0源代码
  • 内容索引:VB源码,其它类别,链表 VB实现超高速双向链表,非常高效的列表操作,1亿次列表数据添加仅需100毫秒以内。源代码关键字:  链表头、链表数据区、分配,清除内存、记录链表大小,链头,链尾、申请内存、设置...
  • 摘要:VB源码,数据库应用,分组统计 VB分组统计,读取Access数据库,通过查询统计图书的销售数量和现存数量来演示分组统计数据,书号,k.书名,x.作者, k.现存数量 ,sum(x.销售数量)as 销售数量。
  • VB查询ACCESS数据库内容

    千次阅读 2015-08-12 10:11:44
    cmd.CommandText = "select * from A2 where 城市='" & Text1.Text & "'" '查询文本框1中的内容 'cmd.CommandType = adCmdText cmd.CommandTimeout = 15 Set rs = cmd.Execute ...
    Dim cnn As New ADODB.Connection
    
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command

    Private Sub Command2_Click()
    On Error Resume Next
    'Adodc2.RecordSource = "select * from A2 where 人口=" & Trim(Text5.Text)
    Adodc2.RecordSource = "select * from A2 where 人口>=" & Text5.Text & " And 人口 <= " & Text6.Text & ""


    Adodc2.Refresh
    Set DataGrid2.DataSource = Adodc2
    End Sub

    Private Sub Command3_Click()
    Adodc2.RecordSource = "select * from A2 where 省份='" & Text7.Text & "'"
    Adodc2.Refresh
    Set DataGrid2.DataSource = Adodc2
    End Sub


    Private Sub Command4_Click()

    'Adodc2.RecordSource = "select * from A2 where 时间 = #2002/7/5#"
    'Adodc2.RecordSource = "select * from A2 where 时间 > #2000/1/1# and 时间< #2001/1/2#"
    'Adodc2.RecordSource = "select * from A2 where 时间 between #2000/1/1# and #2000/2/2#"
    'Adodc2.RecordSource = "select * from A2 where 时间 =#" & Format(Text8.Text, "yyyy/mm/dd") & "#"
    Adodc2.RecordSource = "select * from A2 where 
    时间 between #" & Format(Text8.Text, "yyyy/mm/dd") & "# and #" & Format(Text9.Text, "yyyy/mm/dd") & "# "



    Adodc2.Refresh
    Set DataGrid2.DataSource = Adodc2
    End Sub

    Private Sub Command5_Click()
    'Adodc2.RecordSource = "select * from A2 where 时间 =#" & Format(DTPicker1.Value, "yyyy/mm/dd") & "#"
    'Adodc2.RecordSource = "select * from A2 where 时间 >#" & Format(DTPicker1.Value, "yyyy/mm/dd") & "# and 时间 <#" & Format(DTPicker2.Value, "yyyy/mm/dd") & "# "
    Adodc2.RecordSource = "select * from A2 where 时间 between #" & Format(DTPicker1.Value, "yyyy/mm/dd") & "# and #" & Format(DTPicker2.Value, "yyyy/mm/dd") & "# "


    Adodc2.Refresh
    Set DataGrid2.DataSource = Adodc2
    End Sub

    Private Sub Form_Load()
    cnn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db_k1.mdb" '连接数据库
    Set cmd.ActiveConnection = cnn
    Me.WindowState = 2
    Adodc1.CommandType = adCmdText
    Adodc2.CommandType = adCmdText
    End Sub

    Private Sub Command1_Click()        '单击"查询"按钮
    On Error GoTo err_1         '如果发生错误,则去执行err_1后面的语句
    cmd.CommandText = "select * from A2 where 城市='" & Text1.Text & "'"  '查询文本框1中的内容

    'cmd.CommandType = adCmdText
    cmd.CommandTimeout = 15
    Set rs = cmd.Execute

    Text2.Text = rs.Fields("省份")
    Text3.Text = rs.Fields("城市")
    Text4.Text = rs.Fields("人口")

    Adodc1.Recordset.MoveFirst
    'Adodc1.Recordset.Find "省份=" & Text2.Text
    'Adodc1.Recordset.Find "城市 = '苏州'"
    Adodc1.Recordset.Find "城市= '" & Text3.Text & "'"

    Adodc2.RecordSource = "select * from A2 where 城市='" & Text3.Text & "'"
    Adodc2.Refresh
    Set DataGrid2.DataSource = Adodc2
    Exit Sub

    err_1:
    MsgBox "未找到你所查询的结果"
    End Sub

    展开全文
  • 可以通过5个条件自由组合,有点麻烦,但可以实现,有图片和源代码,非web开发。
  • VB代码 从数据库快速导出数据到EXCEL

    热门讨论 2011-12-21 16:12:37
    代码实现,从数据库快速导出数据到EXCEL文件
  • 一个具备打印功能的VB报表设计器源代码VB报表打印设计器控件源码及实例,如上图所示,可以用来设计复杂的报表,包括报表标头、页面标头、报表细节、页面页脚部分、报表注脚等,每一部分之间都可以鼠标拖动改变大小...
  • 内容索引:VB源码,数据库应用,管理系统 工厂设备管理程序VB+Access源代码,编译和运行前请先配置ODBC数据源。  系统功能包括:电力能耗的录入与管理、能耗汇总表查询、大修原始记录、关键及易损配件信息登记及...
  • 摘要:VB源码,数据库应用,内连接 VB6.0连接查询数据,使用内连接选择一个中与另一个中的行相关的所有行,查询员工编号和姓名信息。
  • VB6.0处理WPS个人免费版代码

    千次阅读 2020-04-25 12:49:23
    VB6.0处理WPS个人免费版代码 关键字: VB6.0控制WPS个人版 VB6.0写入WPS VB处理WPS表格 VB6.0操作WPS个人版 网上搜索了很久VB6.0操作WPS的问题,介绍不过,测试以下代码可以实现WPS2019个人免费版(不含VBA组件)的处理...

    VB6.0操作WPS个人版2019

    VB6.0处理WPS个人版代码

    关键字:
    VB6.0控制WPS个人版
    VB6.0写入WPS
    VB处理WPS表格
    VB6.0操作WPS个人版

    网上搜索了很久VB6.0操作WPS的问题,很多测试不成功,测试以下代码可以实现WPS PC 2019个人免费版(不含VBA组件)的处理,未测试其他方法属性处理是否与微软一致。
    测试环境Windows10专业版+WPS2019个人PC版V11.1.0.9584

    在这里插入代码片
    Private Sub Command1_Click()
            Set xlApp = CreateObject("ket.Application")  '后期绑定WPS,测试win10专业版+WPS2019个人PC版-V11.1.0.9584
            '网上查询说et.Application及excel.Application也能,但我测试都会提示错误
            Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & "测试.xls")  '打开指定路径指定名称文件
            xlApp.Visible = True '显示WPS界面
            Set xlSheet = xlBook.Worksheets(1) '定义,工作簿中第1个工作表
            xlSheet.Range("A2") = 123   '第一个工作表A2单元格写入数值123
            xlBook.Saveas (App.Path & "\" & "测试结果.xls")    '另存为指定路径和名称
            xlBook.Close    '关闭WPS
            MsgBox ("ok")
    End Sub
    
    
    展开全文
  • VB实现SQL连接查询

    2010-01-20 10:47:44
    vb实现连接sql数据库并查询的小程序 综合了网上一些实例,修改连接信息后绝对可用
  • 使用VB对VBA开发的窗体进行封装成DLL,窗体作用:根据配置的Excel基础数据,在其他工作中使用模糊查询赋值(当使用 序列 时,如果列表很长时,可以使用该工具)
  • 这里,小编给大家带来VB导入函数查询器,可以轻松查询VB程序所导入的所有函数内容,便于更简单的复制与调用。 需要的朋友们可以下载试试吧!vb如何函数调用 1.定义一个加法函数 Private Function addit
  • VB ADODB 对某记录更新或修改记录、VB ADODB 二sql查询排序、VB ADODB 二联合查询VB ADODB 二次打开数据库(二)
  • 关于一个GIS图层管理和属性查询的程序,使用vb编程语言实现,pdf格式的
  • VB课程设计(代码

    2020-01-06 11:43:59
    本资源为VB课设的贪吃蛇。还有其他的课设资料: 1.10以内加法 2.RTF编辑器 3.vb程序设计1 4.VB编译器 5.vb课程设计 6.VB课程设计合集 7.三子棋 8.交通c063 9.儿童学艺 10.儿童学艺1 11.儿童认 12.儿童...
  • VB】table列求和(机房问题)

    千次阅读 热门讨论 2015-07-17 19:17:26
    VB查询表列求和。

    在机房收费系统的结账窗体中,需要将很多数据求和,在这个阶段,我想了几个可行的方法。

    方法一,使用select语句求和。

    我们都知道select语句可以选择出符合条件的数据,其实他还有更为强大的功能,就是SQL函数,通过SQL函数,我们可以求出同一个关键字下最大值MAX(关键字),最小值MIN(关键字),平均值AVG(关键字),以及求和运算SUM(关键字)等等。下面以求和运算为例。

    编码规则如下:

    txtSQL = "select SUM(关键字) as SUM from 表名 where 关键字= '" & 关键字 & "'"
    

    以我的机房中求和充值总额为例:

    txtSQL = "select SUM(addmoney) as SUM from ReCharge_Info where UserID= '" & Trim(ComboUserID.Text) & "' and status = '" & "未结账" & "'"
    
    其中,我在ReCharge表中查询到了限制条件为UserID和status情况下,关键字为addmoney列下充值额,然后SUM求和,将求和后的总金额保存在一个新建的SUM表中,在这里,我们可以在SQL server中新建查询来更直观的看到其中的运行机制。


    点击执行后:

    此时,新建了一个表格,来作为我们求和结果的容器。


    方法二,使用For循环。

    我们知道,For循环是指定步数的循环,但是,当我们这样写的时候

        For i = 1 to mrc.Recordcount
            循环体
        Next i
    mrc的Recordcount属性大家都不陌生,在机房上下机时显示在线人数时用到了这个属性,这个属性同样可以这样用,有多少条符合条件的数据,循环体就执行多少次,实现了遍历循环。


    方法三,Do While 循环。

        Do While not mrc.EOF
            循环体
        loop

    原理和For循环相同,遍历每一条符合条件的语句,然后相加求和。


    总结:

    这三种方法在实践中都是可以实现机房收费系统所要求的功能的,不同的是,第一种方法使用的是SQL函数,而后两种用的是遍历循环,相比之下,在数据繁多的背景下,遍历循环是必然要被淘汰的。通过实现这个功能,发现了相同的功能可以由多种代码实现,而区分这些代码的良莠是我们需要学习的。

    展开全文
  • (2) 软件是由后台存储物性数据的Access数据库和前台VB语言编写的查询界面两部分组成的,其中物性数据库的数据源自一个流程模拟软件,经各个物性参数的测试表明该数据库可靠,前台查询界面则是由作者利用VB语言编写...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 21,365
精华内容 8,546
关键字:

vb代码查询表