请教ADP数据操作问题？

zjyubin

第一项功能描述：
选用户名后下面自动显示用户ID号及左边的子窗体会显示用户相关的信息，不会出现别的用户住息。（在ADP中不能执行）
Private Sub 用户名_AfterUpdate()

On Error Resume Next
Me![ID] = DLookup("ID", "系统用户", "用户名='" & Me![用户名] & "'")
End Sub

第二项功能描述：
点击“删除用户“，会删除掉选中的用户相关信息。（在ADP中不能执行）
Private Sub cmdDelUser_Click()

On Error GoTo Err_cmdDelUser_Click

Dim SQL As String



If Me![用户名] = "Admin" Then

MsgBox "不能删除管理员帐号!", 64, "错误"

Else

DoCmd.SetWarnings False


SQL = "DELETE * " & _

"FROM 系统用户 " & _

"WHERE 系统用户.用户名=Forms![系统权限管理]![用户名]"

DoCmd.RunSQL SQL

SQL = "DELETE * " & _

"FROM 系统权限 " & _


"WHERE 系统权限.ID = Forms![系统权限管理]![ID]"

DoCmd.RunSQL SQL

Me![frmsub].Requery

Me![用户名].Requery

Me![用户名] = Null

Me![ID] = Null

MsgBox "该用户相关资料删除完成！", , "　"

DoCmd.SetWarnings True

End If
Exit_cmdDelUser_Click:

Exit Sub

Err_cmdDelUser_Click:

MsgBox Err.Descriptio n, 16, "出错"

Resume Exit_cmdDelUser_Click
End Sub

kelind

1,Dlookup在SQL中不能使用.
2,用存储过程

Grant

ADP中应用ADO,存储过程,视图等方式来进行对数据操作

zjyubin

谢谢两位的指导！能否提供ADP数据操作的具体方法。谢谢！

gdjdyyj

期待！！