UC知道VB报错，关闭对象时，不允许操作
来源：百度知道 编辑：UC知道 时间：2024/07/02 01:42:44
Private Sub Command1_Click()
p1 = Trim(Text1.Text)
p2 = Trim(Text2.Text)
If p1 <> p2 Or p1 = "" Or p2 = "" Then
MsgBox ("两次输入不同或输入为空,请重新输入")
Text1.Text = ""
Text2.Text = ""
p1 = ""
p2 = ""
End If
If p1 <> "" Or p2 <> "" Then
Adodc1.RecordSource = "delete from xuesheng where number = " & p1
Adodc1.Refresh
End If
End Sub
它也帮你删除掉了 但是最后还是弹出一个框 关闭对象时，不允许操作
p1 = Trim(Text1.Text)
p2 = Trim(Text2.Text)
If p1 <> p2 Or p1 = "" Or p2 = "" Then
MsgBox ("两次输入不同或输入为空,请重新输入")
Text1.Text = ""
Text2.Text = ""
p1 = ""
p2 = ""
End If
If p1 <> "" Or p2 <> "" Then
Adodc1.RecordSource = "delete from xuesheng where number = " & p1
Adodc1.Refresh
End If
End Sub
它也帮你删除掉了 但是最后还是弹出一个框 关闭对象时，不允许操作
你是在做密码窗体吧用adodb好点
Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空,请输入！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Else
sql = "select * from 用户表"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Exit Sub
Else
rs_add.MoveNext
End If
Wend
If Trim(Text2.T