haiba
19-05-2003, 14:30
<%@ 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 đỡ
<%@ 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 đỡ