データベースQ&A掲示板
今日の新規投稿数:0 | 今日の返信投稿数:1 | 昨日の新規投稿数:0 | 昨日の返信投稿数:0

トップ - 前に戻る(B)
記事一覧表示モード
ツリー表示モード
タイトル一覧表示モード
テキスト取得モード
Myカスタマイズ
RSS2.0
■現在の記録記事数:2310件
[ 掲示板内検索(S) ]


検索条件: and or
検索ワードをハイライトする
[ サイト内検索 ]
カスタム検索





[ ページ ] 1 2 3 4 5 6 7 8 9 10 11 ... Next ->

[開く] #2581 【回答】

   Re#2531:JITデバックについて

     27KUy2vA5smU   2018-11-06(火) 14:42
Thanks for your thshugto. It's helped me a lot.


[開く] #2580 【回答】

   Re#2211:MYSQLにてデータインポート時のwarningメッセージの有無を確認したい

     pjaoWkzA   2018-11-03(土) 17:53
Keep these arietlcs coming as they've opened many new doors for me.


[開く] #2579 【お礼・結果報告】

   Re#2577:ListBoxの代わりにListViewを使う方法 自己解決報告と訂正

    NetDiver   2018-10-19(金) 21:47
自己解決しました。回答は締め切ります。
解決済みですが、下記の参照設定に追加されたものという箇所が
誤っていたので訂正します。
> 動的に追加したいListViewの詳細です。
> この情報はフォームのデザインビューで手動で
> ListViewを追加したときの参照設定に追加されたものです。
> 	☑"Microsoft ListView Control 6.0(SP4)"
> 	   Microsoft ActiveX Data Objects 2.5 Library
> 	   C:\Program Files (x86)\Common Files\System\ado\msado25.tlb

正しくは以下の通りです。
 この情報はフォームのデザインビューで手動で
 ListViewを追加したときに参照設定に追加されたものです。
	   Microsoft Windows Common Controls 6.0(SP6)
	   MSComctlLib
	   C:\Windows\SysWOW64\MSCOMCTL.OCX

解決するのに参考にしたサイトURLをとりあえず載せておきます。
Microsoft公式サイトで見つけた関連文書
Application.CreateControl method (Access)
https://docs.microsoft.com/en-us/office/vba/api/access.application.createcontrol
AcControlType enumeration (Access)
https://docs.microsoft.com/en-us/office/vba/api/access.accontroltype

プロパティ設定項目の参考にした外国の質問サイト
(URLが長いので二行に分けてます)
https://microsoft.public.de.access.narkive.com/
MdCklGmK/activex-control-mittel-vba-im-formular-erzeugen

以下は決定的な解決のヒントになったことが書かれてありました。
http://accessblog.net/2010/12/programmatically-create-activex-control.html
英語サイトの機械翻訳
Accessフォームにデザインモードで新しくコントロールを作成するには、
CreateControl関数を使用できます。
ネイティブコントロールでは正常に動作しますが、AcitveXコントロール
(acCustomControl引数)では空のコンテナのみが作成されます。 
どのコントロールを作成するかはどこで設定できますか?
 トリックは、既存のコントロールから作成されたばかりの
OLEDataプロパティをコピーすることです。

以上のウェブサイト情報により解決できました。
このヒントを公開してくれた方にはこの場を借りて感謝します。
大変ありがたく思います。

暫定コード載せておきます。

    Dim lstVew As CustomControl
    Set lstVew = CreateControl(frm.Name, acCustomControl, acDetail, , , 10, 10, 4000, 4000)
    With lstVew
    ' このプロパティ情報は手動で追加したListViewのプロパティーと同じ値を設定しました。
        .Class = "MSComlstVewLib.ListViewCtrl.2"
        .OLEClass = "ListViewCtrl"
        .Name = "ListView0"
        ' 手動で追加したListViewのOleDataを一旦txtファイルに打ち出して、 _
	動的追加したListViewのOleDataにコピーしています。 _
	これをしないと使い物になりませんでした。
        Dim od() As Byte
        TextLoader od()
        .OleData = od
    End With


[開く] #2577 【質問】

   ListBoxの代わりにListViewを使う方法が知りたい Access2002 VBA

    NetDiver   2018-10-18(木) 23:13
動作環境:Windows10 Pro(x64),Access2002
対象言語:Access VBA
Access標準コントロールのListBoxを動的に追加する方法は分かるのですが、
ListViewを動的に追加する方法が分からなくて困っています。
ご存知の方、どうか教えてください。よろしくお願いします。
以下のTestCodeのListBoxコントロールの代わりに
ListViewコントロールを使う方法が知りたいです。

動的に追加したいListViewの詳細です。
この情報はフォームのデザインビューで手動で
ListViewを追加したときの参照設定に追加されたものです。
	☑"Microsoft ListView Control 6.0(SP4)"
	   Microsoft ActiveX Data Objects 2.5 Library
	   C:\Program Files (x86)\Common Files\System\ado\msado25.tlb


TestCodeの概要
	フォーム[frm]を動的に追加。
	次のコントロールをfrm上に追加
		リストボックス[lstBox]
		コマンドボタン[cmdBtn]
		テキストボックス[txtBox]

動的に追加されたフォームの概要
	frmロードイベント
		lstBoxにテーブル一覧表示。※テーブル一覧取得関数は記載省略
	cmdBtnクリックイベント
		acSaveNoでフォームを閉じる
	lstBoxダブルクリックイベント
		txtBoxにダブルクリックしたアイテム表示

標準モジュール[Module1]の内容の一部
Private Sub TestCode()
    Dim frm As Form
    Set frm = CreateForm()
    Dim frmMod As Module
    Set frmMod = frm.Module
    Dim codeLine As String
    Dim lstBox As Control
    Dim txtbox As Control
    Dim cmdBtn As Control
    
    With frm
        .CloseButton = False
        .DefaultView = acNormal
        .DividingLines = False
        .Section(0).Height = 3000
        .NavigationButtons = False
        .RecordSelectors = False
        .Width = 3000
        Set txtbox = CreateControl(.Name, acTextBox, acDetail, , , 2200, 1700, 2000, 300)
        Set cmdBtn = CreateControl(.Name, acCommandButton, acDetail, , , 2000, 2500, 2000, 500)
            cmdBtn.Caption = "閉じる"
            codeLine = frmMod.CreateEventProc("Click", cmdBtn.Name)
                       frmMod.InsertLines codeLine + 1, "Docmd.Close , , acSaveNo"
    End With
    
    Set lstBox = CreateControl(frm.Name, acListBox, acDetail, , , 10, 10, 2000, 2000)
    With lstBox
        .BoundColumn = 1
        .ColumnCount = 1
        .ColumnWidths = "1500"
        .RowSourceType = "Value List"
        codeLine = frmMod.CreateEventProc("DblClick", .Name)
                   frmMod.InsertLines codeLine + 1, _
                   "Forms!" & frm.Name & "![" & txtbox.Name & "] = " & .Name
    End With
        
    codeLine = frmMod.CreateEventProc("Load", "Form")
               frmMod.InsertLines codeLine + 1, _
               "Dim tableList() As String" & vbCrLf & _
               "TableListUp tableList()" & vbCrLf & _
               "Dim i As Long" & vbCrLf & _
               "With " & lstBox.Name & vbCrLf & _
               "For i = 0 To UBound(tableList)" & vbCrLf & _
               "    .AddItem tableList(i)" & vbCrLf & _
               "Next" & vbCrLf & _
               "End With"
    
    DoCmd.OpenForm frm.Name
    DoCmd.MoveSize 4000, , 5000, 4000
    
End Sub


[開く] #2576 【回答】

   Re#2531:JITデバックについて

     4CJjrtuOZ8   2018-09-19(水) 15:50
What a pleasure to find someone who idenfities the issues so clearly


[開く] #2575 【回答】

   Re#2211:MYSQLにてデータインポート時のwarningメッセージの有無を確認したい

     sMiCE6DyuLq   2018-09-18(火) 13:28
It's always a pleasure to hear from someone with exsiptere.


[開く] #2574 【回答】

   qJtXVxoSaNt

     Judi   2018-05-12(土) 20:43
58M6fM https://www.genericpharmacydrug.com


[開く] #2573 【回答】

   PTQIJVChKauW

     mike11   2018-04-18(水) 09:01
9gUWAo https://www.genericpharmacydrug.com


[開く] #2572 【回答】

   oFNNxSXbwaxcFkzQDRK

     matt   2017-02-20(月) 21:33
VBlNqI http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2571 【回答】

   ZkBuxKxtjOgC

     matt   2017-02-20(月) 19:37
MYC6fj http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2570 【回答】

   uARHVnTury

     gordon   2017-02-20(月) 17:40
CekGjx http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2569 【回答】

   SNVbrqHdrn

     chaba   2017-02-20(月) 15:43
Tt5wXc http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2568 【回答】

   JivTTCmLRpkusnf

     gordon   2017-02-20(月) 13:48
3dutpz http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2567 【回答】

   ygQQzNRxgVVpuNprMY

     gordon   2017-02-01(水) 01:57
yIxIOY http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2566 【回答】

   Re#2531:JITデバックについて

     VIrOiO4y   2017-01-31(火) 16:20
They sure look like they are having fun! I am not sure I would have ever jumped from there even as a child!!! Have a good day as well.!


[開く] #2565 【回答】

   Re#2521:データ削除時にORA-01722エラーが発生する

     U5uwtNo5Nm   2017-01-31(火) 11:47
Gosh, I wish I would have had that information earlier!


[開く] #2564 【回答】

   Re#2014:基本的なことかも。

     mnsPF8qyngVm   2017-01-31(火) 09:12
Unparalleled accuracy, unequivocal clarity, and undeniable importance!


[開く] #2563 【回答】

   RcHRUunoBqCoce

     matt   2017-01-29(日) 23:29
rvg3f0 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2562 【回答】

   IKnwiqsayA

     chaba   2017-01-29(日) 23:28
5v22tm http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com


[開く] #2561 【回答】

   Re#2521:データ削除時にORA-01722エラーが発生する

     lSgnpkKYJXR   2017-01-02(月) 06:26
That's really thinking at an impvissere level


[開く] #2560 【回答】

   Re#2319:テーブルを指定し列名を取得するSQLを教えてください

     ZACaI4bfA   2017-01-01(日) 23:24
Deep thinking - adds a new disnemion to it all.


[開く] #2559 【回答】

   Re#2531:JITデバックについて

     eBGWvCRz   2017-01-01(日) 20:11
I was so confused about what to buy, but this makes it unsetdrandable.


[開く] #2558 【回答】

   Re#2014:基本的なことかも。

     4h7M1RLm7EY   2017-01-01(日) 20:00
People nolamrly pay me for this and you are giving it away!


[開く] #2557 【回答】

   Re#2211:MYSQLにてデータインポート時のwarningメッセージの有無を確認したい

     K2wsHaxyOwm   2017-01-01(日) 16:24
Boom shlakaaka boom boom, problem solved.


[開く] #2556 【回答】

   WrONKIKtFFkk

     Barnypok   2016-12-29(木) 01:30
Rd1moV http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com


[開く] #2555 【回答】

   Re#2554:VB6で一定の時間が経過したら強制的にプロシージャを止める方法

    魔界の仮面弁士   2015-10-20(火) 16:16
> Timer コントロールで定期的に監視することもできますよ。

肝心の補足条件を忘れてました。


> > Timerで出来ないか考えているのですがFormを
> > 使用していないプログラムなため難しいのかなと

SetTimer / KillTimer API を使うのは如何でしょう。
これならフォーム無しでも動くと思います。

https://support.microsoft.com/ja-jp/kb/180736


なお、ストアド処理中にタイマー通知を受け取るのであれば、
同期モードではなく、非同期モードを利用して下さい。


[開く] #2554 【回答】

   Re#2553:VB6で一定の時間が経過したら強制的にプロシージャを止める方法

    魔界の仮面弁士   2015-10-20(火) 16:03
> すいません、補足です。
元記事の #2552 が抹消されているようですが、何か問題がありましたか?

 #2552 を見ていないので、何が書いてあったのかは把握していませんが、
とりあえず、今回の「補足」から分かる範囲で回答。


>> ストアドプロシージャで時間が掛かる場合に一定の時間で
>> エラーとして返すように求められています。

今回の要件であれば、「非同期実行」を使ってみては如何でしょうか。

ストアドプロシージャを Execute メソッドで呼び出す際に、
Options 引数のビットフラグに adCmdStoredProc を追加するようにします。
(Recordset を返すコマンドの場合は、adAsyncFetch を追加)

非同期実行の場合、Execute は処理の完了を待つことなく、
直ちに次行に進みます。実際の処理は別スレッドで行われ、
処理が完了あるいは中断されると、ExecuteComplete イベントで通知されます。

処理結果は ExecuteComplete イベントの引数に渡されていますので、
事後の処理はそのイベントプロシージャー内に記述することになります。

If pError Is Nothing Then
 MsgBox "正常時の処理"
Else
 If pError.Number = adErrOperationCancelled Then
  MsgBox "実行が中止されました(Cancel 処理時など)"
 ElseIf pError.Description LIKE "ORA-00028:*" Then
  MsgBox "接続が強制切断されました(Kill Session された場合など)"
 Else
  MsgBox "その他のエラー"
 End If
End If



> プロシージャ呼び出し後に時間判定は可能でしょうか?

非同期実行の場合は、呼び出し元は凍りつかずに処理が続くため、
Now 関数で現在日時を知ることもできますし、
Timer コントロールで定期的に監視することもできますよ。

非同期処理時に、ストアドプロシージャの呼び出しを中断したいのであれば、
objConnection.Cancel メソッドを呼ぶこともできます。
中断時には、adErrOperationCancelled な Error オブジェクトが
ExecuteComplete イベントに渡されます。


> 判定が可能な場合、通常通りにSet ??? = Nothingでコネクションを切っても問題ないものでしょうか?
コネクションを閉じるなら、Close メソッドを呼ぶ必要があります。
Nothing を代入しても、参照カウントが減ぜられるだけで、
実行中の処理などはそのまま残ります。

COM の参照カウントが減ぜられた結果、参照カウントが 0 になれば
そのコネクションも閉じられますが、もし、その変数以外の箇所で
同じコネクションが参照されていれば、そこで Nothing を代入しただけでは
参照カウントは 0 にならないため、コネクションは開いたままです。


・Connection.Close する前に開いた Command がある場合、Close しても Command は残ります。
・Command.ActiveConnection を Nothing にした場合、Command.Parameters の内容はクリアされます。
・Recordset.Close する前に開いた Recordset がある場合、Recordset も一緒に Close されます。
・adUseClient かつ adOpenStatic なカーソルで開いた Recordst の場合、Recordset.ActiveConnection を
 Nothing にしても、Recordset は生き続け、Connection とは無関係にオフラインで読み書きできます。


[開く] #2553 【その他】

   Re#2552:VB6で一定の時間が経過したら強制的にプロシージャを止める方法

    たよう   2015-10-16(金) 16:34
すいません、補足です。
Timerで出来ないか考えているのですがFormを
使用していないプログラムなため難しいのかなと
考えております。

> ■VBのバージョン : Visual Basic 6.0
> ■OSのバージョン:Windows7
> ■Oracle11g
> 
> 題名の件についてご教授頂ければと思います。
> 現在、プログラム内でADODBを使用してストアドプロシージャの呼び出しを行い、
> 結果を受け取るプログラム(DLL)を作成しました。
> ただ、顧客からの要望でストアドプロシージャで時間が掛かる場合に一定の時間で
> エラーとして返すように求められています。
> ADODBでタイムアウトの設定をしているので通常処理であればエラーの判定は可能なんですが、
> 例えば、Oracleのフェイルオーバ等がたまたまストアドプロシージャ呼び出し直後に発生した場合
> タイムアウトに関係なくエラーに移るまでに時間が掛かってしまいます。
> そこで、ストアドプロシージャをExecuteで実行後に設定した時間経過したら強制的にConnectionの
> 切断ができないかご相談させていただきたく投稿しました。
> .廛蹈掘璽献禪討喀个係紊忙間判定は可能でしょうか?
> 判定が可能な場合、通常通りにSet ??? = Nothingでコネクションを切っても問題ないものでしょうか?


[開く] #2551 【回答】

   Re#2550:多対多の対応をもつデータ

    魔界の仮面弁士   2014-08-14(木) 11:25
> 返信遅れて申し訳ありません。
回答(≠解答)後に、元質問者にそれを閲覧してもらえたのかどうか
分からなかったので、今回、一報頂けたことがありがたいです。


> > 問題無いと思いますが、データベース製品が提示されていないため、
> > ここでは汎用的な RDBMS を利用する前提で回答します。
> 勉強のため特定の製品に基づかない解答がほしかったため、製品名は書きませんでした。
> 実際には OpenOffice Base を使用する予定です。
そもそも、RDB を前提とした質問と看做して良いかどうかも不安だったのです。

たとえば XML データベースの場合、SQL での問い合わせではなく、
XQuery や XPath などを用いて問い合わせることになりますしね。


[開く] #2550 【お礼・結果報告】

   Re#2549:多対多の対応をもつデータ

    ひろこ   2014-08-13(水) 14:29
 魔界の仮面弁士様。回答ありがとうございます。
返信遅れて申し訳ありません。

> 問題無いと思いますが、データベース製品が提示されていないため、
> ここでは汎用的な RDBMS を利用する前提で回答します。
勉強のため特定の製品に基づかない解答がほしかったため、製品名は書きませんでした。
実際には OpenOffice Base を使用する予定です。

> 【履修】
> 主鍵 学籍番号
> 主鍵 教科コード
双方を連結するテーブルを作るのですね。
この方法で作ろうと思います。

> > ・特定の学生が履修している教科の一覧
> SELECT 教科.* FROM 教科 WHERE EXISTS(SELECT * FROM 履修 WHERE 履修.教科コード = 教科.教科コード AND 履修.学籍番号 = ★)
> > ・特定の教科を履修している学生の一覧
> SELECT 学生.* FROM 学生 WHERE EXISTS(SELECT * FROM 履修 WHERE 履修.学籍番号 = 学生.学籍番号 AND 履修.教科コード = ☆)
> EXISTS の代わりに、INNER JOIN 等で連結しても良いでしょう。
SQLはまだ勉強中の部分が多いので参考にさせていただきます。

回答ありがとうございました。

[ ページ ] 1 2 3 4 5 6 7 8 9 10 11 ... Next ->

#2581から#2550まで30件を表示しました。

■現在の記録記事数:2310件
[ 掲示板内記事検索 ]

検索条件: and or
検索ワードをハイライトする
[ 未読ポイント設定 ]
現在、「未読読み機能」は無効になっています。
「未読読み機能」を有効にし、未読ポイントを設定するとその記事より新しい記事のみ表示することができます。
Myカスタマイズで有効にできます。
[ 記事削除 ]
●記事番号 :
●削除用パスワード :



トップ - 前に戻る(B)

THE lg-Board REVOLUTIONS
Copyright© 2004-2010 リトルグレイ