| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 672 人关注过本帖
标题:对象变量未设置[原创]
只看楼主 加入收藏
伍瑞城
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-5-26
收藏
 问题点数:0 回复次数:2 
对象变量未设置[原创]

Dim cn As New ADODB.Connection Dim cn2 As New ADODB.Connection Dim n As Integer Option Explicit

Private Sub Command1_Click() If DataCombo1.Text = "" Then MsgBox "操作员不能为空,请选择!", vbOKCancel + vbExclamation, "登录验证" DataCombo1.SetFocus Else If DataCombo1.Text = Adodc2.Recordset.Fields("操作员") _ And Text1.Text = Adodc2.Recordset.Fields("操作口令") Then Unload Me Form2.Show End If End If End Sub Private Sub Form_Load() Set cn = New ADODB.Connection cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\ybgl.mdb" cn.Open Adodc1.ConnectionString = cn Adodc1.RecordSource = "select * from 用户表" Adodc1.CommandType = adCmdText Set DataCombo1.RowSource = Adodc1 DataCombo1.ListField = "操作员" End Sub 在运行的时候,说对象变量或with块变量未设置,调试的时候显示在上面的红色的部分有问题 请求帮助

搜索更多相关主题的帖子: 变量 对象 
2005-05-26 18:05
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
Adodc2 初始化过吗?

天津网站建设 http://www./
2005-05-27 00:13
伍瑞城
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-5-26
收藏
得分:0 
呵呵,谢谢,将adodc2初始化后就可以了
2005-05-28 21:03
快速回复:对象变量未设置[原创]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034910 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved