VB查询怎样写代码

发布网友发布时间：2022-04-29 18:27

共3个回答

热心网友时间：2022-06-19 01:35

想学VB我教你呀。
代码如下：
On Error Resume Next
If Combo1.Text = "" Then
datagrid1.visible=false

Else

Dim cnn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim s1 As String

Set cnn1 = New Connection

s1 = "select * from customer where 省份 like '%" & Trim(Combo1.Text) & "%' order by 更新的时间 desc "

cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"

cnn1.Open App.Path & "\customer.mdb"

Set rs1 = New Recordset
rs1.CursorLocation = adUseClient

rs1.Open s1, cnn1, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = rs1

热心网友时间：2022-06-19 01:35

2楼写的知识查询哦，没有涉及过滤哈

热心网友时间：2022-06-19 01:35

0分问这个问题吗?

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com