Thread Rating:
  • 327 Vote(s) - 2.84 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}
                               
                           }
                           
                       }
}
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}

                               }

Forum Jump:


Users browsing this thread:
1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: 'mybb_threadviews' (errno: 2)
Query:
INSERT INTO mybb_threadviews (tid) VALUES('1099')