バインド配列に変換 (ID:108517)

名前

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

本文 質問です。というか、教えてください。 sesOra.BeginTrans Do While Not EOF(intFno) Line Input #intFno, strBuf '１行分のデータを設定する strData = "" Do While InStr(strBuf, ",") > 0 strData = strData & "'" & strQuote(Trim$(Left$(strBuf, InStr(strBuf, ",") - 1))) & "'," strBuf = Mid$(strBuf, InStr(strBuf, ",") + 1) DoEvents Loop strData = strData & "'" & strQuote(Trim$(strBuf)) & "'" lngRet = dbOra.DbExecuteSQL(strSQL & " (" & strData & ")") 'DoEvents Loop sesOra.CommitTrans ↑をバインド配列を使用したものに変換したいんですけど、 うまくできません。 誰か教えてください。 よろしくお願いします。