VB 数据库二次筛选
来源:百度知道 编辑:UC知道 时间:2024/05/15 09:13:12
数据库用adodc1 和 datagrid 连接和显示
点击查询以后
datagrid 显示为
编号 名称 数量 操作人员
01 机柜 12 001
02 电脑 98 002
……
现在有text1 我在text1输入 然后点击按钮 command1 只要是名称是电脑的都保留,其他的都去掉,不是删除数据库 只是删除datagird上的显示。怎么写?
我没有说清楚 不要 连接数据库,直接在上面筛选,用 datagrid 自带的属性
点击查询以后
datagrid 显示为
编号 名称 数量 操作人员
01 机柜 12 001
02 电脑 98 002
……
现在有text1 我在text1输入 然后点击按钮 command1 只要是名称是电脑的都保留,其他的都去掉,不是删除数据库 只是删除datagird上的显示。怎么写?
我没有说清楚 不要 连接数据库,直接在上面筛选,用 datagrid 自带的属性
如果不连接数据库,我能想到的办法是让不符合条件的整条记录显示为空行,但删除是做不到的,要删除就得把数据库相应的记录也删除,否则会出错
With DataGrid1
.Scroll 0, 10000000
dr = .FirstRow + .VisibleRows - 1
dl = .Columns.Count
For i = 0 To dr - 1
.Row = i
.Col = 1 '名称所在的列数减1之后的序号
If .Text <> Text1.Text Then '比较名称是否和text1一致,不一致就进行处理
For j = 0 To dl - 1
.Row = i
.Col = j
.Text = ""
Next
End If
Next
End With
SELECT * FROM DATA WHERE 名称=‘电脑’
SQLstr = "SELECT * FROM tb WHERE 名称= '" & text1.text & "'"
private sub command1_click()
datagrid1.datasource=adodc1
adodc1.recordsource="SELECT * FROM TableName WHERE 名称='" & text1.text & "'"
adodc1.refresh
end sub