VB中使用update操作SQL数据库问题
3个回答
展开全部
连接字符串是不是差参数?
ADOConn.ConnectionString
=
"连接数据库的字符串"
ADOConn.CursorLocation
=
ADODB.CursorLocationEnum.adUseClient
ADOConn.Open()
Adors.Open("update
员工信息
set
计数
=
'"
&
Day(Now)
&
"
'
where
编号='
"
&
Text1.Text
&
"
'",
ADOConn,
ADODB.CursorTypeEnum.adOpenStatic,
ADODB.LockTypeEnum.adLockOptimistic)
ADOConn.Close()
ADOConn.ConnectionString
=
"连接数据库的字符串"
ADOConn.CursorLocation
=
ADODB.CursorLocationEnum.adUseClient
ADOConn.Open()
Adors.Open("update
员工信息
set
计数
=
'"
&
Day(Now)
&
"
'
where
编号='
"
&
Text1.Text
&
"
'",
ADOConn,
ADODB.CursorTypeEnum.adOpenStatic,
ADODB.LockTypeEnum.adLockOptimistic)
ADOConn.Close()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
两个地方你注意检查一下:
1、Text1.text的内容是不是严格地与编号的一样,由于软件的关系,建议Text1.Text最保险改用
trim(Text1.text)
2、你的计数这个字段,我怀疑是一个数值型的字段,而如果
day(Now)是3的话,你实际上是用'3'去替换,这可能什么导致数据类型不一致瑞拒绝替换
1、Text1.text的内容是不是严格地与编号的一样,由于软件的关系,建议Text1.Text最保险改用
trim(Text1.text)
2、你的计数这个字段,我怀疑是一个数值型的字段,而如果
day(Now)是3的话,你实际上是用'3'去替换,这可能什么导致数据类型不一致瑞拒绝替换
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private
sub
command2_click()
if
adodc1.recordset.eof
=
false
then
c
=
msgbox("您确认要删除该记录吗?",
vbokcancel,
"删除提示信息")
if
c
=
vbok
then
adodc1.recordset.delete
adodc1.recordsource
=
"select
*
from
人员表"
adodc1.refresh
end
if
else
msgbox
"当前数据库中没有可删除的数据记录",
vbokonly,
"提示信息"
end
if
end
sub
这就是一个删除按钮的代码,希望对你有帮助
sub
command2_click()
if
adodc1.recordset.eof
=
false
then
c
=
msgbox("您确认要删除该记录吗?",
vbokcancel,
"删除提示信息")
if
c
=
vbok
then
adodc1.recordset.delete
adodc1.recordsource
=
"select
*
from
人员表"
adodc1.refresh
end
if
else
msgbox
"当前数据库中没有可删除的数据记录",
vbokonly,
"提示信息"
end
if
end
sub
这就是一个删除按钮的代码,希望对你有帮助
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询