使用perl.net访问数据库
来源:岁月联盟
时间:2003-07-12
<%@ Page Language="Perl" %>
<script runat="server">
use namespace "System::Data";
use namespace "System::Data::SqlClient";
=for interface
protected override void OnLoad(System.EventArgs e);
=cut
sub OnLoad {
my($this, $e) = @_;
my $myConnection = SqlConnection->new("Data Source=(local); Trusted_Connection=Yes; Initial Catalog=pubs");
my $myCommand = SqlCommand->new("Select * From Publishers", $myConnection);
$myConnection->Open();
$this->{myDataGrid}{DataSource} = $myCommand->ExecuteReader(PerlNET::enum("CommandBehavior.CloseConnection"));
$this->{myDataGrid}->DataBind;
}
</script>
<html>
<body>
<form runat="server">
<asp:DataGrid id="myDataGrid" runat="server" />
</form>
</body>
</html>