Question

VB中使用update操作SQL数据库问题

Answer 1

连接字符串是不是差参数?
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()

Answer 2

两个地方你注意检查一下：
1、Text1.text的内容是不是严格地与编号的一样，由于软件的关系，建议Text1.Text最保险改用
trim(Text1.text)
2、你的计数这个字段，我怀疑是一个数值型的字段，而如果
day(Now)是3的话，你实际上是用'3'去替换，这可能什么导致数据类型不一致瑞拒绝替换

Answer 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
这就是一个删除按钮的代码，希望对你有帮助