Thread Rating:
  • 192 Vote(s) - 2.64 Average
  • 1
  • 2
  • 3
  • 4
  • 5
ActiveXを使用してレコードセットを取得する
08-02-2014, 09:00 AM,
#1
ActiveXを使用してレコードセットを取得する
お世話になります。

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}
                               
                           }
                           
                       }
}
Reply
08-04-2014, 04:40 PM,
#2
RE: ActiveXを使用してレコードセットを取得する
お世話になります。
上記の件 自己解決しました。

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


Code:
        || データ格納

                               {while {rs.EOF} == false do

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

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

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

                                   {rs.MoveNext}

                               }
Reply

Forum Jump:


Users browsing this thread:
1 Guest(s)