カラム数が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でループを抜けていたがそれはここではX
罠にかけたら即終わるべし・・かな?