论坛风格切换切换到宽版
  • 1408阅读
  • 0回复

VB高手来帮忙啊,至少有一个参数未被指定值 [复制链接]

上一主题 下一主题
离线renrenqi
 
发帖
30
C币
-179
威望
26
贡献值
2
银元
0
铜钱
4
人人网人气币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-03-29
一个简单的教研室管理系统,在用户登录到主界面以后,有一个个人资料修改的菜单,在该子窗体中的设计中,我添加了一个DataGrid1,想用它来显示当前用户的个人信息,以便进行修改,在模块中定义了Public curname As String,想用curname来记录当前用户的用户名,curname = Trim(txtUser.Text),txtUser.Text是当前用户输入的用户名。
子窗体的代码如下:
Private Sub Form_Load()
Dim rs_book As New ADODB.Recordset
Dim sql As String
On Error GoTo loaderror
sql = "select * from 教师数据库 where 用户名= '" & curname & "'"
rs_book.CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic     '打开数据库
'设定datagrid控件属性
DataGrid1.AllowAddNew = True                                '不可增加
DataGrid1.AllowDelete = True                                 '不可删除
DataGrid1.AllowUpdate = True

Set DataGrid1.DataSource = rs_book
'cmdcancel.Enabled = False
Exit Sub
loaderror:
   MsgBox Err.Description
End Sub
运行后就提示至少有一个参数未被指定值
请问哪儿出毛病了啊
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个