出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1197] Re:ＡＳＰで作成したデータベースでの不具合について　　質問
投稿者：杉本さん 2001/12/04 17:31:33
返信ありがとうございます
私自身ソースの中身をみても問題がある場所がわかりません
一度ソースを添付しますので確認お願いします
Case "61","63" '（行使）年休,アクティブ休暇
Set rs5 = Server.CreateObject("ADODB.Recordset") 'Recordsetオブジェクトを作成

strSQL5 = "Select * from jvm014d " & vbcr
strSQL5 = strSQL5 & " where " & vbcr
strSQL5 = strSQL5 & " 氏名コード = '" & SimeiCD & "' and (" & vbcr

For I = 1 To 25
strSQL5 = strSQL5 & "(年休行使年月日" & I & " = '00000000' and " & vbcr
strSQL5 = strSQL5 & " 年休種別コード" & I & " = '1') "
Select Case I
Case 25
strSQL5 = strSQL5 & " ) " & vbcr
Case Else
strSQL5 = strSQL5 & " Or " & vbcr
End Select
Next

strSQL5 = strSQL5 & " order by 年休付与年月日 asc ;" & vbcr

rs5.Open strSQL5 , conn , 3 , 3 '年休マスタレコードセットをオープン

If rs5.Eof and rs5.Bof Then
'該当データ無し
Response.write "休暇台帳に行使可能な年休がありません。" & vbcr
Response.write "勤務実績データ・休暇台帳の更新に失敗しました。" & vbcr
ObjectContext.SetAbort
Else
rs5.MoveFirst
For I = 1 To 25
Select Case rs5.Fields("年休種別コード" & I).Value
Case "1"
rs5.Fields("年休行使年月日" & I).Value = GaitoYM & GaitoBi
rs5.Fields("年休種別コード" & I).Value = "9"
Exit For
End Select
Next

w_Count = 0
For I = 1 To 25
Select Case rs5.Fields("年休種別コード" & I).Value
Case "1","2"
w_Count = w_Count + 1
End Select
Next
rs5.Fields("年休付与残日数").Value = w_Count
rs5.Fields("更新年月日").Value = Kousinymd
rs5.Fields("更新時刻").Value = Kousinjikoku
rs5.Fields("更新担当者コード").Value = Session("ログイン氏名コード")

rs5.Update

End If
rs5.Close

ＡＳＰで作成したデータベースでの不具合について　　質問 　 杉本さん [2001/12/04 16:18:53] [1192]
　 Re:ＡＳＰで作成したデータベースでの不具合について　　質問 　 Tomitomiさん [2001/12/04 16:48:06] [1195]
　 　 Re:ＡＳＰで作成したデータベースでの不具合について　　質問 　 杉本さん [2001/12/04 17:31:33] [1197]
　 　 追加です 　 杉本さん [2001/12/04 17:37:48] [1199]
　 　 　 Re:追加です 　 Tomitomiさん [2001/12/05 10:02:42] [1203]
　 　 　 　 Re:追加です 　 杉本さん [2001/12/05 10:43:10] [1207]

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