| 
             
              ソスソスVBソスソスソスSソスメ掲ソスソスソスソス(VB2-VB6ソスソス.NETソスソスソスp)
             
           | 
        
ソスEC/C++
        ソスEDelphi
        ソスEVisual BasicソスソスソスSソスソス
        ソス@(VB2-VB6ソスソス.NETソスソスソスp)
        ソスEVisual Basic(VB2-VB6)
        ソスEVisual Basic .NET
        ソスEVisual C++
ソスソスソス゚て難ソスソスeソスソスソスワゑソスソスBソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
        VB2008ExpressEditionソスソスADO.Netソスソスgソスソス.mdb(Accessソスtソス@ソスCソスソス)ソスソスソスソスfソス[ソス^ソスソス謫セソスソスソストゑソスソスワゑソスソスB(DataAdapterソスgソスp)
        ソスソスソスソスDataSetソスヨ格ソス[ソスソスソスADataSetソスソスナソスソスRソス[ソスhソスフ追会ソスソスAソスXソスVソスAソス除ソスソスsソスソスソスAソスマ更ソスソスソスワゑソスソスB
        ソスソスソスソスソスワでは撰ソスソスソスノ難ソスソスすソスソスフでゑソスソスソスソスADataSetソスフ変更ソスソスeソスソスDataAdapterソスソスハゑソスソスソスUpdateソスソスソス謔、ソスニゑソスソスソスニ、
        ソスuソスソスソスソスソスソスソスsソス癆ス:UpdateCommandソスノゑソスソスソスト、ソスソスソスソスソス¥ソスソスソス1ソスソスソスRソス[ソスhソスフゑソスソスソス0ソスソスソスソスソスソスソスソスソスソスソスソスワゑソスソスソスソスBソスv
        ソスソスソスフようソスネ厄ソスフ包ソスソスソスソスソスネゑソスソスGソスソスソス[ソスソスソスoソストゑソスソスワゑソスソスワゑソスソスB
        ソスネ会ソスソスノ環具ソスソスニソソス[ソスXソスソス¥ソスソスソスソスソスワゑソスソスフでどなゑソスソスソスソスソスソスソスソスソスソス閧ヲソスネゑソスソスナゑソスソス蛯、ソスソスソスH
        
        ソスEソスJソスソスソスツ具ソス
        OSソスFWindowsXPServicePack2
        VisualBasic2008ExpressEdition
        Acceess97
        mdbソスtソス@ソスCソスソスソスソスソスFCreateFile.mdb
        ソスeソス[ソスuソスソスソスソスソスFCreateTable
        
        ソスECreateTableソスソスe
        ソスoソス[ソスRソス[ソスh(ソスeソスLソスXソスgソス^)ソスソスソスソスLソス[
        ソスソスソスiソスヤ搾ソス(ソスeソスLソスXソスgソス^)
        ソスソスソスiソスソス(ソスeソスLソスXソスgソス^)
        ソスFソスヤ搾ソス(ソスソスソスlソス^)
        ソスTソスCソスY(ソスソスソスlソス^)
        1(ソスソスソスlソス^)
        2(ソスソスソスlソス^)
        3(ソスソスソスlソス^)
        4(ソスソスソスlソス^)
        ソスEソスEソスEソスヤ難ソスソスl
        11(ソスソスソスlソス^)
        12(ソスソスソスlソス^)
        ソスソスソスiソスハトソス[ソス^ソスソス(ソスソスソスlソス^)
        
        ソスニゑソスソストゑソスソスワゑソスソスBソスソスソスソスソスフで茨ソスUソスソスソスソスソスナ切ゑソスワゑソスソスB
ソスEソス¥ソス[ソスX
        FormDataAddソスニゑソスソスソスソスハフソスHソス[ソスソスソスノ、
        ソスoソス[ソスRソス[ソスh(txtAddBarcode)ソスAソスソスソスiソスヤ搾ソス(txtAddBan)ソスAソスソスソスiソスソス(txtAddName)ソスAソスFソスヤ搾ソス(txtAddColor)ソスAソスTソスCソスY(txtAddSize)ソスAソスiソス[ソスヤ搾ソス(txtAddDown)ソスAソスソスソスl(txtAddSize)ソスニゑソスソスソスソスeソスLソスXソスgソス{ソスbソスNソスXソスソスソスソスソスソス
        ソスoソス[ソスRソス[ソスhソス`ソスTソスCソスYソスワでは包ソスソスハに難ソスソスヘゑソスソスAソスiソス[ソスヤ搾ソスソスヘテソス[ソスuソスソスソスソスソス1ソス`12ソスノ難ソスソスソスソス齒奇ソスソスソスソスソスソスソスフでゑソスソスソス(ソスツまゑソス1ソス`12ソスネ外ソスフ撰ソスソスlソスヘ厄ソスソスソス)ソスAソスソスソスlソスヘ格ソス[ソスヤ搾ソスソスソスナ趣ソスソスソスソスソスソス齒奇ソスノ難ソスソスソスソスlソスソスソスソスソスソスワゑソスソスB
        
        ソスソスソスソスソスト、ソスソスeソスソスLソスソスソスソスButtonソスソスソスソスソスソスソスソスソスFormMainソスソスDataAddソスTソスuソスソスソスソスsソスソスソスソスニ鯉ソスソスソスソスソスフでゑソスソスB
        ソスoソス[ソスRソス[ソスhソスソスソスLソス[ソスニゑソスソストゑソスソスワゑソスソスフゑソスButtonソスソスソスソスソスソスソスソスソスソスノ難ソスソスソスソスoソス[ソスRソス[ソスhソスlソスソスソスソスソスソスソスソスホバソス[ソスRソス[ソスhソス`ソスTソスCソスYソスワでと格ソス[ソスヤ搾ソスソスナ趣ソスソスソスソスソスソスソスソスノ撰ソスソスlソスソスヌ会ソスソスB
        ソスソスソスソスノ格ソス[ソスヤ搾ソスソスナ趣ソスソスソスソスソスソスソスソスネ外ソスソス1ソス`12ソスフ擾ソスソスソス0ソスナ厄ソスソス゚ゑソスB
        
        ソスソスソスナに難ソスソスソスソスoソス[ソスRソス[ソスhソスソスソスソスソスソスソス1ソス`12ソスフ値ソスニ擾ソスソスiソスgソス[ソス^ソスソスソスフ値ソスフみゑソスマ更ソスソスソスソス(ソスソスソスソスソスソスlソスニ搾ソスソスソスFormDataAddソスナ難ソスソスヘゑソスソス黷スソスiソス[ソス齒奇ソスニ擾ソスソスiソスgソス[ソス^ソスソスソスlソスソスソスソスZ)ソスB
        ソスソスソスネみにバソス[ソスRソス[ソスhソスニゑソスソスソスソスフは単ソスネる数ソスlソスソスソスソスソスソスソストゑソスソスフでゑソスソスB
        
        
        PublicClassFormMain
        
        PublicConnAsNewOleDb.OleDbConnection
        PublicCreateSelectAsNewOleDb.OleDbCommand("SELECT*FROMCreateTable",Conn)
        PublicCreateDAdapterAsNewOleDb.OleDbDataAdapter(CreateSelect)
        PublicCreateBuilderAsNewOleDb.OleDbCommandBuilder(CreateDAdapter)
        PublicCreateDSetAsNewDataSet
        
        PrivateSubFormMain_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
        
        Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:¥CreateFile.mdb"
        SyohinDAdapter.Fill(CreateDSet)
        
        EndSub
        
        PublicSubDataAdd()
        
        DimSKey(0)AsDataColumn
        
        SKey(0)=CreateDSet.Tables(0).Columns("ソスoソス[ソスRソス[ソスh")
        CreateDSet.Tables(0).PrimaryKey=SKey
        
        CallKeyGet()
        DimKeyRowAsDataRow
        KeyRow=CreateDSet.Tables(0).Rows.Find(FormDataAdd.txtAddBarcode.Text)
        
        IfKeyRowIsNothingThen
        DimCreateRowAsDataRow
        CreateRow=CreateDSet.Tables(0).NewRow
        
        CreateRow("ソスoソス[ソスRソス[ソスh")=FormDataAdd.txtAddBarcode.Text
        CreateRow("ソスソスソスiソスヤ搾ソス")=FormDataAdd.txtAddBan.Text
        CreateRow("ソスソスソスiソスソス")=FormDataAdd.txtAddName.Text
        CreateRow("ソスFソスヤ搾ソス")=FormDataAdd.txtAddColor.Text
        CreateRow("ソスTソスCソスY")=FormDataAdd.txtAddSize.Text
        ForiAsInteger=5To16
        CreateRow(i)=0
        Next
        CreateRow(Integer.Parse(FormDataAdd.txtAddDown.Text)+4)=FormDataAdd.txtAddSu.Text
        CreateRow("ソスソスソスiソスハトソス[ソス^ソスソス")=FormDataAdd.txtAddSu.Text
        
        CreateDSet.Tables(0).Rows.Add(CreateRow)
        CreateDAdapter.Update(CreateDSet)
        Else
        DimKeyNumAsInteger=0
        KeyNum=CreateDSet.Tables(0).Rows.IndexOf(KeyRow)
        
        CreateDSet.Tables(0).Rows(KeyNum)(Integer.Parse(FormDataAdd.txtAddDown.Text)+4)+=Integer.Parse(FormDataAdd.txtAddSu.Text)
        CreateDSet.Tables(0).Rows(KeyNum)("ソスソスソスiソスハトソス[ソス^ソスソス")+=Integer.Parse(FormDataAdd.txtAddSu.Text)
        
        CreateDAdapter.Update(CreateDSet)
        
        EndIf
        
        EndSub
        
        EndClass
        
        ソスソスソスソスソスXソスニなりすソスソスソスワゑソスソスソスB
ソスソスソスソス
        FormDataAddソスソスフ撰ソスソスlソスフテソスLソスXソスgソス{ソスbソスNソスXソスソスソスソスtxtAddSizeソスナは厄ソスソスソス
        txtAddSuソスナゑソスソスBソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
ソスソスソスソスノ追会ソスソスナゑソスソスBソスソスソスソスソスワゑソスソスソスB
        ソスソスソスヘゑソスソスソスソスoソス[ソスRソス[ソスhソスlソスソスソスfソス[ソス^ソスxソス[ソスXソスソスノ厄ソスソスソスソスソスホ追会ソスソスナゑソスソスソスフでゑソスソスソスソスA
        ソスソスソスソス鼾ソスXソスVソスソスニゑソスソスソスソスソスナゑソスソスソスソスソスソスフ趣ソスソスソスソスフエソスソスソス[ソスソスソスbソスZソス[ソスWソスソスソスナまゑソスソスB
        ソスソスソスネみにゑソスソスソスソスナは具ソスソスソスソストゑソスソスワゑソスソスが、ソス除ソスソスソスソスソスソスソスUpdateソスソスLソスソスソスナはなゑソスソスンゑソスソスソスソスナゑソスソスB
http://social.msdn.microsoft.com/Forums/ja-JP/csharpexpressja/thread/f3508ba7-3a3b-42c4-8cbd-ae8c968a40c9
        
        ソスノゑソスソスソスソスワゑソスソスソスソスA
        ソス白のフソスBソス[ソスソスソスhソスソスソスソスソスソスワゑソスソスか?
ソス゚具ソスソスソスソスOソスソスソスソスソスニ鯉ソスソス¥ソスソスソスいソスソスoソストゑソスソスワゑソスソスB
        
        http://www.google.com/search?hl=ja&client=opera&rls=en&q=%E5%90%8C%E6%99%82%E5%AE%9F%E8%A1%8C%E9%81%95%E5%8F%8D+UpdateCommand&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
ソスソスソスOソスOソスソスソスト鯉ソスソスソスソスソスソスソス
        ソスtソスBソス[ソスソスソスhソスソスソスソスソスソスロのデソス[ソス^ソスノゑソスソス(ソスソスソスソスノゑソスソスソスソス)ソスヘゑソスソスソスワゑソスソスソスナゑソスソスソスソスB
        ソスソスソスいソス私ソスネゑソスノ抵ソスソスラまゑソスソスソスソスソスソスソスソスソスソスソスソスsソス癆スソスソスソスソスいソスあソスソスAソスソスソスソスソス謔、ソスネ趣ソスソスソスソスソスソスソスワゑソスソスソスソスソスソスAソスソスソスソスソスソスソスソスソスソスソスソス閧オソスト抵ソスソスXソスソスソスツゑソスソスソスソスワゑソスソスソスB
        ソスネ前ソスノゑソスソスソスフようソスネエソスソスソス[ソスソスソスoソスト、ソスtソスBソス[ソスソスソスhソスソスソスフ趣ソスLソス[ソスソスNOソスソスソスソスソスソスソス阡シソスpソスソスソスソスソスフみゑソスソスソスソスソスソス閧キソスソスニダソスソスソスンゑソスソスソスソスナゑソスソスソスソスソスソスソスヘゑソスソスフようソスネフソスBソス[ソスソスソスhソスソスソスソスツゑソスソストまゑソスソスソスB
        
        Updateソスフ際、DataSetソスナ新ソスソスソスノソスソスRソス[ソスhソスフ追会ソスソスソスsソスソスソスソスソスソスソスUpdateソスヘOソスjソスネのでゑソスソスソスソスAソスソスソスソスフ搾ソスソスレのみ変更ソス窿鯉ソスRソス[ソスhソスフ削除ソスソスsソスソスソスソスソスソスソスUpdateソスソスソスノゑソスソスフようソスネエソスソスソス[ソスソスソスナゑソス謔、ソスナゑソスソスB
        
        ソスソスソスソス
        ソスtソスHソス[ソスソスソスソスソス[ソスhソスソスソスソス
        SyohinDAdapter.Fill(CreateDSet)ソスソス
        CreateDAdapter.Fill(CreateDset)ソスナゑソスソスB
        ソスナゑソスソスヤ違えソスワゑソスソスソスソスB
ソスソスソスソスソスソスワゑソスソスソスソスB
        ソスソスLソスフ擾ソスソスソスソスソスソスンゑソスsソスソスソスソスソスソスAソスソスソスフフソスBソス[ソスソスソスhソスソスソスノ費ソスソスpソスソスソスソスソスソスソスソスソスソスワゑソスソスソスソスA
        ソスソスソスソスフ搾ソスソスレのみの変更ソスソスsソスソスソスフでゑソスソスソスソスソスAソスソスソスフゑソスソスソスソスソスソスeソスソスソスソスソスソスフゑソスソスH
        ソスニ思ソスソスソスtソスBソス[ソスソスソスhソスソスソスソスマ更ソスソスソスソスソスソスUpdateソスナゑソスソスワゑソスソスソスソスB
        (ソスソスLソス[ソスフみ気ソスソスツゑソスソスソスホ良ゑソスソスフゑソスソスニ思ソスソスソスワゑソスソスソスソスB)
        
        ソスOソスOソスソスソスト鯉ソスソスソスソスソスソスソスフ空白ゑソスソスソスソスソスフでは?ソスナ、ソスヨ止ソスソスソス[ソスhソスソスvソスソスソスoソスソスソスソスソスニゑソスソスナゑソスソスソスソスソスノ繋ソスソスソスソスワゑソスソスソスソスBソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB