出现的错误　　附件图片剪切了下来

　　代码如下

Private Sub Command2_Click()
Set rs2 = New Recordset
rs2.Open "Update tusers set mRemain='" & addmoney.Text & "'where sCardid='" & cardid.Text & "'", conn, adOpenDynamic, adLockOptimistic, -1
rs2.Close
End Sub

看样子是数据库里有个Money类型，估计是数值类型。

你CardID貌似也是个ID啊，是不是也不是字符串？

数据库里字符串'123456'和数值123456很不一样的，字符串查询的时候用单引号。

[CODE]Private Sub Command2_Click()
Set rs2 = New Recordset
rs2.Open "Update tusers set mRemain=" & addmoney.Text & " where sCardid='" & cardid.Text & "'", conn, adOpenDynamic, adLockOptimistic, -1
rs2.Close
End Sub[/CODE]

表的 类型都在这 你帮我看看吧 该怎么改啊 谢谢了 我修改不了啊

谢谢你啊  我已经找到错误了  也知道怎么该了   多亏了你哈   谢谢

你的数据库很不错的，数据类型在字段名里都表示出来了。

总结一下：数据库里字符串'123456'和数值123456很不一样的，字符串查询的时候<=>用单引号。

单凭这个不能说数据库很不错.
还是看数据约束.规范化.等等.

起码就这点我一直没做到

。。。。。。

呵呵 我菜……