ｿｽgｿｽbｿｽv > VBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp) > 200912 >

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEｿｽeｿｽ言ｿｽｿｽfｿｽｿｽｿｽｿｽ

ｿｽ`ｿｽｿｽｿｽEｿｽTｿｽｿｽ 2009/12/07(ｿｽｿｽ) 13:29:17

ｿｽﾈ会ｿｽｿｽﾌようｿｽｿｽJOBｿｽﾆゑｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾆ、PERSONｿｽﾆゑｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽXMLｿｽﾉゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽDataSetｿｽﾉ趣ｿｽ闕橸ｿｽだとゑｿｽｿｽﾜゑｿｽｿｽB


1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ１


2
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ２


1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ３


3
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ４



1
ｿｽRｿｽc


2
ｿｽcｿｽｿｽ


ｿｽｿｽｿｽﾌとゑｿｽｿｽASQLｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈ鯉ｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽDataTableｿｽﾆゑｿｽｿｽﾄ取得ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

SELECTJOB.PERSON_ID,JOB.ITEM,PERSON.PERSON_NAME
FROMJOBLEFTJOINPERSONONJOB.PERSON_ID=PERSON.PERSON_ID

DataSetｿｽﾉゑｿｽRelationsｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾆのゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽAｿｽｿｽﾌ的ｿｽﾉどのようｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽVBｿｽｿｽ2008ｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/12/08(ｿｽｿｽ) 13:55:48

ｿｽｿｽｿｽｿｽｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB

PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsEventArgs)HandlesButton1.Click
DataGridView1.DataSource=GetSample()
DataGridView1.DataMember="JOB"
EndSub

FunctionGetSample()AsDataSet
DimdsAsNewDataSet()
ds.ReadXml(J.CreateReader(),XmlReadMode.InferSchema)
ds.ReadXml(P.CreateReader(),XmlReadMode.InferSchema)
ds.Tables("PERSON").PrimaryKey=NewDataColumn(){ds.Tables("PERSON").Columns("PERSON_ID")}
ds.Relations.Add("JOIN",ds.Tables("PERSON").Columns("PERSON_ID"),ds.Tables("JOB").Columns("PERSON_ID"),False)
ds.Tables("JOB").Columns.Add("PERSON_NAME",GetType(String),"Parent.PERSON_NAME")
Returnds
EndFunction

DimJ=

1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ１


2
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ２


1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ３


3
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ４


DimP=

1
ｿｽRｿｽc


2
ｿｽcｿｽｿｽ

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/12/08(ｿｽｿｽ) 14:30:51

Linqｿｽｿｽgｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽB


PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsEventArgs)HandlesButton1.Click
Dimds=GetSample()

Dimq=FromR1Inds.Tables("JOB")GroupJoinR2Inds.Tables("PERSON")_
OnR1.Field(OfString)("PERSON_ID")EqualsR2.Field(OfString)("PERSON_ID")_
IntoRightTableResults=Group_
FromGInRightTableResults.DefaultIfEmpty()_
SelectPERSON_ID=R1.Field(OfString)("PERSON_ID"),_
ITEM=R1.Field(OfString)("ITEM"),_
PERSON_NAME=If(GIsNothing,"(ｿｽｿｽｿｽｿｽ`)",G!PERSON_NAME)

DataGridView1.DataSource=q.ToArray()
EndSub

FunctionGetSample()AsDataSet
DimdsAsNewDataSet()
ds.ReadXml(J.CreateReader(),XmlReadMode.InferSchema)
ds.ReadXml(P.CreateReader(),XmlReadMode.InferSchema)
Returnds
EndFunction

DimJ=

1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ１


2
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ２


1
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ３


3
ｿｽAｿｽCｿｽeｿｽｿｽｿｽｿｽｿｽﾌ４


DimP=

1
ｿｽRｿｽc


2
ｿｽcｿｽｿｽ

ｿｽ`ｿｽｿｽｿｽEｿｽTｿｽｿｽ 2009/12/08(ｿｽｿｽ) 16:27:19

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽﾉ最擾ｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅ、ｿｽﾚ的ｿｽｿｽDataTableｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽ`ｿｽｿｽｿｽEｿｽTｿｽｿｽ 2009/12/08(ｿｽｿｽ) 16:28:09

ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB