VB6 ADOコントロールについて (ID:126795)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 環境は Windows2000 + VB6 + SQLServer2000 です。 サーバに接続しています。 下記のコードについてです。 With Adodc1 .ConnectionString = "Provider=MSDASQL;DSN=test;UID=sa;PWD=test;DATABASE=testdb;" .CommandType = adCmdText .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .RecordSource = "SELECT 氏名 FROM M_Data" .Refresh .Recordset.ActiveConnection.BeginTrans Do .Recordset.Fields("氏名").Value = "テスト" .Recordset.MoveNext Loop Until .Recordset.EOF = True .Recordset.ActiveConnection.CommitTrans End With この処理をネットワークで監視していますが、 .Recordset.Fields("氏名").Value = "テスト" の部分で データの更新の度にサーバに接続されていることが分かります。 データの書き換えを蓄積してサーバーへの書き込みを一括で行いたいのですが可能でしょうか？