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

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

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

PB9+SQL2000所做单机版系统如何运行于没有安装SQL的电脑上
    小弟我初学PB,PB9+SQL2000做了个单机版的系统,可是领导说需要安装于事先没有安装过SQL的电脑上使用,
小弟我直接傻眼了,请教各位哥哥姐姐,如何实现啊?或者说;把源代码做成安装包的时候把SQL也直接做进去?这样
执行安装包的时候就直接把SQL需要的组建装进去了?
     这些如何实现啊?我实在是没有一点头绪,请教教我吧!(注明:单机版)
[解决办法]
打包sql的msde版本进去就可以了
[解决办法]
msde
安装文件中 附加数据库即可
[解决办法]
只装msde就行了(用友就是这么做的)。
[解决办法]
打包,做成安装程序,不过要在程序开头添加一段代码,用于注册数据源
下面是我以前做的一个系统注册数据源的代码,可以参考一下(access数据库,其它类似):

string path,pathb,dbpath,result
int k
path="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 if
if 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 abcd
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = True
SQLCA.DBParm = "ConnectString='DSN=abcd'"



connect using sqlca;
if sqlca.sqlcode=0 then
open(w_login)
else
messagebox("出错","数据库连接失败!"+sqlca.sqlerrtext,stopsign!)
end if

热点排行