<div>$B$O$8$a$^$7$F!"(BFUJI$B$H$$$$$^$9!#(B<br></div><div><br></div><div><a href="http://VB.NET">VB.NET</a>$B$rMxMQ$7$F$$$k$N$G$9$,!"%H%i%s%6%/%7%g%s$,$+$+$i$:$K:$$C$F$$$^$9!#(B</div><div>$B%"%I%P%$%9$rD:$1$J$$$G$7$g$&$+!#(B</div><div><br></div><div>Web$B%5!<%S%9$+$i(BDAO$B$N%a%=%C%I$r8F$S=P$7!"%G!<%?$r(BINSERT$B$9$k=hM}$K$J$C$F$$$^$9!#(B</div>
<div>$B30It%U%!%$%k$K5-=R$5$l$?(BINSERT$BJ8$rH/9T$9$k$N$G$9$,H/9T8e!"%G!<%?$NDI2C$G$-$k$N$G$9$,!"(B</div><div>$B#27oL\$N%G!<%?$rDI2C$9$k:]$K!"%(%i!<$rH/@8$5$;$k$H%m!<%k%P%C%/$5$l$:$K(B1$B7oL\$N%G!<%?$,(B</div><div>$BDI2C$5$l$?>uBV$H$J$C$F$$$^$9!#"(%9%H%"%I$GDI2C$r9T$C$F$bF1$88=>]$,H/@8$7$^$7$?!#(B</div><div><br></div><div>DAO$B$N(BInsertData$B%a%=%C%I$K(B<Transaction()>$B$r;XDj$7$?>l9g$O!">e5-$N$h$&$K#17oL\$,(B</div>
<div>$BEPO?$5$l$k$H;W$&$N$G$9$,!"(B<Transaction()>$B$O%/%i%9$K;XDj$r9T$C$F$$$k$N$G!"(B</div><div>$B%m!<%k%P%C%/$5$l$k$H;W$C$F$$$?$N$G$9$,8m$j$G$7$g$&$+!)(B</div><div><br></div><div>//$B#D#A#O(B Start</div><div><br></div><div>Imports Seasar.Dao.Attrs<br>Imports Seasar.Quill.Attrs<br></div><div>
<br></div><div><Implementation()> _<br> <S2Dao()> _<br> <Transaction()> _<br> <Bean(GetType(SampleDto))> _<br>Public Interface SampleDao<br></div><div><br></div><div> <SqlFile()> _<br>
Function InsertData(ByVal InsData As SampleDto) As Boolean<br><br>End Interface<br></div><div><br></div><div>//$B#D#A#O(B End</div><div><br></div><div>------------------------------------------------------------------------------------------</div>
<div><br></div><div>//DTO Start</div><div>Imports Seasar.Dao.Attrs<br><br>Namespace Sample<br><br> Public Class SampleDto<br></div><div><br></div><div>Public Property TelNumber() As String<br> Get<br> Return _TelNumber<br>
End Get<br> Set(ByVal value As String)<br> _TelNumber = value<br> End Set<br> End Property<br></div><div><br></div><div>//DTO End</div><div><br></div><div>------------------------------------------------------------------------------------------</div>
<div><br></div><div>//WEB$B%5!<%S%9(B Start</div><div><br></div><div>Imports System.Web<br>Imports System.Web.Services<br>Imports System.Web.Services.Protocols<br>Imports Seasar.Quill<br>Imports Seasar.Quill.Attrs<br>Imports System.Security.Cryptography<br>
Imports System.Collections.Generic<br><br><WebService(Namespace:="http://localhost.WebService/")> _<br><WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _<br><Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _<br>
Public Class WebService01<br> Inherits System.Web.Services.WebService<br></div><div><br></div><div>Protected daoOfSample As SampleDao</div><div><br></div><div>Private Function ImportData(ByVal _strTelnumber As String) As Boolean</div>
<div><br></div><div>Dim dto(2) as SampleDto</div><div><br></div><div>dto(0).TelNumber = "090-xxxx-xxxx"</div><div>dto(1).TelNumber = "080-xxxx-xxxx"</div><div><br></div><div>For i as integer = 0 To dto.Length -1 </div>
<div> daoOfSample.InsertData(dto(i))</div><div>Next</div><div><br></div><div>End Sub</div><div><br></div><div>//WEB$B%5!<%S%9(B End</div>