出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5496] 汎用関数とか投函してみませんか？
投稿者：ビギナーズラックさん 2005/11/30 12:59:52
ASPでいろいろサイト作ってると毎度つれて歩いてる汎用Functionとかたまってくるじゃないですか？
そんなの投函してみませんか？
他のプロの方がどんなの持ち歩いてるか興味あります。

とりあえずこんなんどうでしょ？(w

Function vbDMaxinEx(intMode, cn, TableName, FieldName , WhereCondition)
'**************************************
'ADO版指定したフィールドの最大値+1(最小値)を求める
'最大値は+1にしたのでちょっと注意
'cn --- コネクション
'TableName --- テーブル名
'FieldName --- フィールド名
'**************************************
On Error Resume next

Dim TempMaxRs
Dim strSQL
Set TempMaxRs = Server.CreateObject("ADODB.Recordset")

Select Case intMode
Case 1 '最大
strSQL = "SELECT * FROM " & TableName & " WHERE(" & WhereCondition & ") ORDER BY " & TableName & "." & FieldName & " DESC;"
Case 2 '最小
strSQL = "SELECT * FROM " & TableName & " WHERE(" & WhereCondition & ") ORDER BY " & TableName & "." & FieldName & " ;"
End Select

TempMaxRs.Open strSQL, cn,2,4
'何もない場合は1とする
If TempMaxRs.EOF Then
vbDMaxinEx = 1
TempMaxRs.Close
set TempMaxRs = Nothing
Exit Function
End If

TempMaxRs.MoveFirst

Select Case intMode
Case 1
vbDMaxinEx = clng(TempMaxRs.Fields(FieldName))+1
Case 2
vbDMaxinEx = clng(TempMaxRs.Fields(FieldName))
End Select

TempMaxRs.Close
set TempMaxRs = Nothing

End Function
汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/11/30 12:59:52] [5496]
　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/01 12:08:01] [5498]
　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/03 17:52:48] [5503]
　 　 　 Re:汎用関数とか投函してみませんか？ 　 YasNet（管理人）さん [2005/12/30 18:14:07] [5563]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:54:26] [5504]
　 　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/15 1:39:51] [5524]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 20:57:01] [5505]
　 Re:汎用関数とか投函してみませんか？ 　 ビギナーズラックさん [2005/12/03 21:05:19] [5506]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ