Отображать данные из базы данных внутри divs

Question

Я могу показать данные с помощью MsgBox, однако я хочу, чтобы он разместил его внутри div.

Может кто-нибудь объяснить мне, как я могу это сделать?

Код:

Dim connetionString As String 
Dim connection As SqlConnection 
Dim adapter As SqlDataAdapter 
Dim ds As New DataSet 
Dim i As Integer 
connetionString = "Data Source=Gadasini-aldigim\SQLEXPRESS;Initial Catalog=allgiz;Trusted_Connection=True" 
connection = New SqlConnection(connetionString) 

connection.Open() 
adapter = New SqlDataAdapter("SELECT * FROM gadalar", connection) 
adapter.Fill(ds) 
connection.Close() 
For i = 0 To ds.Tables(0).Rows.Count - 1 
    MsgBox(ds.Tables(0).Rows(i).Item(1)) 
Next 

Answer 1

Добавить DIV в ваш .aspx файл и установить runat="server". Теперь вы можете получить доступ к нему из кода. Затем используйте свойство InnerHTML свойства div для обновления содержимого.

Примечание: Как сказано в комментарии @Tim, я настоятельно рекомендую использовать элементы управления представлением данных, чтобы показать набор данных.

ASPX:

<div runat="server" id="div1"></div> 

VB.NET:

Dim connetionString As String 
    Dim connection As SqlConnection 
    Dim adapter As SqlDataAdapter 
    Dim ds As New DataSet 
    Dim i As Integer 
    Dim str As String 
    connetionString = "Data Source=Gadasini-aldigim\SQLEXPRESS;Initial Catalog=allgiz;Trusted_Connection=True" 
    connection = New SqlConnection(connetionString) 

    connection.Open() 
    adapter = New SqlDataAdapter("SELECT * FROM gadalar", connection) 
    adapter.Fill(ds) 
    connection.Close() 
    For i = 0 To ds.Tables(0).Rows.Count - 1 
     str= str & ds.Tables(0).Rows(i).Item(1) & "<br />" 
    Next 
    div1.InnerHTML = str; 

Answer 2

Вы должны добавить один PlaceHolder с точки зрения дизайна, как:

<asp:PlaceHolder ID = "PlaceHolder1" runat="server" /> 

И добавить этот код позади:

Dim connetionString As String 
Dim connection As SqlConnection 
Dim adapter As SqlDataAdapter 
Dim ds As New DataSet 
Dim i As Integer 
connetionString = "Data Source=Gadasini-aldigim\SQLEXPRESS;Initial Catalog=allgiz;Trusted_Connection=True" 
connection = New SqlConnection(connetionString) 

connection.Open() 
adapter = New SqlDataAdapter("SELECT * FROM gadalar", connection) 
adapter.Fill(ds) 
connection.Close() 
Dim html As New StringBuilder() 
html.Append("<div>") 
For i = 0 To ds.Tables(0).Rows.Count - 1 

    html.Append(+ ds.Tables(0).Rows(i).Item(1) +) 

Next 
html.Append("</div>") 
PlaceHolder1.Controls.Add(New Literal() With {.Text = html.ToString()})