VBScriptで結果取得のやり方知っている方教えてください。

質問

VBScriptで結果取得のやり方知っている方教えてください。

MSSQLに登録してあるテーブルtbl_tensuに

no name tensu_kokugo tensu_sansu
------ ----------- ------------ -----------
1 相澤 100 98
2 山本 75 80
3 澤口 70 93
4 小林 54 65

というデータが登録してあります。
これをvbscriptを使ってメッセージボックスに

相澤さんは国語合格、算数合格。
井上さんは国語合格、算数不合格。
上原さんは国語不合格、算数合格。
小川さんは国語合格、算数不合格。
加藤さんは国語不合格、算数不合格。

という風に表示したいです。
これは○○.vbsを実行し60と入力すると上記の結果が表示されるようになります。
この60とは合格点60点にということになります。

自分でやってもどうしてもどちらとも不合格にしかならないのです。
よければ教えていただけたらうれしいです。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.4

nda23 · ベストアンサー

もしかすると、UserInputの解釈がおかしいか、
取得した値の解釈がおかしいのかもしれません。
つまり、"60"を数値ではなく、文字列と見ている
可能性があります。CLng関数を咬ませるように
したらどうでしょうか？

UserInput = CLng(UserInput)
if CLng(objSQLRecordset.Fields("tensu_kokugo").value) >= UserInput then

お礼

回答ありがとうございます
ついにできました。
本当にありがとうございます。

回答No.3

taka451213

こんばんは。

補足拝見しました。
で、えーと・・・、
For Each objField in objSQLRecordset.Fields
で取得している「objField」が使用されてませんが？
objField(1)またはobjField("カラム名")とかにならないと変じゃないですかね・・・？

回答No.2

nda23

レコードセットのフィールドを使ってませんね。
For Each は必須ではありません。

namae = objSQLRecordset.Fields("name").Value
If objSQLRecordset.Fields("tensu_kokugo").Value >= UserInput Then
　　　　DatabaseKokugo = "国語合格、"
Else
　　　　DatabaseKokugo = "国語不合格、"
End If
こういう感じで処理してください。

補足

回答ありがとうございます。
今このようにしてみたのですが名前は上手くいきましたが
国語と算数だけは不合格になってしまいます。
間違っているところがあれば指摘お願いします。

DatabaseTitle = ""
DatabaseOut = ""
DatabaseKokugo = ""
DatabaseSansu = ""
Do Until objSQLRecordset.EOF
if objSQLRecordset.Fields("tensu_kokugo").value >= UserInput then
DatabaseKokugo = "国語合格、"
else
DatabaseKokugo = "国語不合格、"
End if
if objSQLRecordset.Fields("tensu_sansu").value >= UserInput then
DatabaseSansu = "算数合格。"
else
DatabaseSansu = "算数不合格。"
End if
namae = objSQLRecordset.Fields("name").value
DatabaseTitle = DatabaseTitle & namae & "さんは" & DatabaseKokugo & DatabaseSansu & vbNewLine

objSQLRecordset.MoveNext
Loop

回答No.1

taka451213

こんばんは。

vbsの中身を見せて頂かないと、判断が難しいです・・・。
差支えなければ載せてください。

補足

そうですね。すみませんでした

'ユーザーからの入力を受け付けます。
UserInput = InputBox( "合格ライン" , _
"判定", _
"")

'RDBMSへの接続をします。
Set objSQLConnection = CreateObject("ADODB.Connection")
objSQLConnection.Open _
"PROVIDER=SQLOLEDB;" & _
"SERVER=127.0.0.1;" & _
"DATABASE=db_ehon;" & _
"UID=sa;" & _
"PWD=sawq21"

'クエリを発行します。
Set objSQLRecordset = CreateObject("ADODB.Recordset")
objSQLRecordset.Open _
"select * from tbl_mogi", _
objSQLConnection

'クエリの結果をユーザーに見やすい形に整えます。
DatabaseTitle = ""
DatabaseOut = ""
DatabaseKokugo = ""
DatabaseSansu = ""
Do Until objSQLRecordset.EOF
For Each objField in objSQLRecordset.Fields
if tensu_kokugo >= UserInput then
DatabaseKokugo = "国語合格、"
else
DatabaseKokugo = "国語不合格、"
End if
if tensu_sansu >= UserInput then
DatabaseSansu = "算数合格。"
else
DatabaseSansu = "算数不合格。"
End if
namae = namae
Next
DatabaseTitle = DatabaseTitle + namae +DatabaseKokugo + DatabaseSansu + vbNewLine

objSQLRecordset.MoveNext
Loop

'ユーザーに結果を見せます。
MsgBox DatabaseTitle, _
vbOKOnly, _
"実行結果"

今はこんな形になっています。
補足ですがFor Eachは必ず使わなければならないようです。
どうか回答お願いします。