说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于过程与模块的菜鸟百思不得其解的简单问题,兼散分。

编辑:说三道四文库 发布时间:2017-11-21 03:17
HTML文档下载 WORD文档下载 PDF文档下载
模块代码如下:
'General Declarations Section
Dim cona As Connection
Dim coma As Command
Dim rsta As Recordset
Dim a As Integer

Public Sub gc()
Set cona = New Connection
Set coma = New Command
Set rsta = New Recordset
With cona
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=WANGTONG"
.Provider = "SQLOLEDB"
.Open
End With
With coma
coma.ActiveConnection = cona
rsta.Open "select * from employee", cona, adOpenDynamic, adLockBatchOptimistic
End With

txtID = rsta!emp_id
txtfname = rsta!fname
txtlname = rsta!lname
txtbirth = rsta!hire_date
txtgender = rsta!minit

End Sub

Public Sub gc1()
While Not rsta.EOF
Form2.List2.AddItem rsta.Fields("lname")
rsta.MoveNext
Wend
End Sub

////////////////////////////////////////////////////////////////////

Form2代码如下:
Private Sub Form_Load()
gc
gc1
End Sub

Private Sub List2_Click()



a = List2.ListIndex
rsta.MoveFirst
rsta.Move a
Form2.txtID = rsta!emp_id
Form2.txtfname = rsta!fname
Form2.txtlname = rsta!lname
Form2.txtbirth = rsta!hire_date
Form2.txtgender = rsta!minit

End Sub

设置Form2先启动,窗口的显示没有问题,可当点击list2时,错误提示如下:
实时错误‘424’
要求对象


Dim cona As Connection
Dim coma As Command
Dim rsta As Recordset
Dim a As Integer
-----------------
public ...
public ...
txtfname是什么?文本框还是普通变量?
注意模块中的应该是变量了,要在form2调用必须定义为public
没看懂你想做什么?呵呵,自己慢慢单步调吧
txtfname 等是form2中的文本框,把他们放到模块中的public过程中不可以吗?

目的是在form2的listbox中显示数据库中fname字段内容,并在其他文本框中显示其他字段内容。

新手,还望耐心指教。
我认为错误的原因就出在变量的声明上,你在Form2中仍使用了rsta但这一变量并不存在。
你最好在程序的开头都加上

Option Explicit

这样运行时VB会提示你什么变量没有定义。
同意楼上观点。

建议改为:
Public rsta As Recordset
同意
加上
with form2   
    txtID = rsta!emp_id
    txtfname = rsta!fname
    txtlname = rsta!lname
    txtbirth = rsta!hire_date
    txtgender = rsta!minit
end with
在form1的代码中你漏了
with form2   
end with
应该为
with form2   
    .txtID = rsta!emp_id
    .txtfname = rsta!fname
    .txtlname = rsta!lname
    .txtbirth = rsta!hire_date
    .txtgender = rsta!minit
end with
Dim cona As Connection
Dim coma As Command
Dim rsta As Recordset

Dim 应该改成private或public,且应在过程外定义,这样其它过程才能使用这些变量
private cona As Connection
private coma As Command
private rsta As Recordset

agree all
VB挺复杂的,真是费解
盘点Hadoop生态圈:13个让大象飞起来的开源工具 【开源推荐】Ejoy2D:“风魂”游戏引擎作者云风的又一力作 Web应用在IE11里的实际使用性能 回顾2013年十个值得关注的WordPress设计主题 为什么Google眼镜注定会失败? 2013移动开发工具盘点:最火原型设计工具 2013年12月份浏览器份额:IE 11暴涨3倍 【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 TIOBE 2014年1月编程语言排行榜:Transact-SQL力挫Objective-C 夺得桂冠 IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 Amazon CTO Werner Vogels:云和SaaS正在快速风靡全球 “人类先知”Isaac Asimov 50年前的科技预测大多应验了 2014年10大Web设计趋势 Google野心:App Indexing改写应用搜索格局 Cocos2d-x,老牌引擎的新进化 Kingdom Rush创始人专访:游戏与电影元素混搭 超实用的JavaScript技巧及最佳实践(下) 盖茨和鲍尔默或成挑选微软新CEO的最大阻碍 移动开发进阶:触发式邮件深入分析 King.com传奇再续!Farm Heroes Saga强势登陆iOS、Android 2013综述稿:Clojure这一年及大事件 亚马逊AWS vs.谷歌GCE,彪的是价格? 2014,混合云被广泛采用的一年 传微软拉拢厂商推双启动系统手机 用户可选Windows Phone或Android delphi 高难度!有没有人搞得出! 讨论:CSDN该不该分两个区?(入门级与专业级) 各大版主请进 简单问题,在线等待,解决就结稿. 用DES算法算出的注册码怎么是乱字符? <<LINUX与UNIX_SHELL编程指南>>中不懂的问题 分 多了该怎么办呢?:-) 请问怎么读取.txt文件的第n行? 如何将一个象素点设置成某一种颜色(即绘制一个象素点). 如何使一中文网站系统,转成English版的系统呢? 将dbf文件中的一部分字段数据导入到db的一张表中[斑主帮忙] 在线游戏刷新问题,高手接招 关于关闭窗口的超级难题 请各位推荐一下用.net开发的OA产品或者公司 VB.NET问题 框架里如何得到地址栏上的地址?? KEIL C51的中断服务程序如何通过串口返回应答信息? OA中关于流程动态设定的设计问题,谢谢 那里有DB2下载啊? 菜鸟提问:为什么toolbar控件加到窗体上时,大小不能改变?我怎么设置宽和高都是原来样子的 最简单的一个问题 小程序,愿交流 小程序,愿交流 如何用api函数实现服务器和客户端的字符串传输?(讨论和将帖子提前的都有分拿) 如何绕过代理服务器? 急:打开记录集显示 :Timeout expired 那里有Informix下载啊? mouseDown方法为何不能重写? 矢量绘图中如何实现在视窗中输入这样的文本? (来者的分)我要做一个短消息系统应用于办公系统中,请问买一块手机好还是手机模块? 请各位大虾指点哪里有较好的asp教程下载? 利用com实现进程之间数据通信,给出例子或者讲解文章即可 可有人能回答我呀。 又是一个让人非常郁闷的问题,高手请进! 怎样为我的对话框窗体增加一幅背景图? 谢谢:chenyg2000等的无私帮助,使用了这种方法以后问题又来了! sql语句菜鸟问题:如何想把一个字段赋值为NULL,sql语句应该怎么写?谢谢! web service上怎样返回一个二进制文件? 大虾救我:数据库链接的问题 vbscript里的函数可不可以递归的? 请教各位大侠:怎样在VB中 监测CPU是否空闲?急.在线等>>>> ant的build.xml问题请教。。。 jbuilder8+weblogic7该如何部署JSP+JAVABEAN呢,我的怎么经常出错 在线求救,RM恢复系统文件,急。。。。。。 关于tomcat连接mysql的问题。请各位高手指点。 "面试试题"急求解答。急!!!!!!急!!!! C#中怎样判断一个textbox里输入的值是数值型,还是日期型? 困惑,极度的!! java bean的菜问题 Delphi 内部资料~~~ 100分求助阿,生死攸关,顶者有分,在线等待!!! 关于指针的简单问题 高一历史有疑问--"中国近现代史人教课标版"在旧版的第二章第八节义和团运动和八国联军侵华战争一节中,关於义和团到达北京,慈禧太后因一时忿怒而向八国宣战时有这样的一段节选--” 高一历史有疑问(中国近现代史人教旧课标版)在旧版的第二章第八节义和团运动和八国联军侵华战争一节中,关於义和团到达北京,慈禧太后因一时忿怒而向八国宣战时有这样的一段节选- ATP分子式可以简写为什么 那一次,我流泪了 What is the main them of American literature?What was Poe famous for?Wha全是美国文学方面的. 如何加入骷髅会 中国有骷髅会吗 骷髅会有华人参加吗 维新变法运动时期,康有为主张“我朝变法,但采鉴日本”,是指要在政治上实行() A君主专制 B联邦制 C民主共和制 D君主立宪制 跪求高一历史(中国近现代史)下册的各个会议的内容,意义…高一历史(中国近现代史)下册的各个会议的〔召开背景,内容,结果,意义〕… 已知菱形的边长为4,一条对角线长为4倍根号3,则它的两个菱角分别为? 英国将发行伊斯兰债券 吸引中东投资者“今日中国 中国电影周”于曼谷开幕法国巴黎CAC40股指29日上涨英国计划发行2亿英镑伊斯兰债券NBA新赛季大幕正式拉开 各路豪强谁NBA新赛季球星篇:科比状态成疑 魔联合国官方微博发布反战视频 吁挽救叙叙利亚副总理贾米勒被解职“丝绸之路”国际研讨会在索非亚举行联合国对黎巴嫩北部教派冲突深表不安24省区市前三季度城镇居民收入出炉 抢生意师傅砸招牌 讨赔偿徒弟打师傅四川尚无H7N9禽流感病例 春节谨防美科学家开发出碳纳米管涂层 燃烧性降国家旅游局公布2014年春节期间旅游新鸿基争产案暂落幕 郭氏三兄弟平分股博茨瓦纳中国和平统一促进会贺新春 抗乌克兰总理递交辞呈 望促冲突各方达成台湾黑心油大统案查出案外案:顶新制油李克强考察中航飞机设计研究院 获赠飞香港销毁2万只家禽防禽流感湖北省纪委通报12起违反中央八项规定
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘