¥Ç¡¼¥¿¥Ù¡¼¥¹Q&A·Ç¼¨ÈÄ
º£Æü¤Î¿·µ¬Åê¹Æ¿ô¡§0 | º£Æü¤ÎÊÖ¿®Åê¹Æ¿ô¡§1 | ºòÆü¤Î¿·µ¬Åê¹Æ¿ô¡§0 | ºòÆü¤ÎÊÖ¿®Åê¹Æ¿ô¡§0

¥È¥Ã¥× - Á°¤ËÌá¤ë(B)
µ­»ö°ìÍ÷ɽ¼¨¥â¡¼¥É
¥Ä¥ê¡¼É½¼¨¥â¡¼¥É
¥¿¥¤¥È¥ë°ìÍ÷ɽ¼¨¥â¡¼¥É
¥Æ¥­¥¹¥È¼èÆÀ¥â¡¼¥É
My¥«¥¹¥¿¥Þ¥¤¥º
RSS2.0
¢£¸½ºß¤Îµ­Ï¿µ­»ö¿ô¡§2311·ï
[ ·Ç¼¨ÈÄÆâ¸¡º÷(S) ]


¸¡º÷¾ò·ï¡§ and or
¸¡º÷¥ï¡¼¥É¤ò¥Ï¥¤¥é¥¤¥È¤¹¤ë
[ ¥µ¥¤¥ÈÆâ¸¡º÷ ]
カスタム検索





[ ¥Ú¡¼¥¸ ] 1 2 3 4 5 6 7 8 9 10 11 ... Next ->

[³«¤¯] #2582 ¡Ú²óÅú¡Û

   HKaiwPObAoNtsnL

    ¢£ markus   2022-04-19(²Ð) 10:19
http://imrdsoacha.gov.co/silvitra-120mg-qrms


[³«¤¯] #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 ¤ò¸«¤Æ¤¤¤Ê¤¤¤Î¤Ç¡¢²¿¤¬½ñ¤¤¤Æ¤¢¤Ã¤¿¤Î¤«¤ÏÇİ®¤·¤Æ¤¤¤Þ¤»¤ó¤¬¡¢
¤È¤ê¤¢¤¨¤º¡¢º£²ó¤Î¡ÖÊ䭡פ«¤éʬ¤«¤ëÈϰϤDzóÅú¡£


>> ¥¹¥È¥¢¥É¥×¥í¥·¡¼¥¸¥ã¤Ç»þ´Ö¤¬³Ý¤«¤ë¾ì¹ç¤Ë°ìÄê¤Î»þ´Ö¤Ç
>> ¥¨¥é¡¼¤È¤·¤ÆÊÖ¤¹¤è¤¦¤Ëµá¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£

º£²ó¤ÎÍ×·ï¤Ç¤¢¤ì¤Ð¡¢¡ÖÈ󯱴ü¼Â¹Ô¡×¤ò»È¤Ã¤Æ¤ß¤Æ¤ÏÇ¡²¿¤Ç¤·¤ç¤¦¤«¡£

¥¹¥È¥¢¥É¥×¥í¥·¡¼¥¸¥ã¤ò 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 ¤Ê¤É¤òÍѤ¤¤ÆÌ䤤¹ç¤ï¤»¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¤·¤Í¡£

[ ¥Ú¡¼¥¸ ] 1 2 3 4 5 6 7 8 9 10 11 ... Next ->

#2582¤«¤é#2551¤Þ¤Ç30·ï¤òɽ¼¨¤·¤Þ¤·¤¿¡£

¢£¸½ºß¤Îµ­Ï¿µ­»ö¿ô¡§2311·ï
[ ·Ç¼¨ÈÄÆâµ­»ö¸¡º÷ ]

¸¡º÷¾ò·ï¡§ and or
¸¡º÷¥ï¡¼¥É¤ò¥Ï¥¤¥é¥¤¥È¤¹¤ë
[ ̤ÆÉ¥Ý¥¤¥ó¥ÈÀßÄê ]
¸½ºß¡¢¡Ö̤ÆÉÆÉ¤ßµ¡Ç½¡×¤Ï̵¸ú¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£
¡Ö̤ÆÉÆÉ¤ßµ¡Ç½¡×¤òÍ­¸ú¤Ë¤·¡¢Ì¤ÆÉ¥Ý¥¤¥ó¥È¤òÀßÄꤹ¤ë¤È¤½¤Îµ­»ö¤è¤ê¿·¤·¤¤µ­»ö¤Î¤ßɽ¼¨¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
My¥«¥¹¥¿¥Þ¥¤¥º¤ÇÍ­¸ú¤Ë¤Ç¤­¤Þ¤¹¡£
[ µ­»öºï½ü ]
¡üµ­»öÈÖ¹æ ¡§
¡üºï½üÍѥѥ¹¥ï¡¼¥É ¡§

¥È¥Ã¥× - Á°¤ËÌá¤ë(B)

THE lg-Board REVOLUTIONS
Copyright© 2004-2010 ¥ê¥È¥ë¥°¥ì¥¤