一简单查询 简单的TransactSQL查询只包括选择列表FROM子句和WHERE子句它们分别说明所查询列查询的 表或视图以及搜索条件等例如，下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段SELECT nicknam。
1准备数据 将原有的数据源下拉一行，然后在表格中复制原有数据源的标题行，粘贴在右边空白列 为什么要把原始数据下拉一行， 因为我们会在右边第2行输入条件数据，如果筛选的时候第2行被隐藏了，后面没法输入条件了所以为。
有各最简单方法就是使用ado控件，它可以方便的链接数据库，具体方法你去网上查查看，有很多介绍的 在vb中利用ado控件执行查询可以这样 adodc1recordsource=quot你写的查询语句quot然后你把返回的adodc1记录集赋给datagrid控件 如dd。
核心步骤1，讲两张数据表放进同一个excel文件内，可以在同一个sheet或者不同sheet选择对应的数据区域，右键，“定义名称”说明这里，数据的第一行是列名，定义的名字，是表名2选择“数据”“其他来源”。
InStrstart， string1， string2， compare这个函数需要的的参数是起始位置主体字符串要查找的字符串Compare是 VB中如何实现文本查找功能 实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一。
st = quotA 花 报价 15quot vbCrLf quotB 草 报价 125quotst1 = Splitst， vbCrLfFor i = 0 To UBoundst1jg = jg + ValSplitst1i， quot quot3Next MsgBox jg #39按文本 jg = 0 st = quotA 花 报价。
Dim xlBook As ExcelWorkbook #39定义工件簿类 Dim xlsheet As ExcelWorksheet #39定义工作表类 Private Sub Initialss As StringDim i， j As Integer Set xlApp = CreateObjectquotExcelApplicationquot #39创建EXCEL应用类。
#391个Label，Caption=quot姓名quot1个TextBox，用户输入要查询的学生姓名，Name=quotText1quot，Text=quotquot1个CommandButton，Name=quotCommand1quot，Caption=quot查询成绩quot#39Private Declare Function GetPrivateProfileString Lib quotkernel32quot。
vbUseCompareOption 1 使用Option Compare 语句设置执行一个比较vbBinaryCompare 0 执行一个二进制比较vbTextCompare 1 执行一个按照原文的比较vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的。
ZHMINGEN 采纳率64% 擅长 编程语言 数据库DB VB 其他回答 看一下附件按你说的写好了，顺便给你写了个用datagrid显示的例 子，比你用text5显示好 你用text5 确定搜索结果只有一个的时候还好，如果有多个结果，就比较麻烦了。
设计完之后，使用VB建立一个窗口程序，然后添加一个输入栏，然后加一个按钮做查询，然后添加一个文本框做显示最后在按钮中添加查询的事件，使用SQL命令将查询到的结果返回，并显示在文本控件上。
s = InputBoxquot请分别输入要查询的同学名字，留空结束quotFor i = 0 To 9 If stdsiName = s Then ReDim Preserve newstdsncnewstdsncName = stdsiName newstdsncScore0 = stdsiScore。
用正则 quot\d+元“这里有篇文章专门讲正则的。
书写格式NOAdodc1RecordSource = quotselect * from 操作票 where 票号=#39quot Text6text quot#39quot 请修改后，再试－－－ 这是基本功呀数字，字符，日期 各自不同，你应该会写才行祝通过。
sql=quotinsert into ClassName，Sex，Age Values#39Jackie#39，#39Man#39，#3999#39quot#39新增 sql=quotselect from Class where age=#3999#39quot#39查询 sql=quotdelete from class where age=#3999#39quot#39删除 sql=quotupdate class set Name=#39Jackie。
简单 command1里写入 Sub command1_clickOpen quotF\foundtxtquot For Input As #1 #39Line Input #1， temp If InStrtemp， Text1Text 0 Then List1AddItem temp End If Close #1 End Sub。
