Question

VB ACCESS 中提取数据 怎么写 比如在A表中有个 登记时间 字段，提取当日的数据。

Answer 1

Private Sub Command1_Click()
Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset
Dim cnStr As String,strSql As String  
rs.CursorLocation = adUseClient
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyAccess.mdb;Persist Security Info=False;"
cn.Open cnStr  '打开连接
strSql="select * from 表名 where DateValue(登记时间)=Date()"  ’编写SQL查询语句，提前登记时间为今天的记录。表名、数据库名和存储位置请按实际调整
rs.Open sqlStr, cn  '打开记录集
'现在您就可以浏览记录集rs中所提取出来的当天数据了
'==========
'==========
'关闭、释放cn和rs对象
rs.Close
Set rs=Nothing
cn.Close
Set cn=Nothing
End Sub

注意代码需要引用ADO类库