高手请教数据库编程问题，很急！谢谢！

Question

高手请教数据库编程问题，很急！谢谢！
Private Sub CmdSjcl_Click()
    Do While Not Adodc1.Recordset.EOF
        If Adodc1.Recordset("SBSJ1").Value = "07:15" Then
        Adodc1.Recordset("SBSJ1").Value = "07:45"
            Adodc1.Recordset.Update
            Adodc1.Recordset.MoveNext        Else
        Adodc1.Recordset.MoveNext
        End If
        
    Loop
    
End Sub上面我是只是处理07:15改为07:45
现在我想一次性全部处理
 07：16改为07:47
  07：18改为07:48
  07：19改为07:49
  ;;;;
  07：30改为08:00在这里面怎么加入这些条件，谁来告诉我，谢谢！

Answer 1

看你的意思是要在每个值后加上半小时吧,可以这样:Adodc1.Recordset("SBSJ1").Value = 
  Mid(DateAdd("n", 30, Adodc1.Recordset("SBSJ1").Value), 1, 5)
Adodc1.Update
Adodc1.Movenext

Answer 2

是啊
 Do While Not Adodc1.Recordset.EOF
        Adodc1.Recordset("SBSJ1").Value = Mid(DateAdd("4", 30, Adodc1.Recordset("SBSJ1").Value), 1, 5)
        Adodc1.Recordset.Update
        Adodc1.Recordset.MoveNext    Loop但提示无效的过程 
Adodc1.Recordset("SBSJ1").Value = Mid(DateAdd("4", 30, Adodc1.Recordset("SBSJ1").Value), 1, 5)

Answer 3

你"SBSJ1"字段的类型是什么??
Mid(....)返回的String类型,是不是跟你字段的类型不符合??自己转换一下嘛,要灵活点

Answer 4

conn.execute("update 表名 set sbsj1='07:47' where sbsj1='07:16'")
conn.execute("update 表名 set sbsj1='07:48' where sbsj1='07:18'")
.............