UC知道VB中用 DataGrid做查询
来源：百度知道 编辑：UC知道 时间：2024/05/20 23:28:34
我用的是ADODC控件和ACCESS数据库,作一个科研经费管理系统,现在要按照项目负责人,项目下达部门,项目名称,经费来源,来进行查询,请问该怎么编写代码啊,各位帮帮我吧
:给你个例子(请理论联系实际一下):
Private Sub Command4_Click() '显示数据
Set Rs4 = New ADODB.Recordset
Dim sSQL As String
Dim J As Integer
DT1 = Format(Trim(D1.Value), "yyyy-mm-dd")
DT2 = Format(Trim(D2.Value), "yyyy-mm-dd")
sSQL = " Select * from XS_TAB WHERE RQ >='" & DT1 & "' AND RQ<='" & DT2 & "'" ' Order by id "
Rs4.Open sSQL, mConn, adOpenKeyset, adLockOptimistic
J = Rs4.RecordCount
MsgBox "表内记录数:" + CStr(Rs4.RecordCount) + "条.", vbOKOnly, "信息提示"
Set DataGrid1.DataSource = Rs4
DataGrid1.Refresh
End Sub
--------
按照你的环境,改改就行,10分钟!!
--------
快动手吧! 你能行!!!没问题!!! 分我不要了......
模糊查询么？把你的要求具体点
sql = sql & " 学号 like'" & Trim(Text1.Text) & "%'"
模糊查询