知识大全 Powerbuilder 10.0应用程序发布及动态配置ODBC

Posted 2022-07-22 知

篇首语：少年意气强不羁，虎胁插翼白日飞。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Powerbuilder 10.0应用程序发布及动态配置ODBC相关的知识，希望对你有一定的参考价值。

Powerbuilder 10.0应用程序发布及动态配置ODBC 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Powerbuilder编制的程序打包分为两部分动态库文件及配置ODBC数据源

　　 一动态库文件

　　由PB 自带的打包工具:PowerBuilder Runtime Packager 在Database? Interfaces选项中选择

ODBC Database Driver(ODB) Sybase Adaptive Server Enterprise(SYC)

　　便可生成程序所需要的动态库安装程序包然后将程序包中的文件复制到程序目录中即可

int RunCountsRunCounts=profileint( TheOneRun ini RunFlag GetRunFlag )string GetNowPathGetNowPath = GetCurrentDirectory( )String DataBasePathDataBasePath=GetNowPath+ \\phonebook_database db String DataBasePath_dll_ DataBasePath_dll_ DataBasePath_dll_ =GetNowPath+ \\dbodbc DLL DataBasePath_dll_ =GetNowPath+ \\dbeng exe if RunCounts= then RegistrySet( HKEY_LOCAL_MACHINE\\Sofare\\ODBC\\ODBCINST INI\\ODBC Drivers Adaptive Server Anywhere RegString! Installed ) RegistrySet( HKEY_LOCAL_MACHINE\\SOFARE\\ODBC\\ODBCINST INI\\ODBC Translators Adaptive Server Anywhere Translator RegString! Installed )RegistrySet( HKEY_LOCAL_MACHINE\\Sofare\\ODBC\\ODBCINST INI\\Adaptive Server Anywhere Driver RegString! DataBasePath_dll_ ) RegistrySet( HKEY_LOCAL_MACHINE\\Sofare\\ODBC\\ODBCINST INI\\Adaptive Server Anywhere Setup RegString! DataBasePath_dll_ ) RegistrySet( HKEY_LOCAL_MACHINE\\Sofare\\ODBC\\ODBCINST INI\\ODBC Data Sources phonebook_database RegString! Adaptive Server Anywhere ) registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\odbc data sources phonebook_database regstring! Adaptive Server Anywhere )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database driver regstring! DataBasePath_dll_ )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database start RegString! DataBasePath_dll_ )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database uid regstring! dba )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database pwd regstring! sql )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database databasename regstring! phonebook_database )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database databasefile regstring! DataBasePath)registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database autostop regstring! yes )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database Integrated regstring! no )registryset( HKEY_CURRENT_USER\\sofare\\odbc\\odbc ini\\phonebook_database Description regstring! phonebook_database )setprofilestring( TheOneRun ini RunFlag GetRunFlag )end ifSQLCA DBMS = ODBC SQLCA AutoCommit =falseSQLCA database=DataBasePathSQLCA DBParm = Connectstring= DSN=phonebook_database;uid=dba;pwd=sql CONNECT USING SQLCA;if sqlca sqlcode <> Then messagebox( 数据库连接失败请重启程序 Question! Ok!) setprofilestring( TheOneRun ini RunFlag GetRunFlag )close（主窗体名)Else open(主窗体名) cha138/Article/program/PB/201311/24560