PB9+SQL2000

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

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

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

VB code

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

相关推荐