奥司他韦说明书:请问在VB6.0中如何删除用户?谢谢

来源：百度文库编辑：杭州交通信息网时间：2024/04/20 10:26:01

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

请问在VB6.0中如何删除用户?谢谢在WINXP中如何禁止用户删除文件?谢谢! 如何在XP中删除一个用户？请问vb6.0中如何将Label控件变成透明的？谢谢您！！如何在vb6.0中添加其他控件？如何在vb6.0中显示更新过数据库如何在VB6.0中同时调用两个表格啊？请问在VB6.0中怎样获取本机IP？请问如何在控制面板中删除用户?我待机多,现在十个程序运行了 vb6中如何实现安全删除可移动磁盘？