Curl Global Community
ActiveXを使用してレコードセットを取得する - Printable Version

+- Curl Global Community (http://communities.curl.com)
+-- Forum: Discussions (http://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (http://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: ActiveXを使用してレコードセットを取得する (/showthread.php?tid=1099)



ActiveXを使用してレコードセットを取得する - naohiro0104 - 08-02-2014

お世話になります。

SJIS形式のCSVファイルの取り込みにActivexの使用を考えています。
以下の様に記述してレコードセットにまで取り込めているようですが取り出し方が分かりません
ご教示をお願いします

Code:
|| ADOのオープン
{let cn:ActiveXObject = {ActiveXObject ClsId = |"{00000514-0000-0010-8000-00AA006D2EA4}"|}}

{let cmd:CommandButton={CommandButton
                           label="push",
                           {on Action do
                               {let cnstr:String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties='Text;HDR=NO';" } || SQLServerの場合
                               {cn.Open cnstr}
                               {let sql:String = "SELECT * from test.csv where F3=3 ;"}
||レコードセット取り込み
                               {let rs:ActiveXObject = {cn.Execute sql}}
                               
                               || データ格納
                               {while {rs.EOF} == false do
||  4列目のレコードセット出力
                                   {popup-message {rs[3].Value}}

                                   {rs.MoveNext}
                               }
                               {rs.Close}
                               {cn.Close}
                               {rs.destroy-object}
                               {cn.destroy-object}
                               
                           }
                           
                       }
}



RE: ActiveXを使用してレコードセットを取得する - naohiro0104 - 08-04-2014

お世話になります。
上記の件 自己解決しました。

以下の様に記述して値を取得する事ができました。


Code:
        || データ格納

                               {while {rs.EOF} == false do

||  4列目のレコードセット出力

                                  || {popup-message {rs[3].Value}}

{popup-message {rs.Fields(3)}.Value}

                                   {rs.MoveNext}

                               }