VB中对用户进行添加时总出现错误

来源：百度知道 编辑：UC知道 时间：2024/06/17 22:39:17
这是代码，运行后出现下面的提示框
Microsoft Visual Basic
---------------------------
编译错误:

子程序或函数未定义
---------------------------
确定 帮助
---------------------------
请高手指点，实在找不出哪里不对了

Private Sub cmdOK_Click()
Dim txtSQL As String
If Text1(0) = "" Then
MsgBox "用户名称不能为空!", vbOKOnly, "提示"
Text1(0).SetFocus
Exit Sub
End If
If Text1(1) = "" Then
MsgBox "用户密码不能为空!", vbOKOnly, "提示"
Text1(1).SetFocus
Exit Sub
Else
If Text1(1) <> Text1(2) Then
MsgBox "两次密码输入不同!", vbOKOnly, "提示"
Text1(1) = ""
Text1(2) = ""
Text1(1).SetFocus
Exit Sub
End If
End If
txtSQL = "select * from admin where name='"

新建立个模块。把下面代码拷贝到模块中就可以了。你ExecuteSQL没有定义

'传递参数SQL传递查询语句，MsgString传递查询信息。自身以一个数据集对象的形式返回
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim Cnn As ADODB.Connection '定义连接
Dim Rst As ADODB.Recordset
Dim sTokens() As String '定义字符串

On Error GoTo ExecuteSQL_Error '异常处理

sTokens = Split(SQL) '用Split函数产生一个包含各个子串的数组

Set Cnn = New ADODB.Connection '创建连接
Cnn.Open ConnectString

If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '判断字符串中是否含有指定内容
Cnn.Execute SQL '执行查询语句
MsgString = sTokens(0) & "query successful" '返回查询信息
Else
Set Rst = New ADODB.Recordset '闯将数据集对象
Rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic &