<%@ Page Language="VB" Debug="true" Trace="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Sqlclient" %>
<script runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Trace.Write ("Click", "Start")
Dim conn As New _
SqlConnection("Server=foo;Database=pubs;Trusted_Connection=true")
Dim cmd As New SqlCommand("select * from authors", conn)
Try
Trace.Write("Opening connection")
Conn.Open()
DataGrid1.DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
DataGrid1.DataBind()
Catch ex As Exception
Trace.Warn(ex.Message)
Label1.Text = "Could not connect to the database - " & _
"please try again later."
End Try
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
<asp:DataGrid id="DataGrid1" runat="server"></asp:DataGrid>
<asp:Label id="Label1" runat="server">Label</asp:Label>
<!-- Insert content here -->
</form>
</body>
</html>
|