Lightbox Info Board : SQLの窓

OFFICE 2000

少なくとも Access 2000 をインストール( インストーラの指示にしたがってインストール )
CD の中の \sql\X86\Setup\Setupsql.exe を実行

インストールディレクトリ

デフォルトで、「C:\MSSQL7」が作成されます。

MSDE は、SQLServer7.0/2000 と同じデータベースエンジンが使われています。

環境

プログラムメニューに「MSDE」が追加されているので、そこからサービスマネージャを起動します。
通常、OS が起動された時に起動済ですが、このブログラムで自由に起動と終了が可能

SQL クライアント設定ユーティリティで、「規定のネットワークライブラリ」を [TCP/IP] に変更します

Path 環境変数には、インストール時に、「C:\MSSQL7\BINN」が追加されています

ADO による接続確認


<%

	Set cn = Server.CreateObject("ADODB.Connection")
	strConnection = "Provider=SQLOLEDB;" & _
			"Data Source=sv;" & _
			"Initial Catalog=master;" & _
			"User Id=sa;" & _
			"Password=;"

	cn.Open strConnection

	Set rs = Server.CreateObject( "ADODB.Recordset" )	' Recordset オブジェクトを作成
	SqlQuery = "select @@VERSION as VERSION_INFO"
	rs.Open SqlQuery, cn					' レコードセット取得

	Do while not rs.EOF
		Response.Write Replace( rs.Fields( 0 ).Value, vbLf, "<br>" )
		rs.MoveNext
	Loop

	rs.Close						' レコードセット解放
	cn.Close						' 切断

%>

[実行結果]


Microsoft SQL Server 7.00 - 7.00.623 (Intel X86) 
Nov 27 1998 22:20:07 
Copyright (c) 1988-1998 Microsoft Corporation
MSDE on Windows NT 5.0 (Build 2195: Service Pack 2)

ODBC データソースを定義して、Perl でアクセステスト


print "Content-type: text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Perl (Oracle OLE Access)</TITLE>\n";
print "</HEAD>\n";

use Win32::ODBC;
;
#--------------------------------------------------------------------------------
# 接続
#--------------------------------------------------------------------------------
my $DataBase = new Win32::ODBC("DSN=MSDE;UID=sa;PWD=");


$Select = $DataBase->Sql( 'select @@VERSION as VERSION_INFO' );

#--------------------------------------------------------------------------------
# データの配置
#--------------------------------------------------------------------------------
print "<TABLE border=1 cellpadding=3>";
$cnt = 0;
while( $DataBase->FetchRow() ) {

	print "<TR>";

	%Field = $DataBase->DataHash();

	if ( $cnt == 0 ) {
		$cnt = 1;
		while (($name, $value) = each(%Field )) {

			print "<TD>";

			if ( $value eq  "" ) {
				print " ";
			}
			else {
				print $name;
			}

			print "</TD>";
		}
		print "</TR><TR>";
	}

	while (($name, $value) = each(%Field )) {

		print "<TD>";

		if ( $value eq  "" ) {
			print " ";
		}
		else {
			$value =~ s/\n/<br>\n/g;
			print $value;
		}

		print "</TD>";
	}

	print "</TR>";
}
print "</TABLE>";


#--------------------------------------------------------------------------------
# 接続解除
#--------------------------------------------------------------------------------
$DataBase->Close();

[実行結果]

VERSION_INFO

Microsoft SQL Server 7.00 - 7.00.623 (Intel X86)
Nov 27 1998 22:20:07
Copyright (c) 1988-1998 Microsoft Corporation
MSDE on Windows NT 5.0 (Build 2195: Service Pack 2)