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

答案:1 悬赏:50 手机版

解决时间 2021-01-27 09:54

提问者网友：謫仙
2021-01-27 06:29

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

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

最佳答案

五星知识达人网友：鱼忧
2021-01-27 07:17

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有疑问可以继续追问

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

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

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