急急急!!!高手请进!vb中删除sql server中表的记录出了问题!!!

philyoung 2003-03-27 09:45:09
Private Sub Command1_Click()
Set db = New adodb.Connection
Set rs = New adodb.Recordset
db.ConnectionString = "driver={SQL Server};server=HIT- PHILYOUNG;database=wangluo;Persist Security Info=False;User ID=sa;Password=phil0201;"
db.Open
rs.Open "select admin_name,admin_pwd from tbladmin where admin_name='" & Text1.Text & "'", db, adOpenStatic, adLockReadOnly
If rs.EOF = True And rs.BOF = True Then
MsgBox "没有这个管理员账户!请输入正确的管理员账户!!", , "提示"
rs.Close
Text1.Text = ""
Text1.SetFocus
ElseIf Text1.Text = "admin" Then
MsgBox "超级管理员禁止删除!", vbExclamation, "提示"
'删除
Else
Dim strsql As String
strsql = "delete from tbladmin where admin_name=" & Text1.Text
'表示要在表中删除的行的对应admin_name为text1.text中显示的内容
db.Execute (strsql)
db.Close
MsgBox "此管理员已经被删除!"
Unload Me
End If
End Sub
...全文
10 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
流梓 2003-03-27
可以试试用:command对象。
回复
lxcc 2003-03-27
up
回复
lihonggen0 2003-03-27
strsql = "delete from tbladmin where admin_name='" & Text1.Text & "'"

db.Execute (strsql)
回复
ssoonzhang 2003-03-27
strsql错了,admin_name是字符串吧,应该加'',如zw_yu所写
回复
zw_yu 2003-03-27
strsql = "delete from tbladmin where admin_name='" & Text1.Text & "'"
回复
liuxum 2003-03-27
没提交事务!
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-27 09:45
社区公告
暂无公告