Option Explicit
Dim a As Integer

Private Sub Command1_Click()
Dim lishi As New ADODB.Recordset
Dim sql As String
sql = "select * from 电机A组 "
lishi.Open sql, conn, adOpenKeyset, adLockPessimistic
If a = 1

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 雪中向日葵

    16人对此回答表示赞同

    见过网页中的“第一个”、“下一个”、“上一个”、“最后一个”等等?这是查询数据库记录的,同样你查询数据库,最起码有二个按钮,最好使用数据库记录数或记录信息查询,仅仅一个按钮在数据库记录少时还能查询,但在数据库记录多了后,非常困难。
    就你现在的程序,可以这样修改:
    Private Sub Command1_Click()
    Dim lishi As New ADODB.Recordset
    Dim sql As String
    sql = "selec
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Linda林晓达

    4人对此回答表示赞同

    这段代码要修的地方满多,要不你直接加我Q我帮你改了?
    我Q 1296303.
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部