网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
06月12日漏签0天
vb吧 关注:156,126贴子:1,166,137
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 7回复贴,共1页
<<返回vb吧
>0< 加载中...

求教:关于ADO连接Access后按时间段查询的问题

  • 只看楼主
  • 收藏

  • 回复
  • ∑冰冰茶
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
如下图,我设置的时间段是在2018/10/15 09:24~2018/10/15 14:24,但查询的结果会有这个时间段以外的内容,请教下是啥原因导致的


  • ∑冰冰茶
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
代码如下:
Dim SqlStr As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
DS = DataStart.Text
DE = DataEnd.Text
SqlStr = "Select*From DATA Where T3p1_P_logFileDbTime Between #" + DS + "# and #" + DE + "#"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA.mdb"
Set cmd.ActiveConnection = Conn
cmd.CommandText = SqlStr
Rs.CursorLocation = adUseClient
Rs.Open cmd, , adOpenDynamic, adLockBatchOptimistic
Set Exc1.DataSource = Rs
End Sub
Private Sub Form_Load()
DataStart.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
DataEnd.Text = Format(Now, "yyyy/mm/dd hh:mm:ss")
End Sub


2025-06-12 04:31:41
广告
  • tzchf
  • 递归爆栈
    7
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
混用PM


  • ∑冰冰茶
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


  • 战争之王黄仁勋
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
编译成exe再运行试试,F5运行执行sql有时候有问题。


  • ∑冰冰茶
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
问题已经解决,是Access数据库时间那个字段格式被设置成了文本,所以才导致了这个情况


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 7回复贴,共1页
<<返回vb吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示