PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
20488 03/10/24 10:38:45 RE(2):PB6.5: ODBC表示自動化処理 By aokazumajin
20479 03/10/22 13:00:40 RE(1):PB6.5: ODBC表示自動化処理 By ハム
20475 03/10/22 09:52:25 PB6.5: ODBC表示自動化処理 By aokazumajin

カテゴリ:データベース
日付:2003年10月22日 09:52 発信者:aokazumajin
題名:PB6.5: ODBC表示自動化処理

現在、ユーザIDとパスワードを入力後、OKボタンを押すと、W_1(初期ウィンドウ)
が表示されるプログラムを作成しているのですが、ODBCの設定画面が表示します。
この画面でコンピュータデータソース→POWER DEMO DB V6を選択すると、処理が
進んで、W_1(初期ウィンドウ)が表示されるのですがこのODBCの設定画面を表示しない
ように、プログラムを変更したいのですが何か良い解決方法があれば教えて頂けないでしょうか?

ユーザIDとパスワードを入力するウインドウ(W_WELCOME)のOKボタンのCLICKEDイベントです。(コード内容)

integer errflg
string ls_startupfile

errflg = 0

//--------ユーザIDとパスワードの判定です--------

If sle_userid.text <> trim(\"YID\") Then 
errflg = 1
End if
If sle_password.text <> trim(\"YPA\") Then
errflg = 1
End if

//--------データベースの接続環境----------------
sqlca = CREATE transaction
sqlca.DBMS       = ProfileString (ls_startupfile, \"database\", \"dbms\",\"\")
sqlca.database   = ProfileString (ls_startupfile, \"database\", \"database\",\"\")
sqlca.userid     = ProfileString (ls_startupfile, \"database\", \"userid\",\"\")
sqlca.dbpass     = ProfileString (ls_startupfile, \"database\", \"dbpass\",\"\")
sqlca.logid      = ProfileString (ls_startupfile, \"database\", \"logid\",\"\")
sqlca.logpass    = ProfileString (ls_startupfile, \"database\", \"LogPassWord\",\"\")
sqlca.servername = ProfileString (ls_startupfile, \"database\", \"servername\",\"\")
sqlca.dbparm     = ProfileString (ls_startupfile, \"database\", \"dbparm\",\"\")
//--------初期ウィンドウのOPEN判定 --------------
if errflg = 0 Then
OPEN (w_1)
w_welcome. Hide()
End if

付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows 2000
DBMS Sybase SQL Anywhere Client
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.