ASP.net数据表没有返回任何值

时间:2015-02-24 10:23:05

标签: asp.net vb.net datatable

我希望你能解决我的问题。我正在尝试使用数据表从我的数据库填写表单。一切似乎工作正常但我没有得到任何数据返回。有谁能解释为什么?我看过调试,似乎没有错误,看起来没有任何错误。这是我的代码(vb.net)

Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail

Partial Class _Default
Inherits System.Web.UI.Page

Private Sub getData(ByVal user As String)
    Dim dt As New DataTable()
    Dim constr As String = ConfigurationManager.ConnectionStrings("conn").ConnectionString
    Dim connection As New SqlConnection(constr)
    connection.Open()
    Dim sqlCmd As New SqlCommand("SELECT * from tblContent WHERE CID = @ID", connection)
    Dim sqlDa As New SqlDataAdapter(sqlCmd)

    sqlCmd.Parameters.AddWithValue("@ID", Request.QueryString("ID"))
    sqlDa.Fill(dt)
    If dt.Rows.Count > 0 Then
        ID.Text = dt.Rows(0)("CID").ToString
        TextBox2.Text = dt.Rows(0)("Heading").ToString
        TextBox1.Text = dt.Rows(0)("ContText").ToString
        Label2.Text = dt.Rows(0)("Location").ToString
    End If
    connection.Close()
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
    If Not Page.IsPostBack Then
        getData(Me.User.Identity.Name)
    End If
End Sub

表示层:

<h2><asp:Label ID="Label2" runat="server" Text=""></asp:Label></h2>
<asp:TextBox ID="ID" runat="server" Visible="false">    </asp:TextBox><br />

<asp:Label ID="Label3" runat="server" Text="Heading" CssClass="label"></asp:Label>  
<asp:TextBox ID="TextBox2" TextMode="SingleLine" Text="" runat="server"></asp:TextBox><br />
<asp:Label ID="Label1" runat="server" Text="Content" CssClass="label"></asp:Label><br />     
<asp:TextBox ID="TextBox1" TextMode="MultiLine" runat="server"></asp:TextBox>            

我通过查询字符串(ID = 5作为示例)从另一个页面传递ID。我的数据库中有数据,所有标签/文本框都有正确的ID等。我只能看到有什么问题?

谢谢!

1 个答案:

答案 0 :(得分:2)

您可以尝试传递正确的类型而不是字符串:

Using sqlDa As New SqlDataAdapter(sqlCmd)
    Dim idParam = new SqlParameter("@ID", SqlDbType.Int)
    Dim id As Int32
    If Not Int32.TryParse(Request.QueryString("ID"), id) Then Throw New Exception("Not a valid ID-parameter!")
    idParam.Value = id
    sqlDa.SelectCommand.Parameters.Add(idParam)
    sqlDa.Fill(dt)
End Using

顺便说一下,还要使用Using - 语句进行连接。另外,您不需要打开/关闭与SqlDataAdapter.Fill(table)的连接,因为这是自动完成的。