ADOのVB-Script→BDS2006変換方法 (ID:30946)

名前

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

本文

ExcelのVBScriptで下記のように書かれています。
    Dim wAdoSet As New ADODB.Recordset
    wAdoSet.Fields.Append "OLDID" , adInteger
    wAdoSet.Fields.Append "BID"   , adInteger   
    wAdoSet.Fields.Append "BTYPE" , adInteger 
    wAdoSet.Fields.Append "BNCODE", adWChar, 7
    'カーソルの設定
    wAdoSet.CursorLocation = adUseClient
    
    Set funcMakeSijiSecRecset = wAdoSet

wAdoSet.Open
    wAdoSet.AddNew
    '
    wAdoSet.Fields("OLDID") = 0
    wAdoSet.Fields("BID")   = 1

wAdoSet.Update
    wAdoSet.MoveFirst

これをＢＤＳ２００６で実行したいので、
次のようにコーディングしてみました。
1.AdoTableを追加
2.データフィールドの追加
   wAdoSet.Fielddefs.Clear;
   wAdoSet.Fielddefs.Add('OLDID' , ftInteger);
   wAdoSet.Fielddefs.Add('BID'   , ftInteger);
   wAdoSet.Fielddefs.Add('BTYPE' , ftInteger);
   wAdoSet.Fielddefs.Add('BNCODE', ftInteger);

3.データフィールドへ値セット
   wAdoSet.Open;  <----ここでエラーになります。
   EDataBaseError(メッセージ'connectionまたはconnectionstring
   プロパティが指定されていませんとなります。

wAdoSet.Append;
    '
   wAdoSet.FieldByName('OLDID').AsInteger := 0;
   wAdoSet.FieldByName('BID').AsInteger   := 1;

wAdoSet.Post;
   wAdoSet.First;

ＤＢはSQLServer2005です。
VBScriptの様にconnection、出力用のテーブルを作らずに
すむ方法は無いでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る