出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
削除プログラムを作りたいのですが、 　 MINさん [2002/09/26 17:27:09] [2714]
　 Re:削除プログラムを作りたいのですが、 　 北岳さん [2002/09/27 9:15:19] [2717]
[2714] 削除プログラムを作りたいのですが、
投稿者：MINさん 2002/09/26 17:27:09
すみません。一つ質問があります。

今、アドレス帳を作成しています。
データベースの一覧を表示し、そのときにチェックボックスも
一覧に表示し、そのチェックボックスで選択された
データを削除したいと思います。
キーを設定したいのですが、ユニークなデータがなく
複数項目をキーにしたいと思います。
キー：KAISYACODE,SIMEI,KAISYAMEI

KAISYACODEは必ずデータが入っています。しかし、
KAISYAMEIが同じデータはKAISYACODEも同じ数字になってしまいますので、
その場合はKAISYACODE、SIMEI、KAISYAMEIの三つをキーに
したいと思います。
一つの項目を"|"で区切って、一つのデータを","で区切ってsplit
構文で分け、SQL文に代入したいと思います。

<% Do Until objRs.EOF
DelFlg = "|" & objRs.Fields("KAISYACODE") & "|" & objRs.Fields("SIMEI") & "|" & objRs.Fields("KAISYAMEI")
Loop

Do Until objRs.EOF
SpBunkatsu = split(Check,",")
objRs.MoveNext
Loop
j = ubound(SpBunkatsu)
for i=0 to j
SpBunkatsu1 = split(SpBunkatsu(i),"|")
next

というふうにやってみたのですが、上手く一つ一つの
データで配列に代入されません。
考え方がおかしいのでしょうか？
よろしくお願いします。

[2717] Re:削除プログラムを作りたいのですが、
投稿者：北岳さん 2002/09/27 9:15:19
とりあえず、
> <% Do Until objRs.EOF
> DelFlg = "|" & objRs.Fields("KAISYACODE") & "|" & objRs.Fields("SIMEI") & "|" & objRs.Fields("KAISYAMEI")
> Loop
　
永久ループに入っていませんか。
　
> Do Until objRs.EOF
> SpBunkatsu = split(Check,",")
> objRs.MoveNext
> Loop
　
Checkが何かわかりませんが、こちらはMoveNextがありますね。

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