Question

vb6.0+access 数据库 ，表1，有 名称，状态，日期字段 表2，有名称，日期字段。

vb6.0+access
数据库 ，表1，有 名称，状态，日期字段
表2，有名称，日期字段。

请问如何根据表2的名称字段数据去查找表1当天日期相同的数据 …？

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 & "\MyDB.mdb;Persist Security Info=False;"
cn.Open cnStr  '打开连接
'编写SQL查询语句，提取日期为今天的记录。数据库名和存储位置请按实际调整
'最终的SQL代码可能需要根据那两张表的结构、关系和具体需求做适当调整
'我这里只是做了大概的猜测
strSql="select 表1.* from 表1,表2 where 表1.名称=表2.名称 and 表1.日期=Date() and 表2.名称='张三' "  
rs.Open sqlStr, cn  '打开记录集
Set Datagrid1.DataSource =rs  '用datagrid显示提取出来的数据
End Sub

有疑问可以继续追问