Mới chuyển sang học asp.NET hỏi các bác tý

[QueenRock]

Tui có làm thử một đoạn code như ở duới, mỗi khi nhấn nút thì Status sẽ hiện lên tên người trong đó, nhưng nội dung trong dropdownlist thì được tăng thêm n lần. Có cách nào để khi nhấn nút thì nội dung trong dropdownlist không tăng lên không


<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SQL" %>
<script language="VB" runat="server">

Sub Page_Load(Source As Object, E As EventArgs)
Dim myCommand As SQLCommand
Dim myReader As SQLDataReader
Dim SQL as String
Dim connStr as String
connStr="Server=localhost;uid=sa;pwd=;database=hocasp"
SQL="select * from NHP_NHANSU"
myCommand = new SQlCommand(SQL, connStr)
myCommand.ActiveConnection.Open()
myCommand.Execute(myReader)
while myReader.Read()
HoTen.Items.add(new ListItem(trim(myReader.Item("HoTen")), myReader.Item("id")))
end while
end Sub

Sub HienTen(Source As Object, E As EventArgs)
Status.Text = HoTen.SelectedItem.Text
end sub

</script>
<form runat="server">
<asp:DropDownList runat="server" onChange="HienTen" id="HoTen">

</asp:DropDownList>
<BR>
<asp:button text="Hien thi" onClick="HienTen" runat="server"/>
<BR>
<asp:Label id="Status" runat="server"/>
</form>

[linhnhan]

Sửa lại thành
Sub Page_Load(Source As Object, E As EventArgs)
If Page.IsPostBack=False Then
Dim myCommand As SQLCommand
Dim myReader As SQLDataReader
Dim SQL as String
Dim connStr as String
connStr="Server=localhost;uid=sa;pwd=;database=hocasp"
SQL="select * from NHP_NHANSU"
myCommand = new SQlCommand(SQL, connStr)
myCommand.ActiveConnection.Open()
myCommand.Execute(myReader)
while myReader.Read()
HoTen.Items.add(new ListItem(trim(myReader.Item("HoTen")), myReader.Item("id")))
end while
End If
end Sub
Còn tại sao lại thế thì đọc thêm tài liệu !!!!!!!!!!!

[jay]

kiểm tra isPostBack như trên thì không hay ở chổ là những lần trang post back lại sẽ không update data (nếu như data ở dưới db có thay đổi).

Tối nhất là set thuộc tính DataTextField, DataValueiField của dropdown rùi dùng DataBind để bind từ 1 DataSet vào là gọn nhất.

[nguyenlong]

moi vao nghe cung muon dong giup ban nhung trinh docung dang con non tre qua cho toi vai ngay nua se tra loi duoc thac mac cua ban

[KEM_WALL]

clear trước khi add, cụ thể là


HoTen.Items.Clear()
while myReader.Read()
HoTen.Items.add(new ListItem(trim(myReader.Item("HoTen")), myReader.Item("id")))
end while

[traiHanoi]

đoạn code của QueenRock ko chạy
nó lỗi ở myCommand = new SQLcommand(.....);
Mình mới học chỉ nó lỗi chưa sửa được
Bác nào sửa được giúp nhé.

ah
Nhân tiện cho hỏi khi cài .net thì ADO.net có sẵn trong đó.
Chỉ hộ cách kết nối qua ADO.net đi chứ dùng qua cái SQL không hay lắm.

[QueenRock]

bạn sửa
<%@ import Namespace="System.Data.SQL" %>
thành
<%@ import Namespace="System.Data.SQLClients" %>
là nó chạy
cái này ở trong sách của NXB Lao động - Xã hội (sách có đĩa CD á), chẳng hiểu sao lại có System.Data.SQL, chỗ nào nó cũng in như thế. Quái thật

[KEM_WALL]

nó in theo framework 1.0 beta

[traiHanoi]

Login failed for user 'nam'. Reason: Not associated with a trusted SQL Server connection.
Báo lỗi dòng myConn.Open()
user'nam' đã có trong SQLserver