拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<?
if ( !extension_loaded( "mysql" ) ) {
	dl("php_mysql.dll");
}

$Server = 'localhost';
$DbName = 'lightbox';
$User = 'root';
$Password = '';

// 接続解除
$Connect = @mysql_connect( $Server, $User, $Password );
if ( !$Connect ) {
	print "接続エラーです";
	exit();
}

// DB選択
mysql_select_db( $DbName, $Connect );

// クエリ
$result = mysql_query("select * from 社員マスタ", $Connect);
// 列数
$nField = mysql_num_fields( $result );
$nCount = 0;
print "<TABLE>\n";
while ($row = mysql_fetch_row($result)) {
	print "<TR>\n";
	print "\t<TD>" . ($nCount + 1) . "</TD>\n";
	for( $i = 0; $i < $nField; $i++ ) {
		print "\t<TD>{$row[$i]}</TD>\n";
	}
	print "</TR>\n";
	$nCount++;
}
print "</TABLE>";

// メモリを開放ですが、通常は必要ありません
mysql_free_result($result);

// 接続解除
mysql_close($Connect);
?>

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.Data.OracleClient

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main()

	Dim myCon As OracleConnection = New OracleConnection()
	Dim myCommand As OracleCommand = New OracleCommand()
	Dim myReader As OracleDataReader = Nothing

	Dim sv As String = "night/xe"
	Dim user As String = "lightbox"
	Dim pass As String = "lightbox"

	Dim	myConnectString As String = _
		 "Server=" + sv + ";" + _
		 "User ID=" + user + ";" + _
		 "Password=" + pass + ";"

	myCon.ConnectionString = myConnectString

' **************************************
' * 接続
' **************************************
	Console.WriteLine("<pre>処理を開始しました")

	Try
		myCon.Open()
		myCommand.Connection = myCon
	Catch ex As Exception
		myCon = Nothing
		Console.WriteLine("接続エラーです")
		Console.WriteLine("接続文字列=>" + myConnectString)
		Console.WriteLine("システムのメッセージ=" + ex.Message)
		Console.WriteLine("</pre>")
		Exit Sub
	End Try

	Console.WriteLine("接続されました")


' **************************************
' * レコードセット取得
' **************************************
	Dim Query As String = "select * from 社員マスタ"

	myCommand.CommandText = Query

	Try
		myReader = myCommand.ExecuteReader()
	Catch ex As Exception
		Console.WriteLine("OracleDataReader 作成エラーです")
		Console.WriteLine("システムのメッセージ=" + ex.Message)

		myCon.Close()
		Console.WriteLine("接続を閉じました")
		Console.WriteLine("</pre>")
		Exit Sub
	End Try

' **************************************
' * データ取得
' **************************************
	Dim bRead As Boolean = myReader.Read()
	Dim nField As Integer = myReader.FieldCount
	Dim nIdx As Integer
	Dim strField As String

	Console.WriteLine("<table>")
	Do While bRead

		Console.WriteLine("<tr>")

		For nIdx = 0 to nField - 1
			if myReader.IsDBNull(nIdx) then
				strField = "<td></td>"
			else
				strField = "<td>" + myReader.GetValue(nIdx).ToString() + "</td>"
			end if
			Console.Write(strField)
		Next
		Console.WriteLine("")

		Console.WriteLine("</tr>")

		bRead = myReader.Read()
	Loop
	Console.WriteLine("</table>")


' **************************************
' * 接続解除
' **************************************
	' 読み取りオブジェクトが閉じていない場合は、閉じる
	If Not myReader Is Nothing Then
		If Not myReader.IsClosed Then
			myReader.Close()
			Console.WriteLine("OracleDataReader を閉じました")
		End If
	End If

	If Not myCon Is Nothing Then
		' 接続を閉じる
		If myCon.State = System.Data.ConnectionState.Open Then
			myCon.Close()
			Console.WriteLine("接続を閉じました")
		End If
	End If

	Console.WriteLine("処理を終了しました</pre>")

End Sub

End Module