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