Date: Tue, 5 Sep 2000 22:31:41 +0900
From: "Kuromaru" <who@example.co.jp>
This is a multi-part message in MIME format.
------=_NextPart_000_0091_01C01789.103DD520
Content-Type: text/plain;
charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
ADOで複数テーブル参照のAddNew Update Delete
VB6 でSQL7と文化オエイエント社のTrue DBgrid Pro使用して開発しておりま
す。
以下の方法でDBgridを利用して複数件数の項目を表示させ
売上明細にINSERT、DELETE、UPDATEを行ないたいのですが。
1.例えば売上明細情報テーブルと担当者テーブルが存在します。
2.DBgrid はテーブルとリンクさせるようにしています。
(DataEnvironmentを利用してDataSource、DetaMember
DataMode=Boundでプロパティでリンクします)
3.売上明細テーブルには従業員コードはあるのですが、従業員名がないのでその従
業員
コードを利用して従業員名を以下の select 文でDBgrid上に表示しようと
思い行ないました。(従業員名は参照のみの項目です)
select uri.seikyuday , uri.jg_cd , jgmas.name,uri.kin FROM uri LEFT
OUTER JOIN
jgmas ON uri.jg_cd = jgmas.code
where (uri.seikyuday = 20000901)
4.DBgrid のDELETE を行なうと DELETEさせたくない従業員マスターの00001の太郎
の
行までも削除されてしまう。
5.従業員コード00001を変更した場合従業員名は変わらずそのまま
6.あたらしい行に従業員コード00001を入力すると
VBから 実行時エラー'6160'
”データアクセスエラーです。PRIMARY_KEY違反 ・・
重複したキーは挿入できません。”
とエラーになります。
7.従業員名を表示させなければ何も問題はありません。
皆さんはどのような方法でベースになるテーブルのみの更新を行なわれているので
しょうか。
それとも無理なのでしょうか。
<概略>
+−−−−−+−−−−−−−+−−−−−−+−−−−−+
|日付 | 従業員コード | 従業員名 | 金 額 |
+−−−−−+−−−−−−−+−−−−−−+−−−−−+
|20000901 | 00001 | 太郎 | 1,000 |
------=_NextPart_000_0091_01C01789.103DD520
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.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>=1B$B#A#D#O$GJ#?t%F!<%V%k;2>H$N=1B(BAddNew Update =
Delete</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B#V#B#6=1B(B =
=1B$B$G#S#Q#L=1B(B7=1B$B$HJ82=3D%*%(%$%(%s%H<R$N=1B(BTrue DBgrid =
Pro=1B$B;HMQ$7$F3+H/$7$F$*$j$^$9!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2>=1B$B0J2<$NJ}K!$G=1B(BDBgrid=1B$B$rMxMQ$7$FJ#?t7o?t$N9`L\$rI=3D<=
($5$;=1B(B<BR>=1B$BGd>eL@:Y$K=1B(BINSERT=1B$B!"=1B(BDELETE=1B$B!"=1B(BUPD=
ATE=1B$B$r9T$J$$$?$$$N$G$9$,!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B#1!%Nc$($PGd>eL@:Y>pJs%F!<%V%k$HC4Ev<T%F!<%V%k$,B8:_$7$^$9!=
#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B#2!%=1B(BDBgrid=20
=1B$B$O%F!<%V%k$H%j%s%/$5$;$k$h$&$K$7$F$$$^$9!#=1B(B<BR>=1B$B!!!!!J=1B(BD=
ataEnvironment=1B$B$rMxMQ$7$F=1B(BDataSource=1B$B!"=1B(BDetaMember<BR>&nb=
sp; =20
DataMode=3DBound=1B$B$G%W%m%Q%F%#$G%j%s%/$7$^$9!K=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B#3!%Gd>eL@:Y%F!<%V%k$K$O=3D>6H0w%3!<%I$O$"$k$N$G$9$,!"=3D>6=
H0wL>$,$J$$$N$G$=3D$N=3D>6H0w=1B(B<BR>=1B$B!!!!%3!<%I$rMxMQ$7$F=3D>6H0wL>=
$r0J2<$N=1B(B=20
select =
=1B$BJ8$G=1B(BDBgrid=1B$B>e$KI=3D<($7$h$&$H=1B(B<BR> =20
=1B$B;W$$9T$J$$$^$7$?!#!J=3D>6H0wL>$O;2>H$N$_$N9`L\$G$9!K=1B(B<BR> &=
nbsp; select uri.seikyuday ,=20
uri.jg_cd , jgmas.name,uri.kin FROM uri LEFT OUTER=20
JOIN<BR> jgmas ON uri.jg_cd =3D=20
jgmas.code<BR> where (uri.seikyuday =3D =
20000901)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>=1B$B#4=1B(B.DBgrid =1B$B$N=1B(BDELETE =
=1B$B$r9T$J$&$H=1B(B =
DELETE=1B$B$5$;$?$/$J$$=3D>6H0w%^%9%?!<$N=1B(B00001=1B$B$NB@O:$N=1B(B<BR>=
=20
=1B$B9T$^$G$b:o=3D|$5$l$F$7$^$&!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B#5=1B(B.=1B$B=3D>6H0w%3!<%I=1B(B0000=1B$B#1$rJQ99$7$?>l9g=3D=
>6H0wL>$OJQ$o$i$:$=3D$N$^$^=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT =
size=3D2>=1B$B#6=1B(B.=1B$B$"$?$i$7$$9T$K=3D>6H0w%3!<%I=1B(B00001=1B$B$rF=
~NO$9$k$H=1B(B <BR> =20
=1B$B#V#B$+$i=1B(B =20
=1B$B<B9T;~%(%i!<=1B(B'6160'<BR>  =
; =20
=1B$B!I%G!<%?%"%/%;%9%(%i!<$G$9!##P#R#I#M#A#R#Y!2#K#E#Y0cH?=1B(B=20
=1B$B!&!&=1B(B<BR> &=
nbsp; =20
=1B$B=3DEJ#$7$?%-!<$OA^F~$G$-$^$;$s!#!I=1B(B<BR> =20
=1B$B$H%(%i!<$K$J$j$^$9!#=1B(B<BR>=1B$B#7=1B(B.=1B$B=3D>6H0wL>$rI=3D<($5$=
;$J$1$l$P2?$bLdBj$O$"$j$^$;$s!#=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT=20
size=3D2>=1B$B3'$5$s$O$I$N$h$&$JJ}K!$G%Y!<%9$K$J$k%F!<%V%k$N$_$N99?7$r9T$=
J$o$l$F$$$k$N$G$7$g$&$+!#=1B(B<BR>=1B$B$=3D$l$H$bL5M}$J$N$G$7$g$&$+!#=1B(=
B<BR>=1B$B!c35N,!d=1B(B<BR>=1B$B!\!]!]!]!]!]!\!]!]!]!]!]!]!]!\!]!]!]!]!]!=
]!\!]!]!]!]!]!\=1B(B<BR>=1B$B!CF|IU=1B(B &nb=
sp; =20
=1B$B!C!!=3D>6H0w%3!<%I=1B(B =20
=1B$B!C!!=3D>6H0wL>!!!!!C!!!!6b!!3[!!!!!C=1B(B<BR>=1B$B!\!]!]!]!]!]!\!]!]=
!]!]!]!]!]!\!]!]!]!]!]!]!\!]!]!]!]!]!\=1B(B<BR>=1B$B!C=1B(B20000901 =
=20
=1B$B!C=1B(B 00001=1B$B!!=1B(B =
=1B$B!!!!!!!!!C=1B(B =20
=1B$BB@O:=1B(B  =
; =1B$B!C=1B(B =20
1=1B$B!$#0#0#0=1B(B =1B$B!C=1B(B</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2><BR></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0091_01C01789.103DD520--
[MSDE/SQLServerに関して、今、どんなことにお困りですか?] |
よろしければお困りの内容を、電子メールで教えて下さい。 |
質問を電子メールで作成する
|
[ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧]
|