データベースQ&A掲示板
今日の新規投稿数：0 |
今日の返信投稿数：1 |
昨日の新規投稿数：0 |
昨日の返信投稿数：0
トップ
- 前に戻る(B)
| ■現在の記録記事数：2310件
|
 |
|
[ ページ ] 1 2 3 4 5 6 7 8 9 10 11 ... Next ->
Thanks for your thshugto. It's helped me a lot. | |
|
Keep these arietlcs coming as they've opened many new doors for me. |
自己解決しました。回答は締め切ります。
解決済みですが、下記の参照設定に追加されたものという箇所が
誤っていたので訂正します。
> 動的に追加したい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 |
動作環境: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 |
What a pleasure to find someone who idenfities the issues so clearly |
It's always a pleasure to hear from someone with exsiptere. |
58M6fM https://www.genericpharmacydrug.com |
9gUWAo https://www.genericpharmacydrug.com |
VBlNqI http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
MYC6fj http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
CekGjx http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
Tt5wXc http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
3dutpz http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
yIxIOY http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
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.! |
Gosh, I wish I would have had that information earlier! |
Unparalleled accuracy, unequivocal clarity, and undeniable importance! |
rvg3f0 http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
5v22tm http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com |
That's really thinking at an impvissere level |
Deep thinking - adds a new disnemion to it all. |
I was so confused about what to buy, but this makes it unsetdrandable. |
People nolamrly pay me for this and you are giving it away! |
Boom shlakaaka boom boom, problem solved. |
Rd1moV http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com |
> Timer コントロールで定期的に監視することもできますよ。
肝心の補足条件を忘れてました。
> > Timerで出来ないか考えているのですがFormを
> > 使用していないプログラムなため難しいのかなと
SetTimer / KillTimer API を使うのは如何でしょう。
これならフォーム無しでも動くと思います。
https://support.microsoft.com/ja-jp/kb/180736
なお、ストアド処理中にタイマー通知を受け取るのであれば、
同期モードではなく、非同期モードを利用して下さい。 |
> すいません、補足です。
元記事の #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 とは無関係にオフラインで読み書きできます。 |
すいません、補足です。
Timerで出来ないか考えているのですがFormを
使用していないプログラムなため難しいのかなと
考えております。
> ■VBのバージョン : Visual Basic 6.0
> ■OSのバージョン：Windows7
> ■Oracle11g
>
> 題名の件についてご教授頂ければと思います。
> 現在、プログラム内でADODBを使用してストアドプロシージャの呼び出しを行い、
> 結果を受け取るプログラム（DLL）を作成しました。
> ただ、顧客からの要望でストアドプロシージャで時間が掛かる場合に一定の時間で
> エラーとして返すように求められています。
> ADODBでタイムアウトの設定をしているので通常処理であればエラーの判定は可能なんですが、
> 例えば、Oracleのフェイルオーバ等がたまたまストアドプロシージャ呼び出し直後に発生した場合
> タイムアウトに関係なくエラーに移るまでに時間が掛かってしまいます。
> そこで、ストアドプロシージャをExecuteで実行後に設定した時間経過したら強制的にConnectionの
> 切断ができないかご相談させていただきたく投稿しました。
> �．廛蹈掘璽献禪討喀个係紊忙�間判定は可能でしょうか？
> ��判定が可能な場合、通常通りにSet ？？？ = Nothingでコネクションを切っても問題ないものでしょうか？ |
> 返信遅れて申し訳ありません。
回答（≠解答）後に、元質問者にそれを閲覧してもらえたのかどうか
分からなかったので、今回、一報頂けたことがありがたいです。
> > 問題無いと思いますが、データベース製品が提示されていないため、
> > ここでは汎用的な RDBMS を利用する前提で回答します。
> 勉強のため特定の製品に基づかない解答がほしかったため、製品名は書きませんでした。
> 実際には OpenOffice Base を使用する予定です。
そもそも、RDB を前提とした質問と看做して良いかどうかも不安だったのです。
たとえば XML データベースの場合、SQL での問い合わせではなく、
XQuery や XPath などを用いて問い合わせることになりますしね。 |
魔界の仮面弁士様。回答ありがとうございます。
返信遅れて申し訳ありません。
> 問題無いと思いますが、データベース製品が提示されていないため、
> ここでは汎用的な 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件
|
|
[ 未読ポイント設定 ]
現在、「未読読み機能」は無効になっています。
「未読読み機能」を有効にし、未読ポイントを設定するとその記事より新しい記事のみ表示することができます。
Myカスタマイズで有効にできます。 |
|
|
トップ
- 前に戻る(B)
THE lg-Board REVOLUTIONS
Copyright© 2004-2010 リトルグレイ
