Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
rs.Open "select * from YJCS where XLEFT<"&X, And XRIGHT>"&X,and YLEFT<"&Y, And YRIGHT>"&Y ", cnn, adOpenKeyset, adLockOptimistic
(上面第二个AND位置显示缺少表达式)
rs.Fields("X1") = xnow + x2 - x1
rs.Fields("Y1") = ynow + y2 - y1
rs.Update
rs.Close
End Sub
vb6.0select后跟多个条件符号问题(我用的是access)
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
- 知常曰明 2015-04-26 08:51关注
"select * from YJCS where XLEFT< " & X & " And XRIGHT>" & X & " And YLEFT<" & Y & " And YRIGHT>" & Y
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 关于#目标检测#的问题:大概就是类似后台自动检测某下架商品的库存,在他监测到该商品上架并且可以购买的瞬间点击立即购买下单
- ¥15 神经网络怎么把隐含层变量融合到损失函数中?
- ¥30 自适应 LMS 算法实现 FIR 最佳维纳滤波器matlab方案
- ¥15 lingo18勾选global solver求解使用的算法
- ¥15 全部备份安卓app数据包括密码,可以复制到另一手机上运行
- ¥20 测距传感器数据手册i2c
- ¥15 RPA正常跑,cmd输入cookies跑不出来
- ¥15 求帮我调试一下freefem代码
- ¥15 matlab代码解决,怎么运行
- ¥15 R语言Rstudio突然无法启动