投稿日:

SQLserver とクライアントとODBC

ACCESSフロントエンド　SQLserverバックエンドDBでDBアプリが開発できんかなあと奮闘中
形だけ整ってきたのでアプリが膨れ上がる前にローカルで開発したものをクライアントでも
動かすと・・
まず戸惑ったのがODBC　
SQL Server ODBC,ODBC Driver 13 for SQLserver,SQL server native client　
３択になってる？
Mysqlは少しだけかじったけど一択なんだけど・・
調べると再頒布ならSQL server native clientが良さげとGoogle先生がおっしゃるが
なぜか競合エラー　他のユーザーが同時に更新を・・で挫折
やむなく、とりあえず、SQL serverを選択　こちらでは何故か起きない
windows認証でSQLserverログインの場合
どのコネクターでもキモはクライアントのユーザーをSQL serverの
ローカルユーザーに同じ名前とＰＷで登録してかつSQL serverにも
登録して権限を与える。なんか矛盾してるような気もするが
これでクライアントからも接続できた。
accdeならコネクターの名前は開発元と同じ名前にする。これもキモ。

SQL server native clientは宿題とする

しかしOSは64bitだけどACCESSが32bitなのでコネクターも32ビット
なんですよね。
VBAでクエリ文書いているときも今ACCESS側のクエリなのか
SQL側のクエリなのかも時々混乱します。
まるで北斗琉拳の魔闘気の中にいるように自分の立ち位置がわからなくなります。
暗琉天破、受けたことはないですが・・。

投稿日:

Round　五捨五超入　

四捨五入する関数ROUNDはここに名前の出てくるソフトには
だいたいその名前で組み込まれているのですがACCESSのRound関数
だけは四捨五入ではなくて銀行丸め、ISO丸めと言うものでおなじ
端数処理ではあるが全く別物

探したけれどなんとACCESSには四捨五入の関数はなさそう。
formatでできる!?

ところで五捨五超入という薬局で使う端数処理があるのですが・・
５までは切り捨て、５を超えたら繰り上げる
銀行丸めとは似てはいるけどちょっと違う。銀行丸めほど複雑ではない。
薬代を算定するのに必要です。薬代というのを調べてみると
小数点第２位までらしい。
薬価は薬代/10だから小数点第３位までになる？
ならばＡという薬価の小数点以下を五捨五超入したい場合は
Ａ-0.0001を四捨五入すれば同じになるかな。

sqlserverのROUNDでround((A-0.001),0)

Aの型がfloatというのがちょっと引っかかる
落とし穴がありそう

ほか今日はACCESSフォームで式で型が一致しませんのアラート
ソースクエリのリンクしているColumnの型を間違えて保存してしまっていた。

投稿日:

MSSQLとMySQL違い＃日付

違いは色々あると思うけど備忘録
MySQLで日付だけ取得したい場合　current_date
MSSQLでは　convert(date,getdate())

追加
システム時刻取得は
MSSQLはgetdate()
mysqlはNow
ちなみにACCESSもNow

投稿日:

ODBC接続MSSQLテーブルに更新クエリは

ODBC接続MySQLテーブルに更新クエリが競合エラー　と書いたけれど
バックエンドDBがMSSQLだったら？　SQL Server 2016 をバックエンドにNorthWind.accdbで実験

ODBC設定を開くとMSSQL関係は2つある？よくわからないがSQL Serverを選択
MYSQLのようなReturn matched rows instead of affected rowsのODBC設定が見つからない
MSSQLにはshow processlist はないのでコマンドプロンプトでnetstat | find “ポート” で確認

競合エラーは起きないものの”＊＊＊ where column=(?)” cmd.execute,param 更新クエリ発行では接続が増え続ける。
“＊＊＊ where column=” & param　では増えない。
バックエンドはMSSQLに決定して
ODBCとcurrentproject.connectionはやめて接続文字列のdirectなんちゃら接続で進めていくこととする

投稿日:

今日は無題

カラム数が100を超えるようなテーブルを扱う際、あるカラム名が存在するのかどうか確認するのが面倒なので

Public Function isnullColumn(paramColumnName As String, paramTableName As String) As Boolean

なるものを・・バックエンドはMSSQL

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = “接続文字列”
cn.Open
rs.Open “select column_name from DBの名前.information_schema.columns where table_name='” & paramTableName & “‘”, cn

rs.MoveFirst
　 Do Until rs.EOF
If rs!column_name = paramColumnName Then
isnullColumn = False
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
exit function
End If
rs.MoveNext
Loop

isnullColumn = True

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Function

最初丁寧にexitでループを抜けていたがそれはここではＸ
罠にかけたら即終わるべし・・かな？