vòng lặp để lấy hết database

[haiba]

<%@ Page Language="VB" Debug="true"%>
<%@ Import NameSpace="System.Data.OleDb"%>
<%@ import namespace="System.data"%>


<script runat="server">

sub page_load(a as Object,e as EventArgs)

Dim myCom as OleDbCommand
Dim myReader as OleDbDataReader
Dim myCon as OleDbConnection

Dim mydb as string
Dim sql as string

'######################

mydb="db/db.mdb"

'######################

myCon =new OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & server.mappath(" "+ mydb +" "))
myCon.Open()

sql="Select * from tbl_Lyric"
mycom=new oledbcommand(sql,mycon)
myReader=mycom.executereader()

Dim Lyric_name as string
Dim Lyric_content as string
While myreader.read()

Lyric_name = myReader("Lname")
Lyric_content = myReader("Lcontent")

lblname.Text = Lyric_name & "<br>"
lblcontent.Text = Lyric_content & "<br>"

End while


end sub

</script>


<asp:Label ID="lblname" runat="server" />

sao hiển thị ra trang kết quả chỉ có 1 record cuối cùng thôi ? Mình muốn hiển thị tất cả record thì sao ?

Mình đang tự học asp.net xin giúp đỡ

[buitrungtin]

Doh',
tui cũng không rành lắm về asp.net nhưng theo logic thì bạn thiếu một dấu cộng ở chỗ này:

lblname.Text = Lyric_name & "<br>"
lblcontent.Text = Lyric_content & "<br>"

sửa lại:

lblname.Text += Lyric_name & "<br>"
lblcontent.Text += Lyric_content & "<br>"

nếu còn không thấy hết các record, có lẽ bạn nên làm cho cái label lớn một chút.
chúc bạn học tốt.
à, quên, sau khi làm xong mọi chuyện thì nhớ đóng connection với database lại.

[haiba]

thanks !