|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
ADOｿｽﾚ托ｿｽｿｽｿｽｿｽｿｽﾜでの間にキｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
TOSHI 2003/04/23(ｿｽｿｽ) 08:39:23
ｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽvb6.0w2k_pro
adoｿｽﾚ托ｿｽｿｽﾅ OPENｿｽｿｽｿｽﾄゑｿｽｿｽ骼橸ｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽｿｽｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾈどゑｿｽ
ｿｽ痰､ｿｽｿｽｿｽﾙ擾ｿｽﾉ趣ｿｽｿｽﾔゑｿｽｿｽ|ｿｽｿｽｿｽｿｽﾌで途ｿｽｿｽｿｽｿｽCommandｿｽ{ｿｽ^ｿｽｿｽｿｽﾅキｿｽｿｽｿｽｿｽｿｽZｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽｿｽﾍり無ｿｽｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2003/04/23(ｿｽｿｽ) 09:21:52
ｿｽﾂ能ｿｽﾅゑｿｽｿｽBADODB.ConnectionｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉ対ゑｿｽｿｽﾄ、
ｿｽﾈ会ｿｽｿｽﾌ包ｿｽｿｽ調べて鯉ｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽEｿｽﾚ托ｿｽｿｽﾜでの待機ｿｽｿｽｿｽﾔを調撰ｿｽｿｽｿｽｿｽｿｽuConnectionTimeoutｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽv
ｿｽEｿｽ同奇ｿｽｿｽﾅの接托ｿｽｿｽｿｽsｿｽｿｽｿｽuOpenｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOptionsｿｽｿｽｿｽｿｽｿｽﾉ指ｿｽ閧ｷｿｽｿｽadAsyncConnectｿｽ關費ｿｽv
ｿｽEｿｽﾚ托ｿｽｿｽ中止ｿｽｿｽｿｽｿｽｿｽｿｽuCancelｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽv
ｿｽEｿｽｿｽｿｽﾝの接托ｿｽｿｽ況を調べゑｿｽuStateｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽv
ｿｽEｿｽﾚ托ｿｽｿｽｿｽｿｽｿｽｿｽﾌ開ｿｽnｿｽOｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽuWillConnectｿｽCｿｽxｿｽｿｽｿｽgｿｽv
ｿｽEｿｽﾚ托ｿｽｿｽｿｽｿｽｿｽｿｽﾌ奇ｿｽｿｽｿｽｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽuConnectCompletｿｽCｿｽxｿｽｿｽｿｽgｿｽv
ｿｽEｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ通知ｿｽｿｽｿｽｿｽｿｽuInfoMessageｿｽCｿｽxｿｽｿｽｿｽgｿｽv
TOSHI 2003/04/23(ｿｽｿｽ) 11:21:27
>ｿｽEｿｽ同奇ｿｽｿｽﾅの接托ｿｽｿｽｿｽsｿｽｿｽｿｽuOpenｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOptionsｿｽｿｽｿｽｿｽｿｽﾉ指ｿｽ閧ｷｿｽｿｽadAsyncConnectｿｽ關費ｿｽv
helpｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽ
>ｿｽEｿｽﾚ托ｿｽｿｽ中止ｿｽｿｽｿｽｿｽｿｽｿｽuCancelｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽv
ｿｽｿｽgｿｽｿｽｿｽﾄ抵ｿｽｿｽ‾ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾇ趣ｿｽｿｽﾔゑｿｽｿｽﾏゑｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎ会ｿｽｿｽPｿｽﾅゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
case1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
PrivateSubConnection(NoAsInteger)
flg=False
SelectCaseNo
Case1
cnn.Provider="SQLOLEDB"
cnn.Properties("DataSource").Value=strServerName
cnn.Properties("IntegratedSecurity")="SSPI"
IfMe.Combo1.ListIndex<>-1Then
cnn.Properties("InitialCatalog").Value=_
Me.Combo1.List(Me.Combo1.ListIndex)
EndIf
cnn.Open,,,adAsyncConnect
While(cnn.State=adStateConnecting)
DoEvents
Ifflg=TrueThen
ExitSub
EndIf
Wend
IfMe.Combo1.ListIndex=-1Then
Setrs=cnn.OpenSchema(adSchemaCatalogs)
Me.Combo1.Clear
DoUntilrs.EOF
Me.Combo1.AddItemrs.Fields(0).Value
rs.MoveNext
Loop
EndIf
Case2
cnn.Provider="SQLOLEDB"
cnn.Properties("DataSource").Value=strServerName
cnn.Properties("UserID")=strUserName
cnn.Properties("Password")=strPassWord
IfMe.Combo1.ListIndex<>-1Then
cnn.Properties("InitialCatalog").Value=_
Me.Combo1.List(Me.Combo1.ListIndex)
EndIf
cnn.Open
IfMe.Combo1.ListIndex=-1Then
Setrs=cnn.OpenSchema(adSchemaCatalogs)
Me.Combo1.Clear
DoUntilrs.EOF
Me.Combo1.AddItemrs.Fields(0).Value
rs.MoveNext
Loop
EndIf
EndSelect
EndSub
PrivateSubCommandEnd_Click()
cnn.Cancel
flg=True
EndSub
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2003/04/26(ｿｽy) 03:08:59
>>ｿｽEｿｽﾚ托ｿｽｿｽ中止ｿｽｿｽｿｽｿｽｿｽｿｽuCancelｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽv
>ｿｽｿｽgｿｽｿｽｿｽﾄ抵ｿｽｿｽ‾ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾇ趣ｿｽｿｽﾔゑｿｽｿｽﾏゑｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾇの包ｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾉゑｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Canecelｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ、DBｿｽｿｽｿｽﾌ認ｿｽﾘ擾ｿｽｿｽｿｽｿｽ中断ｿｽｿｽｿｽｿｽﾚ的ｿｽﾉは使ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
DataSourceｿｽﾌ探ｿｽｿｽｿｽﾈどにゑｿｽｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽ中断ｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽ轤ｵｿｽｿｽｿｽﾌで。
#DataSourceｿｽﾌ探ｿｽｿｽｿｽﾈどにゑｿｽｿｽｿｽｿｽ骼橸ｿｽﾔは、ｿｽlｿｽbｿｽgｿｽｿｽｿｽ[ｿｽNｿｽAｿｽ_ｿｽvｿｽ^ｿｽｿｽ
#ｿｽhｿｽｿｽｿｽCｿｽo(ｿｽｿｽｿｽ驍｢ｿｽﾍハｿｽ[ｿｽhｿｽEｿｽFｿｽAｿｽｿｽｿｽﾌの難ｿｽｿｽｿｽｿｽﾈゑｿｽ)ｿｽﾉ搾ｿｽｿｽEｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TOSHI 2003/04/28(ｿｽｿｽ) 08:38:28
datasourceｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈのゑｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽOｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽhSQLSERVERｿｽﾌ擾ｿｽｿｽLｿｽﾒゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾉは？ｿｽh
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽsｿｽﾂ能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
>http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200304/03040073.txt
