如何在vb.net中显示数据库中的数据

how to retrieve data from database table in vb.net. As i tried i don't get any output it only creates a blank page And my code is:

如何从vb.net中的数据库表中检索数据。因为我尝试我没有得到任何输出它只创建一个空白页面我的代码是:

<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.SqlClient" %>
<script runat="server">
sub Page_Load()
Dim con As New SqlConnection
Dim cmd As New SqlCommand

con.ConnectionString = ///my connection string///
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from det"
Dim lrd As SqlDataReader = cmd.ExecuteReader()
End sub         

</script>
<form runat="server">
<asp:Repeater id="customers" runat="server">

<HeaderTemplate>
<table border="1" width="100%">
<tr bgcolor="#b0c4de">
<th>ID</th>
<th>Name</th>
<th>Address</th>
<th>Age</th>
<th>Gender</th>
</tr>
</HeaderTemplate>

<ItemTemplate>
<tr bgcolor="#f0f0f0">
<td><%#DataBinder.Eval(Container.DataItem, "id")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "name")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "address")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "age")%> </td>
<td><%#DataBinder.Eval(Container.DataItem, "gender")%> </td>

</tr>
</ItemTemplate>

<FooterTemplate>
</table>
</FooterTemplate>

</asp:Repeater>
</form>

And i don't get any output either error too How to resolve this one???

我也没有得到任何输出错误如何解决这一个?

2 个解决方案

#1

You are retrieving data but not doing anything with it:

您正在检索数据但没有对其执行任何操作:

sub Page_Load()

   Dim con As New SqlConnection
   Dim cmd As New SqlCommand

   con.ConnectionString = ///my connection string///
   con.Open()
   cmd.Connection = con
   cmd.CommandText = "select * from det"

   customers.DataSource = cmd.ExecuteReader() //here we bind data to repeater.
   customers.DataBind();

End sub

Also I would suggest to use code behind file and put your code there as it is way clearer.

另外我建议使用代码隐藏文件并将代码放在那里,因为它更清晰。

#2

Public Sub OnPageLoad()
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand

        con.ConnectionString = String
        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM TABLE_NAME"
        con.Open()
        customers.DataSource = cmd.ExecuteNonQuery()
        customers.DataBind()
        con.Close()
End Sub

#1