VB用ACCESS按日期查询然后显示在datagrid上面

2024-12-13 06:39:39

推荐回答（4个）

回答1：

可以用Adodc控件结合Datagrid控件（至于怎样添加这两个控件你应该知道吧）
Adodc.Recordsource="select *（或者是你需要的一些字段名） from 表 where 日期字段＝#" & 日期表达式 & "#"（不知道你是不是需要这样的查询，如果是一段时间范围，也可以用between……and……，但都别忘了＃号）
Set Datagrid.Datasource=Adodc
Datagrid.Refresh
由于时间比较仓促，也没有做验证，大致意思是这样，具体的事件过程你再自己往里代入吧。

补充回答：
楼主正好用我上面提到的between……and……呀
Adodc.Recordsource="select * from a where b between #" & DTPicker1.value & "# and #" & DTPicker2.value & "#"
然后就和上面的一样了，当然日期控件你事先需要设置好显示方式。

回答2：

哥们；我自己做了一个音乐播放器里面有一段代码你看看研究研究

不懂可以Q我 164498180

Dim adocnn As ADODB.Connection
Dim adorst As ADODB.Recordset
Dim cnnstr As String
Dim sqlstr As String
Dim mdbpath As String

Set adocnn = New ADODB.Connection
Set adorst = New ADODB.Recordset
adocnn.CursorLocation = adUseClient
mdbpath = App.Path & "\playlist.mdb"
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbpath & ";Persist Security Info=False"
sqlstr = "select * from playlist where 歌曲名='" & filename & "'"
adocnn.Open cnnstr
adorst.Open sqlstr, adocnn, adOpenKeyset, adLockOptimistic
If adorst.RecordCount > 0 Then
MsgBox "歌曲已经存在！", vbExclamation, "提示"
Form2.filename.Text = ""
Exit Sub
End If
adorst.AddNew
adorst.Fields("歌曲名") = filename
adorst.Fields("歌曲存储地址") = filedir
adorst.Fields("歌曲文件格式") = filetype
adorst.Update
Form2.filename.Text = ""
adorst.Close
adocnn.Close

我不习惯用控件，喜欢用对象。

下面是我的百度空间的链接：http://hi.baidu.com/0512109051
里面有一个完整的音乐播放器的源代码，设计时界面。里面有数据库的操作。你可以看看。

回答3：

引用ADO
声明RS变量（dim Rs as new adodb.recordset)

rs.open "select ... from ... where ... order by ...",sql边接字符串,1,1

set datagrid1.datasource=rs

回答4：

多次想这个问题，大学值不值得读？可能自己的主观因素也很多，有一段时间沉溺网络，根本没