vb.net表格查询 vb数据库查询

VB.NET查表

直接打开EXCEL用CTRL+F ，可以直接定位到符合条件的数据；或用指定条件筛选

成都创新互联主营上海网站建设的网络公司,主营网站建设方案,重庆APP软件开发,上海h5成都微信小程序搭建,上海网站营销推广欢迎上海等地区企业咨询

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

If Not c Is Nothing Then

p = c.Address

c.Interior.ColorIndex = 4

q = q c.Address vbCrLf

Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address p

End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

q, vbInformation + vbOKOnly, "查找结果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

系统bug，网络问题。

1、系统bug是vb.nettsql数据库软件系统出现了问题导致数据表不存在，等待官方修复即可。

2、网络问题是自身设备连接的网络出现较大波动，导致vb.nettsql数据库软件不存在，更换网络重新打开即可。

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容