カテゴリー: VBA

前回の続き vbaからsqlserverへ
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
　cn.ConnectionString = “SQLserver接続文字列”
　cn.open
Set rs = New ADODB.Recordset
　rs.CursorLocation = adUseClient　’前回はcnにしたけど今回はrs

rs.open “select・・・・”,cn,adopendynamic,adlockoptmistic
debug.print rs.recordcount
debug.print rs.cursortype

で返らないと思ったrecordcountがちゃんと返るのですが
rs.cursortypeを見るとどうもadopendynamicになってない

でこういうサイト見つけました
http://d.hatena.ne.jp/replication/20090312/1236866953
マイクロソフトのヘルプはリンク切れ

カーソル位置でカーソルタイプが決まる？のようです
adopendynamic　adopenforwardonly　がサーバサイド
adopenstatic　adopenkeyset　がクライアントサイド

adUseClientを明示したらadopenstaticが決定するのかな？

では今までほとんど明示していないのでデフォルトのサーバーサイドカーソルでadopenkeysetも矛盾あり？実はdynamicになっていた？
MysqlとSQLserverでも挙動に違いがありそうです。

カーソル位置とカーソルタイプとロックタイプは齟齬がないように組み合わせないと意図したようになってない可能性ありですか

難しいですrecordset

dateadd(Y,1,CURRENT_TIMESTAMP)
というのをネットで見つけた

実際にクエリ発行してみると

select dateadd(Y,1,CURRENT_TIMESTAMP)　は　2018-04-03 20:52:17.357

明日になる・・Yって何？
では
select format(CURRENT_TIMESTAMP,’Y’)　は　2018年4月

うーむ
調べるとYはdayofyaer　の略で年始からの日数

ここで謎だったVBAの
debug.Print format(now,”Y”) が　92　なのだが
これがSQLserverのdayofyearに当たることに気がついた。

ならば　SQLserverの
select format(CURRENT_TIMESTAMP,’Y’)　は　92　になってほしい所だが
なぜか
2018年4月

rs.recordcountが遅いかもの件です
5万件ぐらいのテーブルで確認してみました。
where条件にもよるのでしょうけど

rs.Open “select id from テーブル where条件”, cn, adOpenStatic, adLockOptimistic
Debug.Print rs.RecordCount

対

rs.Open “select id from テーブル where条件”,cn, adOpenStatic, adLockOptimistic
rs.Move first
i = 1
Do Until rs.EOF
rs.MoveNext
i = i + 1
Loop
Debug.Print i

はrs.recordcountの2馬身ぐらいで勝ちでしたが

rs.Open “select id from テーブル where条件”, cn, adOpenStatic, adLockOptimistic
Debug.Print rs.RecordCount

対

rs.Open “select id from テーブル where条件”,cn, adOpenForwardOnly, adLockReadOnly
rs.Move first
i = 1
Do Until rs.EOF
rs.MoveNext
i = i + 1
Loop
Debug.Print i

はloopの圧倒的勝利でした。

rs.addnew rs.update など流れの中で件数取得ならrecordcount
件数取得だけが目的ならloopということかな？