徒然なるままに・・・

あぁぁぁぁぁおつかれ。

今日も10分に一度は名前を呼ばれるしまつですよ・・・・
もぉ自分でやってよねー・・・・ぶちぶちぶちヾ(●ε●)ノ”ぶーぶー


週末に焼肉パワーをつけたかったのだが・・・・今週は仕事で無理やぁぁ・・・
まぁええねん。再来週に期待や。そのうちうまい飯のガゾーなんかもぺたぺたしていくよ^^

では解説へ。




こっからあれやね。accessで作ったテーブルを参照しにいくねんな。
テーブル自体は簡単なもので、xlsのセルにデータが列挙されてるイメージ。
実際、2列しか使わないし。

*****************************************
（例）
利用者ID　　利用者漢字氏名
----------------------------------------------
1111　　　　 総理大臣
2222　　　　　大統領

以下略

*****************************************










****************************************************************************************************
’ここから認証しょりね
sql="select 利用者一覧.利用者ID,利用者一覧.利用者漢字氏名情報 from 利用者一覧 where 利用者一覧.利用者ID='"&input&"';"
****************************************************************************************************

↑accessの利用者一覧テーブルから利用者ID、利用者漢字指名情報を抽出する命令を変数sqlに格納してるよ。
ただし、最初に手入力させたinputでレコードを絞りあげてるよ。
（クエリと同じね。）


rs.open(sql)　　　でSQL実行ね。


if rs. EOF=false then　　は最終レコードに到達しなかった場合（つまり、inputに格納されているIDがDB検索してヒットしたらってことやね）




*********************************************************************
set optxt = createobject("scripting.filesystemobject")
set ovjtextfile = optxt.opentextfile(logtxt,8)
*********************************************************************

↑でテキストファイルを定義して、追記で開いてるよ。（8が追記ね）




*****************************************************************************************************
ovjtextfile.writeline now & " " & rs.fields("利用者ID").value & " " & "の認証に成功しました。" & "利用者氏名:" & " " & rs.fields("利用者漢字氏名情報").value
*****************************************************************************************************

↑ovjtextfile.writeline　でテキストに書き込みダ！

now が現在時刻を取得する命令だね。
で、スペース空けて・・・・・・

rs.fields("利用者ID").value 　がさっきaccessのテーブルを検索したときにヒットしたフィールドの値（利用者ID（例）の1111）だね。

以下同様に、利用者氏名（これは文字だよ）、rs.fields("利用者漢字氏名情報").value
で利用者漢字氏名・・・（例）の総理大臣　やね。




****************************************************************************************************
else



set optxt = createobject("scripting.filesystemobject")
set ovjtextfile = optxt.opentextfile(logtxt,8) '追記でテキストオープン
ovjtextfile.writeline now & " "& input & " " & "の認証に失敗しました。" 'テキスト書き込み

msgbox "認証失敗。※※セキュリティ台帳に名前等の記載をした後にウイルスチェックを実施して下さい

end if

*******************************************************************************************************
↑で、そうじゃない場合、（EOF、つまり、DB検索にヒットしなかった場合）
同じく、テキストを開いて、オメーの入力したID（inputの中身）はDB上にねーんだよ。と記述するんだね。（認証失敗記述）



rs.close
connection.close
set connection = nothing
set optxt = nothing

end sub

あとはDB接続切って、オブジェクト空っぽにして終わり。






えー・・・・・例のごとく、突貫記述しているので、オブジェクト定義はとばしとります。
次回フルソースを記述しときますんで堪忍してください。

軽く説明文もくわえとくよ。動確済み！！！


ではたぶん明日か明後日更新予定DA！！！！！




よろしくべいびーちゃんたち。↓ドメインは俺も持ってるぜ。まじな話。

急げ！新ドメインは早いもの勝ち！