最简单农家乐设计图片:请问在VB6.0中如何删除用户?谢谢
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/05 09:37:08
Private Sub menuDelete_Click()
Dim txtSQL As String
Dim MsgText As String
Dim intCount As Integer
Dim mrc As ADODB.Recordset
If frmUser.msgList.Rows > 1 Then
MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
Exit Sub
txtSQL = "select * from user_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
If MsgBox("真的要删除此用户吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
intCount = frmUser.msgList.Row
txtSQL = "delete from user where ygid=" ' & Trim(frmUser.msgList.TextMatrix(frmUser.msgList.Row,1))&""
Set mrc = ExecuteSQL(txtSQL, MsgText)
frmUser.txtSQL = "select * from user"
frmUser.Show
End If
End If
End Sub
Dim txtSQL As String
Dim MsgText As String
Dim intCount As Integer
Dim mrc As ADODB.Recordset
If frmUser.msgList.Rows > 1 Then
MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
Exit Sub
txtSQL = "select * from user_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
If MsgBox("真的要删除此用户吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
intCount = frmUser.msgList.Row
txtSQL = "delete from user where ygid=" ' & Trim(frmUser.msgList.TextMatrix(frmUser.msgList.Row,1))&""
Set mrc = ExecuteSQL(txtSQL, MsgText)
frmUser.txtSQL = "select * from user"
frmUser.Show
End If
End If
End Sub