紧急求救！！！

[Edison621]

有些数据，希望写个东西，使得把它们刻到硬盘上以后，把硬盘放到光驱里能够自动跳出一个分类查询这些数据的界面。用VB6.0应该怎样实现？

[sektor]

就是一数据库应用.最简单的.你要解决的是如何做这个查询.

弹出来,只是autorun而已

[sektor]

不对了,你还不能用数据库,你要的是绿色的.
数据按一定格式存成txt好了.

[Edison621]

能够说的详细一点吗？谢谢

[sektor]

比如:
你的数据是按下面存为txt
a1bc,1000,男
a2bc,2000,男
ab3c,3000,男
ab4c,4000,女
a5bc,5000,男

对这个文件进行操作,用split分割出你的字段

按你的规则查询就完了.


搜一下关键字:文件操作,一页显示不完了.

这样你只要copy exe+数据文件就可以了．

autorun知道怎么回来吧？看看自启动光盘

[Edison621]

只需要copy exe和数据文件就可以了？

[sektor]

只用最基本的控件就可以

[Edison621]

汗，呵呵。
VB中打开一个文件的语句怎么写？（相对路径）
还有就是打开另一个窗体的语句？谢谢

[Edison621]

楼上的我不是太懂，是不是可以把exe文件和那些数据放到一个文件夹里，然后用Multimedia Builder做成自启动光盘？它可以让exe文件自动执行跳出那个界面吗？

[还想懒够]

呵呵，先挑挑毛病


//把硬盘放到光驱里能够自动跳出一个分类查询


这个办法简单。

这使我想到了一个笑话，说某人在电脑城买了一台电脑，过几天后，说光驱托盘有问题，要维修人员来换，换了一次后，过几天又坏了，又打电话说，在你们那儿买的电脑的茶杯托盘不结实，一用就坏。。。。无语




估计是光盘吧



解决办法

1、新建一个autorun.inf文件，里面写入
[autorun]
open=execute.bat
icon=cd.ico


execute.bat这里需要执行一个批处理文件
cd.ico，你随便拷一个ico文件吧，文件名就是ico文件，用来显示光盘的盘符图标的。

2、新建一个execute.bat文件，写入批处理命令（唉，这东东我知道用，但就是不会写）
里面的内容的大概意思就是将光盘中的VB的运行环境文件拷到Windows目录下，然后再使用regsvr32对拷贝的文件进行注册，然后再执行你需要运行的exe文件。


看看下面有哪位大侠将这段批处理写出来吧。

[还想懒够]

数据似乎放进光盘不合适（如果需要写的情况下）。

不需要再做启动光盘，建立autorun.inf文件就是建立自启动光盘。

关键是如何编写那个bat文件。


我给你一个例子吧，这是一个启动TOMCAT的批处理文件的内容。如果想知道批处理怎么写，呵呵，这个我也不知道，我只看得一部分懂（与DOS命令相关）。以下例子就是将光盘里面对应的base文件夹里面的内容拷入到自建的一个文件夹里面。



rem Repertoire contenant la base
set BASE_HOME=\base
rem -----------------------------------------------------
rem Nom de la base
set BASE_NAME=%BASE_HOME%\AA
rem -----------------------------------------------------
rem Port http de Tomcat
set TOMCAT_PORT=80
rem -----------------------------------------------------
rem Contexte par d閒aut de Tomcat
set CONTEXTE_TOMCAT=AA
rem -----------------------------------------------------
rem Home projet

rem -----------------------------------------------------
rem INIT DU PROJET
rem -----------------------------------------------------
set PROJECT_HOME=C:\Intranet\Projects\AA

if exist "%PROJECT_HOME%" goto okDir
@mkdir C:\Intranet
@mkdir C:\Intranet\Projects\
@mkdir C:\Intranet\Projects\AA

rem -----------------------------------------------------
rem INIT BASE DE DONNEES
rem -----------------------------------------------------
:okDir
if exist "%PROJECT_HOME%\base\AA.data" goto okBase
mkdir C:\Intranet\Projects\AA\base
copy %BASE_HOME%\* %PROJECT_HOME%\base\