データベースアクセス

  初期化



  
// *********************************************************
// 初期処理
// *********************************************************
void InitWndProc( HWND hWnd )
{
	// メインウインドウハンドル保存
	hMainWnd = hWnd;

	// 文字列オブジェクト作成
	Buff = new LboxString();
	Work = new LboxString();
	Item = new LboxString();
	Column = new LboxString();
	Query = new LboxString();
	Message = new LboxString();

	// COM 初期化
	CoInitialize( NULL );

	// データベースブジェクト作成
	// CurDb は、HM010.h で定義
	CurDb = new LboxDatabase();

	// 接続文字列作成
	Tool.ProgramDirectory( Buff->szLboxString );
	Buff->AddBackslash();
	Buff->operator += ( "販売管理.mdb" );
	CurDb->SetConnectString( 1, Buff );
}
  



  終了処理



  
// *********************************************************
// 終了処理
// *********************************************************
void EndWndProc( HWND hWnd )
{
	delete Buff;
	delete Work;
	delete Item;
	delete Column;
	delete Query;
	delete Message;
	delete CurDb;

	CoUninitialize( );
}
  



  メッセージ取得( メッセージマスタより )

この関数を呼ぶと、データベースが切断される事に注意して下さい

  
// *********************************************************
// メッセージ取得
// *********************************************************
void GetMessageString( LPTSTR lpCode )
{
	if ( CurDb->pCn->State == adStateClosed ) {
		if ( !CurDb->Connect() ) {
			Dlg->MsgOk("データベースの接続に失敗しました    ");
			return;
		}	
	}	

	// 非存在チェック用 SQL
	Query->operator = (
		"select * from メッセージマスタ "
		" where コード = "
	);
	Work->operator = ( lpCode );
	Work->Enclose( "'" );
	Query->operator += ( Work );
	// 存在する
	if ( CurDb->Query( Query ) ) {
		CurDb->GetText( 1, Message );
	}
	else {
		Message->operator = ( "該当メッセージは存在しません   " );
	}

	CurDb->DisConnect();
}
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ