Date: Thu, 8 Jun 2000 17:49:20 +0900
From: "Madoka Takai" <who@sub.example.jp>
This is a multi-part message in MIME format.
------=_NextPart_000_0027_01BFD171.DFF3CDF0
Content-Type: text/plain;
charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
いつもいつもユーザのOraxxxでの一言でSQLServer&NTを退かれてきましたが、
今回、技術取得＆他社がOraxxx+VBの提案の為、無理やりMSDEで提案し開発してみ
ました。
「良かった点」
１．オンラインマニュアルが無料かつ日本語（どこぞのDBは貧乏会社ではサポー
トもうける金なしマニュアルもかえず）
ＭＳＤＮがOffice DeveloperやVisualStudioなどあれば無料でHelpに資料が
多い(英語が苦手)
２．TEST環境から本番環境への移行が楽（sp_attachやrestoreなど）
３．スタンドアロンで(local)にDB構築し、SPなどTEST終了後、本番のサーバDB
に作成などデータを壊さずTESTしやすい。
外注に頼む場合などOffice2000Proさえあればいいのだから頼みやすい。
しかもWindows95(Pentium133MHz+48MB)でもＯＫ。
どこぞのDBのWorkgroup→なんとかPersonalに移行する時は地獄だったが今
回天国でした。
どこぞのDB（Unix時代からLinux時代の今日まで使っているが）の場合、
VB+RDO(ODBC)やADOではスタンドアロンでは
動かない場合もあった。xx4xならOKだったのだが...
４．(1)NiftyServe [Microsoft Access Users' ForumのMSDE/SQLServer7.0]や
[Microsoft BackOffic Users' Forum]
(2)MSのサイトやnews[microsoft.public.jp.sqlserver.server]
(3)櫻井 隆さんのＨＰ
http://www2p.biglobe.ne.jp/~sakurait/cstrue/cl1999/cl1999c4.html
や堀川さんのＨＰなど参考資料が多い
５．Niftyによく発言されている山田さんの本「Access2000+MSDE」や 堀川さん
の「Office Magazine」
や「VBAプログラミング500の技」など参考書籍で実践的なものが多い。どこ
ぞのDBと違って本の値段も安い
６．ＳＱＬプロファイラでのトレースのし易さ、
クエリアナライザで経過時間表示や推定実行表示など
EnterPriseManagerは良かった。（持っている人はだが）
７．ＯＬＡＰやＷｏｒｋＦｌｏｗ Ｄｅｓｉｇｎｅｒなどがタダでできる。
（持っている人はだが）
あげればきりがないが、開発面は非常に良い。
ＤＢ自身の機能はＤＢの自動圧縮機能ぐらいしか気にしなかったがタダに勝るも
の無しでしょうか？
「苦労した点」
１．T-SQLはユーザ関数が作成できない事(SPを作成することで解決できるものは
解決)
２．DECODE,||,(+),DBMS_OUTPUTなど慣れ親しんだ命令を置換するのが慣れるま
で大変
３．EXCEPTIONなどのようにSPでエラー処理をまとめる為、GOTOを使わないとい
けない。
４．SEQUENCE用にテーブルを作成しなければならない。
５．ＤＢに対するユーザの信頼や実績事例がない。(6.5とは別物なので4.xは評
判悪かったし...)
６．Accessファイル共有型のシステムからの移行のシステムが多いため、
ユーザーがMSDEやSQLServerに移行しても気軽にEUCができると思っている。
直にMDBのように自分でいじりたがる。
７．外注を探す場合、xx/SQLの技術者は多いのだがT-SQLのは少ない
８．Access開発者ならばすぐに使えると思っている人が多い。（トランザクショ
ンや排他から教えないといけない）
９．まだどこぞのＤＢのようにフリーのｓｏｆｔが少ない。
以下Accessによる不便さ
１．フォームやレポートのレコードソースに時間のかかるSPなど設定すると
TimeOutする。
その為、SPを作成したりCommandオブジェクトを生成する必要がある。
２．一時テーブル処理
３．MDBとの併用
４．以前使っていた、ドキュメント作成ツールをＶｅｒＵＰしたら、ＡＤＰに対
応していなかった。
こちらもあげればきりがないが、どのDBも一緒。
MSDEやSQLServerの場合、Access2000を使っても開発工数はVBの場合と大して変
わらない。
「Access不思議な点」
ADPを実行中、Accessは自動的にadp1 〜 n .adpを作成するが（.ldpのよう
なもの？）
ADEを作成した場合、adp1 〜 n .adpでなくmdbの拡張子になる。
「Access便利なツール」
Office2000 Developer Edition に付いてくるアドイン
１．コードライブラリアン <-- 技術情報の蓄積＆Ｓａｍｐｌｅ
２．ＶＢＡコードコメンタ <-- 定型部分の記述の自動化
３．ＶＢＡエラー処理ルーチン <-- コーディング終了時のエラー処理追加
サンプルを例えば以下のように修正し、
$$H
$$V
On Error GoTo ErrorHandler ' エラー処理ルーチンを行います。
$$B
ExitHere:
Exit $$Y
$$SA
ErrorHandler:
'エラー処理
Call sEnd_Proc("$$N")
$$EA
以下の共通モジュール作成すればエラー処理の記述が楽になる。
※ Public con As ADODB.Connection 'コネクション
を定義すみとする。
Public Sub sEnd_Proc(strName As String)
'=============================================================
' 共通モジュール.sEnd_Proc
' 機能 : 終了処理
' 作成者 : m(_ _)t
' 作成日 : 2000-06-01
' 備考 :
'-------------------------------------------------------------
' 引数 :
' strName (String)
'-------------------------------------------------------------
' 戻り値 :
'-------------------------------------------------------------
' 修正履歴
' 2000-06-01 :
'=============================================================
'標準ポインタ
DoCmd.Hourglass False
' エラーの発生をチェックした後、メッセージを表示します。
If Err.Number <> 0 Then
MsgBox "エラー番号 " & Str(Err.Number) & Err.Source & " でエラーが発
生しました。" & _
vbCr & Err.Description, , Screen.ActiveForm.Caption & " " & strName
& _
" エラー", Err.HelpFile, Err.HelpContext
Else
MsgBox strName & " エラー"
End If
'例自分でトランザクション使用時フラグをセットしていた場合
'使用中ならばRollback
'If Trans_flg = True Then
'con.RollbackTrans
'Trans_flg = False
'ADODB Error
If con.Errors.Count > 0 Then
For Each errLoop In con.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If
'DB Connection Close
'例 publicに定義していたconnectionをclose
'If con.State = adStateOpen Then
' con.Close
'End If
'終了
Application.Quit
End
End Sub
など便利な事もある。
「質問」
１．どこぞのＤＢは、ベンチマークなどの結果のＨＰなどへの掲載を禁止している
ようですが、
ＭＳＤＥ/ＳＱＬＳｅｒｖｅｒはＯＫでしょうか？
２．また、どこぞのＤＢと比較した」結果はダメですよね？
３．このＭＬはＭＳＤＥ/ＳＱＬＳｅｒｖｅｒ以外は実名でもいいのでしょうか？
もちろんベンチマークなどの結果などもですが...
-- 余談 --
また、いつＭＳＤＥ＋ＡＣＣＥＳＳの仕事があるか分からないので、
ＶＢマガジン７月号のトランザクションをテストして見ようと思っています。
デフォルトのTRANSACTIONが意味ないとは、トホホですね。
VBAからconnectionのトランザクションでは、私がTESTした時にはOKのはずなのに？
※注意
先日もNiftyのForumで堀川さんのＨＰの話題が取り上げられていましたが、
どこぞのＤＢの方が良いとも思っていません。使う側の問題でしょ？
どこぞのＤＢは、よく使いますのでＤＢとしては大好きです（本当です）。
基本的にはどのＤＢも機能は大差ないと思っているので..(私レベルでは).
実はISAMが好きです。生産管理などのシステムの所要量計算部分など
ＲＤＢＭＳに置き換えるよりもISAMを使う方が断然早かったりします。
(昔、ＳＱＬ(Watxxx SQL)読みもできるしＩＳＡＭ(Betrixx)読みもできるＤＢが
あった )
（あくまでも私の場合でNetWaxx で NLM として作成した場合はですが...）
つまりケース バイ ケースなんですね。
皆、仲良くしたいものです。SQL-92 で PL/xxx が使え ADO の組み合わせのＤＢが
希望です（笑）。
-----------------------------------------
高井 円 Madoka Takai (PB-100)
E-Mail: who@example.co.jp
URL: www.trueheart.co.jp (ほとんど工事中)
-----------------------------------------
------=_NextPart_000_0027_01BFD171.DFF3CDF0
Content-Type: text/html;
charset="iso-2022-jp"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-2022-jp" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT=20
size=3D2>=1B$B!!$$$D$b$$$D$b%f!<%6$N=1B(BOraxxx=1B$B$G$N0l8@$G=1B(BSQLSer=
ver&NT=1B$B$rB`$+$l$F$-$^$7$?$,!"=1B(B<BR>=1B$B!!:#2s!"5;=3DQ<hF@!uB>=
<R$,=1B(BOraxxx+VB=1B$B$NDs0F$N0Y!"L5M}$d$j=1B(BMSDE=1B$B$GDs0F$73+H/$7$F=
$_$^$7$?!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2>=1B$B!!!VNI$+$C$?E@!W=1B(B<BR>=1B$B!!!!#1!%%*%s%i%$%s%^%K%e%"%k$=
,L5NA$+$DF|K\8l!J$I$3$>$N=1B(BDB=1B$B$OIOK32q<R$G$O%5%]!<%H$b$&$1$k6b$J$7=
%^%K%e%"%k$b$+$($:!K=1B(B<BR>=1B$B!!!!!!!!#M#S#D#N$,=1B(BOffice=20
Developer=1B$B$d=1B(BVisualStudio=1B$B$J$I$"$l$PL5NA$G=1B(BHelp=1B$B$K;qN=
A$,B?$$=1B(B(=1B$B1Q8l$,6l<j=1B(B)<BR>=1B$B!!!!#2!%=1B(BTEST=1B$B4D6-$+$i=
K\HV4D6-$X$N0\9T$,3Z!J=1B(Bsp_attach=1B$B$d=1B(Brestore=1B$B$J$I!K=1B(B<B=
R>=1B$B!!!!#3!%%9%?%s%I%"%m%s$G=1B(B(local)=1B$B$K=1B(BDB=1B$B9=3DC[$7!"=1B=
(BSP=1B$B$J$I=1B(BTEST=1B$B=3D*N;8e!"K\HV$N%5!<%P=1B(BDB=1B$B$K:n@.$J$I%G=
!<%?$r2u$5$:=1B(BTEST=1B$B$7$d$9$$!#=1B(B<BR>=1B$B!!!!!!!!30Cm$KMj$`>l9g$=
J$I=1B(BOffice2000Pro=1B$B$5$($"$l$P$$$$$N$@$+$iMj$_$d$9$$!#=1B(B<BR>=1B$=
B!!!!!!!!$7$+$b=1B(BWindows95(Pentium133MHz+48MB)=1B$B$G$b#O#K!#=1B(B<BR>=
=1B$B!!!!!!!!$I$3$>$N=1B(BDB=1B$B$N=1B(BWorkgroup=1B$B"*$J$s$H$+=1B(BPers=
onal=1B$B$K0\9T$9$k;~$OCO9v$@$C$?$,:#2sE79q$G$7$?!#!!!!!!=1B(B<BR>=1B$B!!=
!!!!!!$I$3$>$N=1B(BDB=1B$B!J=1B(BUnix=1B$B;~Be$+$i=1B(BLinux=1B$B;~Be$N:#=
F|$^$G;H$C$F$$$k$,!K$N>l9g!"=1B(BVB+RDO(ODBC)=1B$B$d=1B(BADO=1B$B$G$O%9%?=
%s%I%"%m%s$G$O=1B(B<BR>=1B$B!!!!!!!!F0$+$J$$>l9g$b$"$C$?!#=1B(Bxx4x=1B$B$=
J$i=1B(BOK=1B$B$@$C$?$N$@$,=1B(B...<BR>=1B$B!!!!#4!%=1B(B(1)NiftyServe=20
[Microsoft Access Users' =
Forum=1B$B$N=1B(BMSDE/SQLServer7.0]=1B$B$d=1B(B[Microsoft BackOffic =
Users'=20
Forum]<BR> =20
(2)MS=1B$B$N%5%$%H$d=1B(Bnews[microsoft.public.jp.sqlserver.server]<BR>=1B=
$B!!!!!!!!=1B(B(3)=1B$B]/0f=1B(B =1B$BN4$5$s$N#H#P=1B(B <A=20
href=3D"http://www2p.biglobe.ne.jp/~sakurait/cstrue/cl1999/cl1999c4.html"=
>http://www2p.biglobe.ne.jp/~sakurait/cstrue/cl1999/cl1999c4.html</A>=20
<BR> =20
=1B$B$dKY@n$5$s$N#H#P$J$I;29M;qNA$,B?$$=1B(B<BR> =20
=1B$B#5!%=1B(BNifty=1B$B$K$h$/H/8@$5$l$F$$$k;3ED$5$s$NK\!V=1B(BAccess2000=
+MSDE=1B$B!W$d!!KY@n$5$s$N!V=1B(BOffice=20
Magazine=1B$B!W=1B(B<BR> =20
=1B$B$d!V=1B(BVBA=1B$B%W%m%0%i%_%s%0=1B(B500=1B$B$N5;!W$J$I;29M=3Dq@R$G<B=
A)E*$J$b$N$,B?$$!#$I$3$>$N=1B(BDB=1B$B$H0c$C$FK\$NCMCJ$b0B$$=1B(B<BR>=1B$=
B!!!!#6!%#S#Q#L%W%m%U%!%$%i$G$N%H%l!<%9$N$70W$5!"=1B(B<BR>=1B$B!!!!!!!!%/=
%(%j%"%J%i%$%6$G7P2a;~4VI=3D<($d?dDj<B9TI=3D<($J$I=1B(B<BR>=1B$B!!!!!!!!=1B=
(BEnterPriseManager=1B$B$ONI$+$C$?!#!J;}$C$F$$$k?M$O$@$,!K=1B(B<BR>=1B$B!=
!!!#7!%#O#L#A#P$d#W#o#r#k#F#l#o#w!!#D#e#s#i#g#n#e#r$J$I$,%?%@$G$G$-$k!#!J=
;}$C$F$$$k?M$O$@$,!K=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B!!=1B(B =20
=1B$B$"$2$l$P$-$j$,$J$$$,!"3+H/LL$OHs>o$KNI$$!#=1B(B<BR>=1B$B!!!!#D#B<+?H=
$N5!G=3D$O#D#B$N<+F005=3DL5!G=3D$0$i$$$7$+5$$K$7$J$+$C$?$,%?%@$K>!$k$b$NL=
5$7$G$7$g$&$+!)=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B!!!V6lO+$7$?E@!W=1B(B<BR> =20
=1B$B!!#1!%=1B(BT-SQL=1B$B$O%f!<%64X?t$,:n@.$G$-$J$$;v=1B(B(SP=1B$B$r:n@.=
$9$k$3$H$G2r7h$G$-$k$b$N$O2r7h=1B(B)<BR>=1B$B!!!!#2!%=1B(BDECODE,||,(+),D=
BMS_OUTPUT=1B$B$J$I47$l?F$7$s$@L?Na$rCV49$9$k$N$,47$l$k$^$GBgJQ=1B(B<BR>=1B=
$B!!!!#3!%=1B(BEXCEPTION=1B$B$J$I$N$h$&$K=1B(BSP=1B$B$G%(%i!<=3DhM}$r$^$H=
$a$k0Y!"=1B(BGOTO=1B$B$r;H$o$J$$$H$$$1$J$$!#=1B(B<BR>=1B$B!!!!#4!%=1B(BSE=
QUENCE=1B$BMQ$K%F!<%V%k$r:n@.$7$J$1$l$P$J$i$J$$!#=1B(B<BR>=1B$B!!!!#5!%#D=
#B$KBP$9$k%f!<%6$N?.Mj$d<B@S;vNc$,$J$$!#=1B(B(6.5=1B$B$H$OJLJ*$J$N$G=1B(B=
4.x=1B$B$OI>H=3D0-$+$C$?$7=1B(B...)<BR> =20
=1B$B#6!%=1B(BAccess=1B$B%U%!%$%k6&M-7?$N%7%9%F%`$+$i$N0\9T$N%7%9%F%`$,B?=
$$$?$a!"=1B(B<BR>=1B$B!!!!!!!!%f!<%6!<$,=1B(BMSDE=1B$B$d=1B(BSQLServer=1B=
$B$K0\9T$7$F$b5$7Z$K=1B(BEUC=1B$B$,$G$-$k$H;W$C$F$$$k!#=1B(B<BR>=1B$B!!!!=
!!!!D>$K=1B(BMDB=1B$B$N$h$&$K<+J,$G$$$8$j$?$,$k!#=1B(B<BR>=1B$B!!!!#7!%30=
Cm$rC5$9>l9g!"=1B(Bxx/SQL=1B$B$N5;=3DQ<T$OB?$$$N$@$,=1B(BT-SQL=1B$B$N$O>/=
$J$$!!!!!!!!=1B(B<BR> =20
=1B$B#8!%=1B(BAccess=1B$B3+H/<T$J$i$P$9$0$K;H$($k$H;W$C$F$$$k?M$,B?$$!#!J=
%H%i%s%6%/%7%g%s$dGSB>$+$i65$($J$$$H$$$1$J$$!K=1B(B<BR> =
=20
=1B$B#9!%$^$@$I$3$>$N#D#B$N$h$&$K%U%j!<$N#s#o#f#t$,>/$J$$!#=1B(B<BR>=1B$B=
!!!!=1B(B<BR>=1B$B!!!!0J2<=1B(BAccess=1B$B$K$h$kITJX$5=1B(B<BR>=1B$B!!!!#=
1!%%U%)!<%`$d%l%]!<%H$N%l%3!<%I%=3D!<%9$K;~4V$N$+$+$k=1B(BSP=1B$B$J$I@_Dj=
$9$k$H=1B(BTimeOut=1B$B$9$k!#=1B(B<BR>=1B$B!!!!!!!!$=3D$N0Y!"=1B(BSP=1B$B=
$r:n@.$7$?$j=1B(BCommand=1B$B%*%V%8%'%/%H$r@8@.$9$kI,MW$,$"$k!#=1B(B<BR>=1B=
$B!!!!#2!%0l;~%F!<%V%k=3DhM}=1B(B<BR>=1B$B!!!!#3!%=1B(BMDB=1B$B$H$NJ;MQ=1B=
(B<BR>=1B$B!!!!#4!%0JA0;H$C$F$$$?!"%I%-%e%a%s%H:n@.%D!<%k$r#V#e#r#U#P$7$?=
$i!"#A#D#P$KBP1~$7$F$$$J$+$C$?!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B!!=1B(B =20
=1B$B$3$A$i$b$"$2$l$P$-$j$,$J$$$,!"$I$N=1B(BDB=1B$B$b0l=3Do!#=1B(B<BR>=1B=
$B!!!!=1B(BMSDE=1B$B$d=1B(BSQLServer=1B$B$N>l9g!"=1B(BAccess2000=1B$B$r;H=
$C$F$b3+H/9)?t$O=1B(BVB=1B$B$N>l9g$HBg$7$FJQ$o$i$J$$!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B!!!V=1B(BAccess=1B$BIT;W5D$JE@!W=1B(B<BR> =
=20
=1B$B!!!!=1B(BADP=1B$B$r<B9TCf!"=1B(BAccess=1B$B$O<+F0E*$K=1B(Badp1=1B$B!=
!!A=1B(B n=20
.adp=1B$B$r:n@.$9$k$,!J=1B(B.ldp=1B$B$N$h$&$J$b$N!)!K=1B(B<BR>  =
; =20
ADE=1B$B$r:n@.$7$?>l9g!"=1B(Badp1=1B$B!!!A=1B(B n =
.adp=1B$B$G$J$/=1B(Bmdb=1B$B$N3HD%;R$K$J$k!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B!!!V=1B(BAccess=1B$BJXMx$J%D!<%k!W=1B(B<BR>=1B$B!!!!=1B(BOf=
fice2000 Developer Edition=20
=1B$B$KIU$$$F$/$k%"%I%$%s=1B(B<BR>=1B$B!!!!#1!%%3!<%I%i%$%V%i%j%"%s!!=1B(=
B<-- =1B$B5;=3DQ>pJs$NC_@Q!u#S#a#m#p#l#e=1B(B<BR> =20
=1B$B#2!%#V#B#A%3!<%I%3%a%s%?=1B(B <-- =
=1B$BDj7?ItJ,$N5-=3DR$N<+F02=3D=1B(B<BR>=1B$B!!!!#3!%#V#B#A%(%i!<=3DhM}%k=
!<%A%s=1B(B <--=20
=1B$B%3!<%G%#%s%0=3D*N;;~$N%(%i!<=3DhM}DI2C=1B(B<BR> &nb=
sp; =20
=1B$B%5%s%W%k$rNc$($P0J2<$N$h$&$K=3D$@5$7!"=1B(B<BR>$$H<BR>$$V<BR>On =
Error GoTo=20
ErrorHandler &=
nbsp; '=20
=1B$B%(%i!<=3DhM}%k!<%A%s$r9T$$$^$9!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>$$B<BR>ExitHere:<BR> Exit $$Y</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>$$SA<BR>ErrorHandler:<BR> =20
'=1B$B%(%i!<=3DhM}=1B(B<BR> Call =
sEnd_Proc("$$N")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>$$EA</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B0J2<$N6&DL%b%8%e!<%k:n@.$9$l$P%(%i!<=3DhM}$N5-=3DR$,3Z$K$J$=
k!#=1B(B</FONT></DIV>
<DIV><FONT size=3D2>=1B$B"(=1B(B Public=20
con &nbs=
p; As=20
ADODB.Connection =
'=1B$B%3%M%/%7%g%s=1B(B<BR> =20
=1B$B$rDj5A$9$_$H$9$k!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Public Sub sEnd_Proc(strName As=20
String)<BR>'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>'=20
=1B$B6&DL%b%8%e!<%k=1B(B.sEnd_Proc<BR>' =1B$B5!G=3D=1B(B : =
=1B$B=3D*N;=3DhM}=1B(B<BR>' =1B$B:n@.<T=1B(B : m(_ _)t<BR>' =
=1B$B:n@.F|=1B(B :=20
2000-06-01<BR>' =1B$BHw9M=1B(B =20
:<BR>'-------------------------------------------------------------<BR>' =
=1B$B0z?t=1B(B =
:<BR>' =20
strName=20
(String)<BR>'------------------------------------------------------------=
-<BR>'=20
=1B$BLa$jCM=1B(B =
:<BR>'-------------------------------------------------------------<BR>' =
=1B$B=3D$@5MzNr=1B(B<BR>' 2000-06-01=20
:<BR>'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2> =
'=1B$BI8=3D`%]%$%s%?=1B(B<BR> =20
DoCmd.Hourglass False</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2> '=20
=1B$B%(%i!<$NH/@8$r%A%'%C%/$7$?8e!"%a%C%;!<%8$rI=3D<($7$^$9!#=1B(B<BR>&nb=
sp; If Err.Number <> 0=20
Then<BR> MsgBox =
"=1B$B%(%i!<HV9f=1B(B " &=20
Str(Err.Number) & Err.Source & " =
=1B$B$G%(%i!<$,H/@8$7$^$7$?!#=1B(B" &=20
_<BR> vbCr & =
Err.Description, ,=20
Screen.ActiveForm.Caption & " " & strName &=20
_<BR> " =1B$B%(%i!<=1B(B",=20
Err.HelpFile, =20
Err.HelpContext<BR> =20
Else<BR> MsgBox strName & =
"=20
=1B$B%(%i!<=1B(B"<BR> End If<BR> =
<BR> =20
'=1B$BNc<+J,$G%H%i%s%6%/%7%g%s;HMQ;~%U%i%0$r%;%C%H$7$F$$$?>l9g=1B(B<BR>&n=
bsp; =20
'=1B$B;HMQCf$J$i$P=1B(BRollback<BR> 'If Trans_flg =3D =
True Then=20
<BR> 'con.RollbackTrans<BR> =
'Trans_flg =3D=20
False<BR> <BR> 'ADODB=20
Error<BR> If con.Errors.Count > 0=20
Then<BR> For Each errLoop In=20
con.Errors<BR>  =
; =20
MsgBox "Error number: " & errLoop.Number & vbCr &=20
_<BR> &n=
bsp; =20
errLoop.Description<BR> Next=20
errLoop<BR> End If</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2> =
'DB=1B$B!!=1B(BConnection=1B$B!!=1B(BClose<BR> =20
'=1B$BNc=1B(B =
public=1B$B$KDj5A$7$F$$$?=1B(Bconnection=1B$B$r=1B(Bclose<BR> =
'If con.State =3D=20
adStateOpen Then<BR> ' =20
con.Close<BR> 'End If</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2> =
'=1B$B=3D*N;=1B(B<BR> =20
Application.Quit<BR> End<BR> <BR>End =
Sub</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B$J$IJXMx$J;v$b$"$k!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2> =1B$B!V<ALd!W=1B(B<BR>=1B$B!!#1!%$I$3$>$N#D#B$O!"%Y%s%A%^!=
<%/$J$I$N7k2L$N#H#P$J$I$X$N7G:\$r6X;_$7$F$$$k$h$&$G$9$,!"=1B(B<BR>=1B$B!!=
#M#S#D#E=1B(B/=1B$B#S#Q#L#S#e#r#v#e#r$O#O#K$G$7$g$&$+!)=1B(B<BR>=1B$B!!#2=
!%$^$?!"$I$3$>$N#D#B$HHf3S$7$?!W7k2L$O%@%a$G$9$h$M!)=1B(B<BR>=1B$B!!#3!%$=
3$N#M#L$O#M#S#D#E=1B(B/=1B$B#S#Q#L#S#e#r#v#e#r0J30$O<BL>$G$b$$$$$N$G$7$g$=
&$+!)=1B(B<BR>=1B$B!!!!!!$b$A$m$s%Y%s%A%^!<%/$J$I$N7k2L$J$I$b$G$9$,=1B(B.=
..</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>--=1B$B!!M>CL=1B(B =20
--<BR>=1B$B$^$?!"$$$D#M#S#D#E!\#A#C#C#E#S#S$N;E;v$,$"$k$+J,$+$i$J$$$N$G!"=
=1B(B<BR>=1B$B#V#B%^%,%8%s#77n9f$N%H%i%s%6%/%7%g%s$r%F%9%H$7$F8+$h$&$H;W$=
C$F$$$^$9!#=1B(B<BR>=1B$B%G%U%)%k%H$N=1B(BTRANSACTION=1B$B$,0UL#$J$$$H$O!=
"%H%[%[$G$9$M!#=1B(B<BR>VBA=1B$B$+$i=1B(Bconnection=1B$B$N%H%i%s%6%/%7%g%=
s$G$O!";d$,=1B(BTEST=1B$B$7$?;~$K$O=1B(BOK=1B$B$N$O$:$J$N$K!)=1B(B</FONT>=
</DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2>=1B$B"(Cm0U!!=1B(B<BR>=1B$B!!@hF|$b=1B(BNifty=1B$B$N=1B(BForum=1B=
$B$GKY@n$5$s$N#H#P$NOCBj$,<h$j>e$2$i$l$F$$$^$7$?$,!"=1B(B<BR>=1B$B!!$I$3$=
>$N#D#B$NJ}$,NI$$$H$b;W$C$F$$$^$;$s!#;H$&B&$NLdBj$G$7$g!)!!=1B(B &nb=
sp; =20
<BR> =20
=1B$B$I$3$>$N#D#B$O!"$h$/;H$$$^$9$N$G#D#B$H$7$F$OBg9%$-$G$9!JK\Ev$G$9!K!#=
=1B(B<BR>=1B$B!!4pK\E*$K$O$I$N#D#B$b5!G=3D$OBg:9$J$$$H;W$C$F$$$k$N$G=1B(B=
..(=1B$B;d%l%Y%k$G$O=1B(B).<BR>=1B$B!!<B$O=1B(BISAM=1B$B$,9%$-$G$9!#@8;:4=
IM}$J$I$N%7%9%F%`$N=3DjMWNL7W;;ItJ,$J$I=1B(B<BR>=1B$B!!#R#D#B#M#S$KCV$-49=
$($k$h$j$b=1B(BISAM=1B$B$r;H$&J}$,CGA3Aa$+$C$?$j$7$^$9!#=1B(B<BR></FONT><=
FONT=20
size=3D2> (=1B$B@N!"#S#Q#L=1B(B(Watxxx =
SQL)=1B$BFI$_$b$G$-$k$7#I#S#A#M=1B(B(Betrixx)=1B$BFI$_$b$G$-$k#D#B$,$"$C$=
?=1B(B =20
)</FONT></DIV>
<DIV><FONT size=3D2>=1B$B!!!J$"$/$^$G$b;d$N>l9g$G=1B(BNetWaxx =
=1B$B$G!!=1B(BNLM =
=1B$B$H$7$F:n@.$7$?>l9g$O$G$9$,=1B(B...=1B$B!K=1B(B</FONT></DIV>
<DIV><FONT =
size=3D2>=1B$B!!$D$^$j%1!<%9!!%P%$!!%1!<%9$J$s$G$9$M!#=1B(B<BR> =
=1B$B3'!"CgNI$/$7$?$$$b$N$G$9!#=1B(BSQL-92 =1B$B$G=1B(B PL/xxx=20
=1B$B$,;H$(=1B(B ADO =
=1B$B$NAH$_9g$o$;$N#D#B$,4uK>$G$9!J>P!K!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>-----------------------------------------<BR> =
=1B$B9b0f!!1_=1B(B=20
Madoka Takai (PB-100)<BR> E-Mail: <A=20
href=3D"mailto:who@example.co.jp">who@example.co.jp</A><BR>&nbs=
p; URL:=20
<A href=3D"http://www.trueheart.co.jp">www.trueheart.co.jp</A>=20
(=1B$B$[$H$s$I9);vCf=1B(B)<BR>-----------------------------------------<B=
R><BR></FONT></DIV></BODY></HTML>
------=_NextPart_000_0027_01BFD171.DFF3CDF0--
| [MSDE/SQLServerに関して、今、どんなことにお困りですか？] |
| よろしければお困りの内容を、電子メールで教えて下さい。 |
|
質問を電子メールで作成する
|
[ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧]
|
