出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
データベースとの連携 　 kazusaさん [2005/04/10 3:01:23] [4995]
[4995] データベースとの連携
投稿者：kazusaさん 2005/04/10 3:01:23
[はじめに]書いているうちにものすごい長文になってしまいました。気長に読んでいただけたら幸いです・・。

はじめまして、お世話になります。
この春卒業した専門学校でＡＳＰを学び、データベース（MS Access）との連携の仕方も教わったので、復習がてらちょっとしたプログラムを作ってみたのですが、うまく動きません。

実は、次のような機能のプログラムを作りたいのです。
データベースにOLEオブジェクトとしてmp3ファイルを入れ、URLでそのファイルを指定された場合に、ＰＣ上の再生ソフト（MediaPlayerなど）で再生させる。
つまり、ブラウザからttp://www.example.com/database.asp?play=01のようなURLにアクセスすることで、再生ソフトが起動し、MP3が再生されるわけです。

記述は次のようにしました。
実習で使ったファイルを改造して作ったため、不要な記述の残骸が残っていますがそこは気にしないでください＾＾；
===

<%
Option Explicit
'===========================================
'　変数定義
'===========================================

Dim act

Dim ObjConn,ObjRS,StrSQL

'番組
Dim program
'===========================================
'　パラメータの取得
'===========================================

program = Request("program")

'=================================================
'　処理開始
'=================================================
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title></title>
<body>
<%

'-- ページ内容の表示
Select Case program
Case "radio" '番組ファイル呼び出し
Call Gamen_prg
end select
%>
</body>
</html>
<%
'□□□□□□□□□□□□□□□□□□□□□□
'　サブルーチン定義
'□□□□□□□□□□□□□□□□□□□□□□
Sub Gamen_prg( )

StrSQL = "select * from program where program = " & program
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn,3,3

if ObjRS.EOF then Exit Sub

program = ObjRS("program")

%>


<%
ObjRS.Close
Set ObjRS = Nothing
End Sub
'=================================================
'-----　DB閉じる
'=================================================
'Sub CloseDB()
' ObjConn.Close
' Set ObjConn = Nothing
'End Sub
%>

===

データベースは次のとおり

データベースファイル名：radio.mdb
呼び出したいファイルがあるテーブル名：radio
MP3ファイルを保存したフィールド名：program

以上です。
なんだか、致命的なところがちらほらあるのはわかるのですが、、、（たとえば、オブジェクトが入っているフィールドを直接呼び出している、とか）その対処法とそれ以外の部分の修正方法がよくわからないのです。

この状態でaspファイルにアクセスするとエラーは発生しないので、基礎的な部分は出来ていると信じたいのですが・・・。
学校では、卒研間近になってようやくASPを習いはじめ、卒研のためだけに技術を習得したようなものなので、未だに理解できていないところがたくさんあります。どうか、ご教授をお願いします。

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