vb 建立数据库查询系统

通过两个combobox控件,一个textbox控件,和一个按钮,来建立查询。一个combobox控件显示对应表的字段名称,一个combobox显示=,>,<,textbox输入查询的数据。然后点击按钮查询。
图片说明
大致如上图的意思!求大神帮忙!!!

0

1个回答

ComboBox1.Text = ConnText
da = New OleDb.OleDbDataAdapter(sql, dbConnection)
ds = New DataSet()
dbConnection.Open()
Dim dt As DataTable = dbConnection.GetSchema("columns")
For Each row In dt.Rows
ComboBox1.Items.Add(row.Item("COLUMN_NAME").ToString)
Next
ComboBox2.Items.Add("=")
dbConnection.Close()
我写了这个代码,但是出来了所有表的字段名称,不是对应表的

0
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
初识vb数据库开发之实例5(数据查询)
设计分析     一般是先数据库查询有三种方法  方法一:使用查询参数构造SQL Select语句,然后使用ADO Command 对象或                                                                                                 RecordSet 执行查询语句 方法二:使用ADOCom
VB 模拟数据库查询
VB 模拟数据库查询 VB 模拟数据库查询
vb6.0 连接数据库,查询,插入和修改
一:   创建连接 Public Function CreateSQLConn() As Boolean Const ProcName = "CreateSQLConn" Dim strConnection As String On Error GoTo ErrHandler 1       Set objSQLConn = New ADODB.Connection
高校数据库查询系统高校数据库查询系统
高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据库查询系统高校数据询
VB查询ACCESS数据库内容
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 人口=" 
VB双色球彩票包号程序(VB+ACCESS)
VB双色球彩票包号程序(VB+ACCESS) 双色球一直是我爱玩的一种彩票,但我中奖的机率却没有几次。后来我越发觉得,其它彩票有一些特定的规律:   1、范围。所有的数字加起来,不可能小于一个阶段,也不可能大于一个阶段,因为所有的数都是平等的,一个号码段里面,如果出现了小数,就一定会出现大数。   2、不大乎大奖,但小奖不掉。经过缩水后,你可能中不了一等奖,但二等奖和三等奖是跑不掉了。   3、顺序。双色球不像足彩,双色球的位置是可能换的,所以,当几组号码因为排列顺序不一样时,可以通过排序,让它再缩水。   当这样做下来之后,原本4千多万组彩票号码就只有近两万组号码了。如果你有这样的资金,你只要花5万余元人民币,就可以包号了。包号,就意味着:只要你买了,就能中,中一等奖希望不大,但二三等奖是跑不掉的。   本程序,仅供娱乐。彩票,小买可以让你愉快,大买可以让你发家,但也可能让你赔钱哦。
VB数据库查询示例程序
VB数据库查询示例程序,简单说明VB查询数据库
系统数据库查询
系统数据库查询,sql系统数据库查询
数据库通用查询系统
java课程设计(第二版)
基于AJAX的简单的学生信息查询系统——(3)MYSQL数据库的建立
接上(1)地址:https://blog.csdn.net/qq_40377374/article/details/80667895打开WAMP之后,右下角会出现该软件的图标,左键,选择mysql在次级菜单中选择mySQL控制台打开之后,是一个CMD。如果没有改动MYSQL的默认的用户名和密码的话。直接回车,进入到MYSQL数据库。因为MYSQL的初始的用户名为root,而密码则是为空。在命令行中...
简单的数据库查询系统窗口实现
一个简单的数据库查询系统界面实现,包括逻辑部分代码及窗口实现部分代码。压缩包还包括界面图,各控件逻辑关系图。
基于VB6开发的轻量级数据库查询客户端工具(附源码和安装)
基于VB6自主研发的轻量级数据库查询客户端工具,启动速度较快,所占资源较小。 附源码,对初学数据库编程的童鞋有所裨益! 1、支持SQLServer、Oracle、Sybase、DB2数据库平台 2、单句执行:可以提交单一的SQL语句给服务器执行。 3、多句一次执行:可以将多个SQL语句用空格或换行的方式进行隔离,程序会一次性提交给数据库服务器执行。(前提条件是语法通过) 4、多句依次执行:可以将多个SQL语句用分号‘;’隔开,程序会逐句提交。 5、执行指定的SQL语句:可以在SQL编辑框中选中部分语句执行,在SQL命令框中通过鼠标连续单击3次可以选择当前行。 6、在事务中执行SQL语句:将执行按钮上方的Trans 框选中,那么程序对于每次提交的SQL语句都是放在事务中执行的,执行不成功程序会进行回滚操作。程序默认不进行事务处理,因为有些语句不能在事务中执行。 版本修订记录: V3.6.0 16:08 2012/6/18 --支持DB2数据库平台,要求客户端安装 DB2 Run-Time Client Lite。 --支持数据库名的记忆功能。 V3.5.11 14:36 2012-5-12 --支持连接非缺省端口号的SQL Server平台。 V3.5.10 8:54 2009/12/22 --将OUT标签更名为Output。 V3.5.9 10:48 2009/8/19 --修订Bug:在Vista或Win7系统下主界面部分被遮盖显示不全的问题。 V3.5.8 --修订Bug:执行的存储过程没有返回结果集,在导出Excel时出现运行时错误。 V3.5.7 --界面标题栏增加当前连接数据库信息。 --修订死循环Bug,死3次后退出执行。 --修订最末语句分号后面跟若干回车符执行死循环的Bug。 V3.5.6 --还是使用TextBox控件作为SQL命令的输入框,RichTextBox控件的滚动条功能不太好用; --使用字符算法实现了双击SQL命令框选中当前行的功能(TextBox控件本身不支持)。 --修订了窗体在Resize时的Bug。 V3.5.5 --使用RichTextBox控件代替原有的TextBox控件SQL命令输入框(支持双击选中整行功能)。 --使用‘;’和‘回车换行’符号联合作为SQL命令逐个提交的分割标志符。 V3.5.4 --修订SQL日志文件记录错误的Bug。 V3.5.3 --修订系统未安装任何打印机的情况下导出Excel失败的Bug(设置打印页面横向时失败)。 V3.5.2 --修订运行目录没有可写权限导致记录日志失败无法提交SQL语句的Bug。 V3.5.0 --新增记录SQL语句日志的功能。 V3.4.0 --新增导出查询结果集到Excel文档的功能。 V3.3.4 --修改了窗体内部控件自动放缩的控制算法; --修改数据显示窗口支持滚轮鼠标的上下左右翻滚操作。 V3.3.0 --修改了连接ORACLE的连接字符串,要求客户端安装ODAC组件(OLEDB); --数据库下拉列表默认上次选择的数据项。 V2.0.0 --支持Sybase平台,要求客户端安装Sybase OLEDB组件; V1.0.0 --支持SQL Server平台,安装包中自带ADO组件。
vb 数据库查询实例
vb 数据库查询实例 多种sql语句的使用 很有参考价值
如何用VB建立数据库
最佳答案Visual Basic作为应用程序的开发“利器”也表现在数据库应用程序的开发上,它良好的界面和强大的控件功能使数据库编程变得简单多了。但即便如此,数据库应用程序的开发仍然算得上是VB编程中的难点,这是因为你不仅要熟悉VB中关于数据库编程方面的知识(当然这是十分简单的)还要了解数据库的知识。所以我们先介绍一下数据库的基本知识,算是学习数据库编程前的热身运动吧! 一、热身运动 首
VB源码实现添加环境变量和修改系统变量 的工具
VB6源码来的,也可以当工具用,我编译了exe的,当然里面也有源码。实现 添加环境变量和修改系统变量 对于 安装 java 或一些需要操作变量环境的安装 都是很方便。一工具在手,不怕会把变量境 设错。有工具一切都可以正确通过。
vb 数据库查询例子
一个使用vb做的数据库查询例子
谈VB中数据库查询的汉字匹配问题
谈VB中数据库查询的汉字匹配问题
VB操作Oracle数据库
Dim num,ora ora=&quot;ora&quot; set con=createobject(&quot;adodb.connection&quot;) 'con.open &quot;DRIVER={Microsoft ODBC for Oracle};Server=10.137.86.120;Uid=JXCS0115;Pwd=JXCS0115&quot; con.open &quot;DSN=ora120;UID=JXCS0115;PWD=...
vb+sql制作的一个学生信息管理系统
利用vb和sql做的一个完整的学生信息管理系统
VB学生成绩管理系统+SQL数据库(毕业论文+源代码)
本系统主要包括注册管理、界面管理、学生信息查询、添加、修改、删除和帮助等部分。其功能主要有: 学生信息的添加,包括输入学生基本信息和成绩。 学生信息的查询,包括查询学生基本信息和成绩。 学生信息的修改,包括修改学生基本信息和成绩。 学生信息的删除,包括修改学生基本信息和成绩。 用户名注册,包括普通用户注册、高级用户注册和超级用户注册。 登录用户密码修改,用户登录到系统可进行相应的用户密码修改。 超级用户对用户名的管理,包括添加新用户、修改用户密码、删除用户名和查询用户。 学生成绩管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
VB6基本数据库应用(八):模糊搜索与基于范围的搜索
同系列的第八篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/48402885 VB6基本数据库应用(八):模糊搜索与基于范围的搜索 前面的几章讲解了搜索的许多复杂的用法。然而提供再多的条件,还是无法满足我们的需求。因为我们不一定能够获得一个精确的条件来对数据进行检索。所以如果能够提供模糊的匹配,能使我们的搜索更加容易。
数据库的创建以及查询1
数据完整性 一个数据库就是一个完整的业务单元,可以包含多张表,数据被存储在表中 在表中为了更加准确的存储数据,保证数据的正确有效,可以在创建表的时候,为表添加一些强制性的验证,包括数据字段的类型、约束 数据类型 可以通过查看帮助文档查阅所有支持的数据类型 使用数据类型的原则是:够用就行,尽量使用取值范围小的,而不用大的,这样可以更多的节省存储空间 常用数据类型如下:...
VB中如何获取系统临时目录
    最近作CAD二次开发,希望能整合CAD文档进PLM系统,过程处理文件上下载时涉及如何获取系统临时目录,因VB不是自己强项,但是通过搜索引擎解决问题的能力还是不错的,找到解决办法后编写如下代码作个记录 Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength
VB数据库编程实现添加、查询、修改、删除
Private Sub Command1_Click()Form10.HideForm4.ShowEnd SubPrivate Sub Command10_Click()For i = 0 To 7If Text1(i).Text Exit ForEnd IfNext iIf i = 8 ThenMsgBox ("不能保存空记录!")Text1(0).SetFocusExit SubEnd IfI
access跨数据库查询示例
access跨数据库查询示例 两个示例sql查询语句
手把手教你做一个简单的VB数据库程序
        对初学者来说,做一个具有数据库功能的VB程序也许并不简单,我是一个初学者,永远的初学者,我也深深地感受到学习的困难,为了能摸索出一条学习VB数据库的方法,我找了很多例题,查阅了很多的资料,也尝试过了很多,甚至几天几夜没有睡过.尽管成就很小但是我体会到了从痛苦到快乐的过程.痛苦很长很长,转变为快乐其实也就在一瞬间.下面我简单做了一个VB小程序,希望对你们有帮助.(1)文件-新建-
VB 查询SQL SERVER数据库内容源码 工程下载
〓〓〓〓〓〓〓〓〓〓OpenSqlServer函数相关定义声明等 Start Public Conn As New ADODB.Connection Public OpenSqlOK As Boolean Public ShowSqlRsErr As Boolean '〓
VB下利用ADO技术访问Oracle数据库
VB下利用ADO技术访问Oracle数据库
在PWIN98上营造PHP4环境及建立数据库查询网页
在PWIN98上营造PHP4环境及建立数据库查询网页
【VB】学生信息管理系统 模块代码总结
公共模块另一位博主的模块代码添加函数executeSQL——执行SQL语句Public Function(功能) ExecuteSQL(ByVal SQL As String, msgstring As String) As ADODB.Recordset(记录集)'两个参数:SQL用来存放需要执行的SQL语句,msgstring用来返回执行的提示信息。对这两个参数进行数据类型定义,定义为字符串型。
VB 建立数据库
VB 建立数据库 VB 建立数据库 VB 建立数据库
数据库查询速度优化 建立索引
怎样优化数据库查询,使其速度更快。 索引的建立。
数据库分类统计、分组查询
SELECT 县区,SUM(第一孩_男),SUM(第一孩_女),SUM(第二孩_男),SUM(第二孩_女),SUM(三孩以上_男),SUM(三孩以上_女) FROM (    SELECT            CASE WHEN 孩次=1 AND 性别='男' THEN 1 ELSE 0 END AS 第一孩_男,              CASE WHEN 孩次=1 AND 性别
VB 建立棋盘
VB 建立棋盘 VB 建立棋盘 VB 建立棋盘
vb数据库查询
我在查询芯片数据库的内容时显示的是我全部的数据库内容,而不是我想要得数据,而且只能点击一次查询按键,再点程序就进入我自己写的错误提示里面了。希望大家能帮我解决,我是个新手第一次用VB写软件。下面是我查询界面的全部代码,想要我全部程序可以加我的QQ14215947或是留下邮箱我给发过去。(附件传不上来,请见谅) rnOption Explicit rnDim rs_find As New ADODB.Recordset rnrnrnPrivate Sub Command1_Click() rnOn Error GoTo cmderror rnDim find_date1 As String rnDim find_date2 As String rnIf Option1.Value = True Then rn sqlfind = "select * from 芯片库 where 品名 = '" & Combo1.Text & "'" rn rnEnd If rnIf Option2.Value = True Then rn find_date1 = Format(CDate(comboy(0).Text & "-" & _ rn combom(0).Text & "-" & combod(0).Text), "yyyy-mm-dd") rn find_date2 = Format(CDate(comboy(1).Text & "-" & _ rn combom(1).Text & "-" & combod(1).Text), "yyyy-mm-dd") rn sqlfind = "select * from 芯片库 where 进货日期 between #" & _ rn find_date1 & "#" & " and" & " #" & find_date2 & "#" rn rnEnd If rnrs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic rnAdodc1.Refresh rncmderror: rnIf Err.Number <> 0 Then rn MsgBox "请输入正确的查询条件!", vbOKOnly + vbExclamation, "警告" rnEnd If rnEnd Sub rnrnPrivate Sub Command2_Click() rnUnload Me rnEnd Sub rnrnPrivate Sub Form_Load() rnDim i As Integer rnDim j As Integer rnDim sql As String rn'If findok = True Then rn 'rs_data1.Close rn'End If rnsql = "select * from 芯片库 order by 品名 desc" rnrs_find.CursorLocation = adUseClient rnrs_find.Open sql, conn, adOpenKeyset, adLockPessimistic rnIf rs_find.EOF = False Then '添加品名 rn With rs_find rn Do While Not .EOF rn Combo1.AddItem .Fields(1) rn .MoveNext rn Loop rn End With rnEnd If rnFor i = 2001 To 2010 '添加年 rn comboy(0).AddItem i rn comboy(1).AddItem i rnNext i rnFor i = 1 To 12 '添加月 rn combom(0).AddItem i rn combom(1).AddItem i rnNext i rnFor i = 1 To 31 '添加日 rn combod(0).AddItem i rn combod(1).AddItem i rnNext i rnrnEnd Sub rnrnPrivate Sub Option1_Click() rn Option2.Value = False rnEnd Sub rnrnPrivate Sub Option2_Click() rn Option1.Value = False rnEnd Sub rnrnPrivate Sub Form_Unload(Cancel As Integer) rnrs_find.Close rnEnd Sub rn
vb 数据库查询
我的代码是这样的[code=VB] Private Sub Form_Load()rn rn Set db = New ADODB.Connectionrn db.Provider = "Microsoft.Jet.OLEDB.4.0"rn db.CursorLocation = adUseClientrn Dim dbFile As Stringrn dbFile = "Data Source=" & App.Path & "\库存管理.mdb;"rn db.Open dbFilern Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select 出入库单据.出入库类型, 出入库单据.编号, 出入库单据.日期, 供应商.名称, 部门.名称, 出入库分录.分录号, 物料.名称,计量单位.名称, 出入库分录.实收数量, 出入库分录.单价, 仓库.名称" _rn& " from 出入库单据,出入库分录,供应商,物料,仓库,部门,计量单位 where 出入库单据.编号=出入库分录.编号 " _rn& " and 出入库单据.供应商代码= 供应商.代码 " _rn& " and 出入库单据.部门代码= 部门.代码 " _rn& " and 出入库分录.收料仓库代码= 仓库.代码 " _rn& " and 出入库分录.物料编码=物料.代码 " _rn& " and 出入库分录.计量单位代码=计量单位.代码 " _rn& " and 出入库单据.出入库类型 like '%" & frmcxsj.crklx & "%' " _rn& " and 出入库单据.日期 like '%" & frmcxsj.sj & "%' " _rn& " and 部门.名称 like '%" & frmcxsj.bm & "%' " _rn& " and 供应商.名称 like '%" & frmcxsj.gys & "%' " _rn& " order by 出入库单据.编号", db, adOpenStatic, adLockOptimisticrn Set grdDataGrid.DataSource = adoPrimaryRS[/code]结果在datagrid控件中只显示出一条记录,我的数据库中满足条件的有两条记录
vb查询access数据库并返回显示结果
绝对原创的vb查询access数据库 本程序功能如下: 1.将数据库mycnno.mdb中的数据显示在控件datagrid中 2.用文本框1输入要查询的学号,文本框2显示查询的结果
录入信息表(VB6.0代码编写)
内附源代码 录入信息表(VB6.0代码编写) 是一个相对简单的录入系统
VB数据库查询
VB数据库模糊查询方法,挺全的,值得收藏!
VB6实现多线程数据库大数据查询
多线程在.net中实现是非常容易的。 VB6本身无法实现多线程编程,但是通过第三方控件,也可以很完美的实现多线程。 本例实现的是在主界面开一个新的线程在后台完成数据查询并根据提供的每页显示的数据行数计算出总页数,然后返回给主界面并显示在表格中。在等待查询的过程中,主界面会给用户简单的提示,提示用户后台正在处理数据。 例子中用到了Threadfactory 4 和VSFlexGrid8。站内都有资源。
文章热词 机器学习教程 Objective-C培训 交互设计视频教程 颜色模型 设计制作学习
相关热词 mysql关联查询两次本表 native底部 react extjs glyph 图标 数据库查询课程 数据库查询课程