出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
最終レコードのField1の値を取得する方法 　 su-さん [2004/04/26 16:34:38] [4242]
　 Re:最終レコードのField1の値を取得する方法 　 kaneさん [2004/04/26 18:21:55] [4243]
　 　 Re:最終レコードのField1の値を取得する方法 　 su-さん [2004/04/27 10:35:24] [4245]
　 　 　 Re:最終レコードのField1の値を取得する方法 　 kaneさん [2004/04/27 17:06:30] [4249]
　 　 　 　 Re:最終レコードのField1の値を取得する方法 　 su-さん [2004/04/28 10:02:26] [4250]
[4242] 最終レコードのField1の値を取得する方法
投稿者：su-さん 2004/04/26 16:34:38
最終レコードのField1の値を取得したいのですが、
どのようにやったら良いのかわかりません。

Field1は、日付+連番(001…)という形にしたいです。
例）20040426001
20040426002
20040426003
　　　　　・
　　　　　・
　　　　　・
最終レコードの値を取得して次のレコードに+1した値を
いれていくようにしたいのですが、うまくField1の値が
取得できないので教えてください。

説明が下手ですみません。
[4243] Re:最終レコードのField1の値を取得する方法
投稿者：kaneさん 2004/04/26 18:21:55
はじめまして。kaneです。

質問の内容ですが、こんなカンジはいかがでしょうか？
rs.open "select * from #####"order by Filed1 desc,rs,3,1,1
filed1 = rs(Filed1).value
rs.close
で取得できるかと思います。#####はテーブル名ですよね。
そして次のレコード追加は・・・
filed2 = CInt(filed1) + 1　←フィールドが数値型ならCIntははずしてください
rs.open "select * from #####"rs,3,3,1
rs.addnew
rs(Filed1).value = filed2
rs.update
rs.close
でいかがでしょうか？
質問の回答になれば幸いです。ていうか的を得てるのかな？？
多少、プログラムの書き方が独学なものでおかしなところがあったらカンベンしてください・・・
それでは、失礼します。

> 最終レコードのField1の値を取得したいのですが、
> どのようにやったら良いのかわかりません。
>
> Field1は、日付+連番(001…)という形にしたいです。
> 例）20040426001
> 20040426002
> 20040426003
> 　　　　　・
> 　　　　　・
> 　　　　　・
> 最終レコードの値を取得して次のレコードに+1した値を
> いれていくようにしたいのですが、うまくField1の値が
> 取得できないので教えてください。
>
> 説明が下手ですみません。
[4245] Re:最終レコードのField1の値を取得する方法
投稿者：su-さん 2004/04/27 10:35:24
ありがとうございました。
kaneさんのプログラムを参考にして自分の作ったプログラムに追加しました。
なんとか最終レコードの値は取得できました。
だいぶ悩んだことが嘘のようです。
日付＋連番（001…）ですが、日付が変わったら連番をまた001からやり直したいです。
if文で最終レコードの日付と現在の日付を比較してやればよいのでしょうか？
if文は、
if 条件 Then　←こんな文法でいいんですよね？
（内容）
end if
こんどはコレについて考えなければ。。。


> はじめまして。kaneです。
>
> 質問の内容ですが、こんなカンジはいかがでしょうか？
> rs.open "select * from #####"order by Filed1 desc,rs,3,1,1
> filed1 = rs(Filed1).value
> rs.close
> で取得できるかと思います。#####はテーブル名ですよね。
> そして次のレコード追加は・・・
> filed2 = CInt(filed1) + 1　←フィールドが数値型ならCIntははずしてください
> rs.open "select * from #####"rs,3,3,1
> rs.addnew
> rs(Filed1).value = filed2
> rs.update
> rs.close
> でいかがでしょうか？
> 質問の回答になれば幸いです。ていうか的を得てるのかな？？
> 多少、プログラムの書き方が独学なものでおかしなところがあったらカンベンしてください・・・
> それでは、失礼します。
[4249] Re:最終レコードのField1の値を取得する方法
投稿者：kaneさん 2004/04/27 17:06:30
お役に立てて光栄です。
解決できてよかったですね。
うまくできてなかったプログラムが希望通りに動いた瞬間は、
悩んでた時間が長いほど感動しますよね(笑)。

さて、最終レコードと現在の日付の違いですが、
レコードの取得をした後、レコードは連番も含んでいるので
日付だけを抽出します。
取得したレコードをfiled1とすると、
w_filed1 = left(filed1,8)
で20040427と言う具合に日付だけ取得できるので
後は、新しいレコードを書き込む途中にIf文を挿入すれば
よいかと思います。
**現在の日付をfiled2とした場合・・・**
rs.open "select * from #####"rs,3,3,1
rs.addnew
If w_filed1 = filed2 then
rs(Filed1).value = CInt(filed1) + 1
Else
rs(Filed1).value = CStr(filed2) + "001"
End If
rs.update
rs.close
で、どうでしょうか？
少しでも参考になれば幸いです。
お互い、がんばりましょう！！

> ありがとうございました。
> kaneさんのプログラムを参考にして自分の作ったプログラムに追加しました。
> なんとか最終レコードの値は取得できました。
> だいぶ悩んだことが嘘のようです。
> 日付＋連番（001…）ですが、日付が変わったら連番をまた001からやり直したいです。
> if文で最終レコードの日付と現在の日付を比較してやればよいのでしょうか？
> if文は、
> if 条件 Then　←こんな文法でいいんですよね？
> （内容）
> end if
> こんどはコレについて考えなければ。。。
[4250] Re:最終レコードのField1の値を取得する方法
投稿者：su-さん 2004/04/28 10:02:26
昨日あれから自分でも考えてなんとかできるようになり、今kaneさんのプログラムを見て
同じコトをしていたのでちょっと自信がつきました。
いい勉強になりました。
ありがとうございました。


> お役に立てて光栄です。
> 解決できてよかったですね。
> うまくできてなかったプログラムが希望通りに動いた瞬間は、
> 悩んでた時間が長いほど感動しますよね(笑)。
>
> さて、最終レコードと現在の日付の違いですが、
> レコードの取得をした後、レコードは連番も含んでいるので
> 日付だけを抽出します。
> 取得したレコードをfiled1とすると、
> w_filed1 = left(filed1,8)
> で20040427と言う具合に日付だけ取得できるので
> 後は、新しいレコードを書き込む途中にIf文を挿入すれば
> よいかと思います。
> **現在の日付をfiled2とした場合・・・**
> rs.open "select * from #####"rs,3,3,1
> rs.addnew
> If w_filed1 = filed2 then
> rs(Filed1).value = CInt(filed1) + 1
> Else
> rs(Filed1).value = CStr(filed2) + "001"
> End If
> rs.update
> rs.close
> で、どうでしょうか？
> 少しでも参考になれば幸いです。
> お互い、がんばりましょう！！

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