UC知道vb调取数据
来源：百度知道 编辑：UC知道 时间：2024/05/28 06:17:31
我想把drv表中的数据通过更新的方式到drv2，删除drv中的该数据，可多选条数据一起更新到drv2表中，声明：drv2中之前没有drv中的任何数据
access数据库
Private Sub zktj_Click()
Dim strsql As String
Dim strsql1 As String
xh1 = Trim(txt_xh)
zktj.Enabled = False
If connAccessDbOpen = True Then
connAccessDbClose
connAccessDbOpen
strsql1 = "delete from drv where 学号= '" & xh1 & "' "
strsql = "insert into drv2 select * from drv where 学号='" & xh1 & "'"
mAconn.Execute (strsql)
mAconn.Execute (strsql1)
End If
zktj.Enabled = True
MsgBox "添加成功！"
End Sub
标准表达式中数据类型不匹配。哪里有问题
strsql1 = "delete from drv where 学号 = '" & sc1 & "' "
mAconn.Execute (strsql1)
标准表达式中数据类型不匹配。哪里有问题
access数据库
Private Sub zktj_Click()
Dim strsql As String
Dim strsql1 As String
xh1 = Trim(txt_xh)
zktj.Enabled = False
If connAccessDbOpen = True Then
connAccessDbClose
connAccessDbOpen
strsql1 = "delete from drv where 学号= '" & xh1 & "' "
strsql = "insert into drv2 select * from drv where 学号='" & xh1 & "'"
mAconn.Execute (strsql)
mAconn.Execute (strsql1)
End If
zktj.Enabled = True
MsgBox "添加成功！"
End Sub
标准表达式中数据类型不匹配。哪里有问题
strsql1 = "delete from drv where 学号 = '" & sc1 & "' "
mAconn.Execute (strsql1)
标准表达式中数据类型不匹配。哪里有问题
我觉得得分两步做
插入到drv2
insert into drv2 select * from drv where 条件
删除数据
delete from drv where 条件
补充:
你的drv2和drv表的结构必须完全一样,还有你的学号如果是数值型,两边就不要用单引号了