首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

PB9+SQL2000所做单机版系统怎么运行于没有安装SQL的电脑上

2012-03-09 
PB9+SQL2000所做单机版系统如何运行于没有安装SQL的电脑上小弟我初学PB,PB9+SQL2000做了个单机版的系统,可

PB9+SQL2000所做单机版系统如何运行于没有安装SQL的电脑上
小弟我初学PB,PB9+SQL2000做了个单机版的系统,可是领导说需要安装于事先没有安装过SQL的电脑上使用,
小弟我直接傻眼了,请教各位哥哥姐姐,如何实现啊?或者说;把源代码做成安装包的时候把SQL也直接做进去?这样
执行安装包的时候就直接把SQL需要的组建装进去了?
  这些如何实现啊?我实在是没有一点头绪,请教教我吧!(注明:单机版)

[解决办法]
打包sql的msde版本进去就可以了
[解决办法]
msde
安装文件中 附加数据库即可
[解决办法]
只装msde就行了(用友就是这么做的)。
[解决办法]
打包,做成安装程序,不过要在程序开头添加一段代码,用于注册数据源
下面是我以前做的一个系统注册数据源的代码,可以参考一下(access数据库,其它类似):

VB code
string path,pathb,dbpath,resultint kpath="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\access002"pathb="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources\"dbpath=GetCurrentDirectory( )+"\DB\student_infor.mdb"k=registryget(path, "DBQ", result)if k=1 then    RegistryDelete("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\access002","BPQ")    registrySet(path, "DBQ", RegString!,dbpath)end ifif k<>1  then    registrySet(path, "DBQ", RegString!,dbpath)    registrySet(path, "Driver", RegString!,"c:\windows\system32\odbcjt32.dll")    registrySet(path, "DriverId", ReguLong!,25)    registrySet(path, "FIL", RegString!, "MS Access")    registrySet(path, "UID", RegString!, "")    registrySet(path, "PWD", RegString!, "")    registrySet(path, "SafeTransactions", ReguLong!, 0)    registrySet(pathb, "DSN_access", RegString!, "Microsoft Access Driver(*.mdb)")end if// Profile abcdSQLCA.DBMS = "ODBC"SQLCA.AutoCommit = TrueSQLCA.DBParm = "ConnectString='DSN=abcd'"connect using sqlca;if sqlca.sqlcode=0 then    open(w_login)else    messagebox("出错","数据库连接失败!"+sqlca.sqlerrtext,stopsign!)end if 

热点排行