Đáp:
Tôi muốn viết chương trình từ điển hiển thị thông tin trong CSDL (Access) lên trình duyệt web nhưng không biết làm sao để hiển thị theo từng mục như: tính từ, danh từ, động từ...
Trước hết bạn phải định nghĩa được cấu trúc table miêu tả thông tin từ điển của bạn, số field và ngữ nghĩa của từng field phụ thuộc vào yêu cầu xử lý từ điển. Thí dụ, chúng tôi định nghĩa table từ điển đơn giản gồm 3 field sau: mụctừ, loại từ, ý nghĩa. Việc hiển thị các thông tin của 1 mục từ nào đó lên trang web gồm 2 công đoạn: truy xuất record chứa thông tin về mục từ cần hiển thị trong table và hiển thị nội dung từng field của mục từ lên đối tượng hiển thị tương ứng.
Sau đây là trình tự xây dựng 1 trang web bằng công nghệ ASP .Net để người dùng có thể tra cứu từ điển theo mục từ mong muốn:
1. chạy Visual Studio .Net, chọn menu File.New.Projects..., chọn kiểu "Visual Basic project", chọn icon "ASP .NET Web Application", hiệu chỉnh lại Location của Website thành "http://localhost/Tudien", chọn button Ok để máy tạo Project mới theo các thông số khai báo.
2. Khi trang ASP với tên mặc định là WebForm1.aspx hiển thị, bạn hãy thiết kế giao diện của trang ASP như sau:
Lưu ý đặt tên (ID) cho textbox nhập từ cần tra là txtMuctu, và tên cho button là btnStart.
3. Nhấn kép chuột vào button "Bat dau tra" để tạo hàm xử lý sự kiện Click chuột trên button này rồi viết code VB .Net để tra từ điển như sau:
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Try
'Connection string dùng DSN và ODBC Provider
Dim MyConString As String = "DSN=DBTudien";
'hoặc Connection string dùng trực tiếp Provider Microsoft.Jet.OLEDB
MyConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\data\MyTuDien.mdb"
'tạo 1 connection đến database
Dim MyConnection As New OdbcConnection(MyConString)
MyConnection.Open()
'Tìm các record chứa các nghĩa của từ cần tra
Dim MyCommand As New OdbcCommand
MyCommand.Connection = MyConnection
MyCommand.CommandText = "SELECT * FROM Tudien where muctu='" & txtMuctu.Text & "'"
Dim MyDataReader As System.Data.Odbc.OdbcDataReader
MyDataReader = MyCommand.ExecuteReader
'Xuất kết quả lên layer kết quả trên trang Web
Response.ClearContent()
Response.Write("<br><br><br><br><br>")
Response.Write("<h3>Các nghĩa của từ " & txtMuctu.Text & " là :</h1>")
Dim strLoaiTu As String
While MyDataReader.Read
Select Case MyDataReader("loaitu")
Case 1 : strLoaiTu = "Động từ"
Case 2 : strLoaiTu = "Danh từ"
Case 3 : strLoaiTu = "Tính từ"
Case 4 : strLoaiTu = "Trạng từ"
End Select
Response.Write("- " & strLoaiTu & " : " & CStr(MyDataReader("Ynghia")) & "<br>")
End While
'Catch ODBC Exception
Catch MyOdbcException As OdbcException
Dim i As Integer
Response.Write("<br>" & MyOdbcException.ToString)
'Catch program exception
Catch MyException As Exception
Response.Write("<br>" & MyException.ToString)
End Try
End Sub
4. Dời chuột về mục "WebForm1.apsx" trong cửa sổ "Solution explorer" rồi nhấn phải chuột và chọn option "Set As StartPage" để thiết lập trang bắt đầu chạy của ứng dụng.
5. chọn menu Debug.Start để chạy thử trang web tra từ điển vừa xây dựng được. Nếu có lỗi thì sửa lỗi cho đến khi hết lỗi.