向数据库中删除记录时出现“标准表达式中数据类型不匹配”??

pdy530 2008-04-04 04:16:39
删除事件代码:
Private Sub cmdDelete_Click()
''如果出错,则显示错误代码
On Error GoTo errHandler

If MsgBox("要删除记录?", vbYesNo + vbQuestion + vbDefaultButton2, "确认") = vbYes Then
''通过在DataEnv.Con中执行SQL命令,来删除记录
DataEnv.Con.Execute "delete from qqshiming where qq ='" & txtqqnum.Text & "'"

DataEnv.rsqqshiming.MoveNext
If DataEnv.rsqqshiming.EOF Then DataEnv.rsqqshiming.MoveLast
''刷新用户导航的网格控件
Call RefreshGrid
End If

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "错误"
End Sub

以上代码中将delete from qqshiming where qq ='" & txtqqnum.Text & "'"改成
delete from qqshiming where name ='" & txtname.Text & "'"又可以删除记录?
不知道到时说明原因!但是修改成按姓名字段删除又会删除同名的记录,按qq字段就没有重复的QQ号码。
请教高手指点!
还有就是更新事件中出现“在对应所需名称或序数的集合中,未找到项目!”,但是记录又是添加到数据库中了的!
更新代码:
Private Sub cmdUpdate_Click()
''更新所添加或者修改的记录
On Error GoTo errHandler:

Dim str As String
str = txtqqnum.Text

With DataEnv.rsqqshiming
.Fields("qq") = txtqqnum.Text
.Fields("name") = txtname.Text
.Fields("sex") = Cbosex.Text
.Fields("age") = txtage.Text
.Fields("from") = txtfrom.Text
.Fields("tel") = txttel.Text
.Fields("add") = txtadd.Text
.Fields("beizhu") = txtbeizhu.Text
.Fields("web") = txtweb.Text
.Fields("mail") = txtmail.Text
.Fields("time") = txttime.Text
.Update
End With
mbClose = True

If DataEnv.rssqlseek.State = adStateClosed Then DataEnv.rssqlseek.Open
''刷新右端用以导航的网格控件
Call RefreshGrid
''根据记录集中记录的个数,改变各个按钮的状态
Call ChangeBrowseState

''定位到刚刚添加或者修改过的记录
DataEnv.rssqlseek.MoveFirst
DataEnv.rssqlseek.Find "serial='" & str & "'"
Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, " 错误"
End Sub
以上代码中字段与数据库中字段全部相符!
...全文
147 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
以后需再关注,现在先帮你顶一下
回复
pdy530 2008-04-04
谢谢1楼的朋友!问题全部解决!
回复
pdy530 2008-04-04
更新事件的代码已经解决,删除事件还是头疼!
回复
把.Fields("qq")换成索引的方式,貌似from是关键字。

.Fields(0) = txtqqnum.Text
.Fields(1) = txtname.Text
.Fields(2) = Cbosex.Text
……
回复
DataEnv.Con.Execute "delete from qqshiming where qq =" & txtqqnum.Text
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-04 04:16
社区公告
暂无公告