|
作者：_ 时间：2001-9-24 15:26:11 来自：中华网校 责任编辑： 阅读次数： | |
 |
主持人：庞一鸣
在编程过程中遇到一个问题，如源代码：
SndPlaySound(″c:\MyWork\beep.wav″)
在制成安装盘后，安装到其它机器中不同目录下就不能执行，必须安装到C:\ MyWork下才能执行。怎样在源代码中识别，或有更好的办法。
答：这是初学者经常忽略的一个问题。在W indows下，某个程序一旦运行，除非特别指定了工作目录，一般该程序文件所在的目录就是工作目录，其他目录可以用工作目录为参照系。例如，上述问题中，程序被安装到了MyWork目录下，那么在MyWork 目录下的所有文件就不必用路径全称了，可以直接 SndPlaySound(″Beep.wav″)。以此类推，如果要播放 C:\MyWork\Sound\ABC.Wav 文件，就可以SndPlaySound(″Sound\ABC.wav″)。以后无论应用程序安装在何处，都可以避免这一问题。
用VB5.0生成的Exe文件能不能在一台从没装过VB5.0的机器上运行，如不能应如何做?
答：当然可以。你只要运行VB5带的“应用程序安装向导”就可以了。向导自动把应用程序及其依赖的DLL、OCX、DAO驱动程序等打包，形成一个安装程序。分发这个安装包就一切搞定了。
有一字段B(文本型，8个字符），当我在表中进行输入时超过8个字符，系统就会禁止我输入，这没有什么问题。但当我在VBA中使用DAO编辑这个字段时，我遇到了麻烦。
答：可以通过DAO提供的 Recordset或 TablDef 对象来得到字段B的长度，然后，根据情况把你的值直接赋予它或截断后赋值。例如：
Dim db as Database,rs as Recordset
Dim iSize as Integer,S as String
set db = DBEngine.OpenDatabase(″XXX.mdb″)
set rs = db.OpenRecordset(″TableA″)
iSize = td(″FieldB″).Size ′ 字段长度
……
′ 下面准备赋值
S = ″ABC中DE国FGEGHG″
set rs = db.OpenRecordset(″TableA″)
rs.Edit
If iSize >= LenB(strconv(S,vbFromUnicode )) Then
rs(″FieldB″) = S ′ 直接赋值
Else
rs(″FieldB″) = LeftB(strconv(S,vbFromUnicode ),iSize) 截断赋值
EndIf
rs.Update
……
请注意，VB或VBA中字符串默认以 vbUnicode 格式保存，所以要转换后再比较运算。请参阅函数 StrConv()，参数:vbFromUnicode,vbUnicode，及Byte 数组,和以‘B’结尾的函数。
在Access 97 中如何实现代码输入？
答：在Access97中的代码输入解决方案是我见过中的比较好的一种。Accesss97至少提供了两种场合使用的代码输入方式。
其一、在表结构设计窗口，选中指定字段，单击“查阅”标签，改显示控件为组合框或列表框，根据情况选择“行来源”类型为“表/查询”或“值列表”，然后选择代码表或输入候选值即可。这样的设置在“数据表”状态体现最完美：显示代码Name，挑选代码ID列表；其二、在设计 Form 时对指定控件做上述设定，其效果稍逊。运行时，输入框中仅可显示代码ID，却无法显示代码Name。
其实，关键是三个要素：1、控件显示的内容；2、和控件相关的数据源的字段；3、代码表。把握好这三者的关系就真正抓住了问题的关键。建议读者看看 Delphi 或 C＋＋Builder 的 DBLookup 控件，它的解决方法非常好，我希望能看到提供给VB、Access使用的短小精悍的代码输入控件也能做到这一点。
讨论VB问题用E－mail地址：VBForums@126.com 或 VBForums@usa.net
主页：http://vbforums.yeah.net/
|
|
|
|
中华网校依法保护知识产权，如果我们的文章有涉及或侵犯您的有关权益，请即时与我们
联系，
注明网址及文章，我们会即时处理或删除，感谢您的合作！中华网校email
中华网校由广州市中六电脑城智锐计算机专业培训学院及中华网校技术中心提供网络支持未经本站许可任何个人网站、书刊报社一律不得私自复制,转载本站内容! |
|
 | |
