急急急!!!高手请进!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
...全文
66 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
流梓 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
  • 打赏
  • 举报
回复
没提交事务!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧