打混中

Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents dd As System.Web.UI.WebControls.DropDownList

#Region " Web Form 設計工具產生的程式碼 "

'此呼叫為 Web Form 設計工具的必要項。
Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法呼叫為 Web Form 設計工具的必要項
'請勿使用程式碼編輯器來修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此加入要初始化頁面的使用者程式碼
If IsPostBack Then Return
Dim constr = "Provider=MicroSoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("db1.mdb")
Dim conobj As New OleDbConnection(constr)
conobj.Open()
Dim cmdstr = "select * from data2"
Dim cmdobj As New OleDbCommand(cmdstr, conobj)
Dim dr As OleDbDataReader = cmdobj.ExecuteReader
While dr.Read
dd.Items.Add(dr.Item("姓名"))
End While
dr.Close()
conobj.Close()

End Sub

Private Sub dd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd.SelectedIndexChanged
Dim constr = "Provider=MicroSoft.Jet.OleDb.4.0;Data Source=" & Server.MapPath("db1.mdb")
Dim conobj As New OleDbConnection(constr)
conobj.Open()
Dim cmdstr = "select * from data2 where 姓名='" & dd.SelectedItem.Text & "'"
Dim cmdobj As New OleDbCommand(cmdstr, conobj)
Dim dr As OleDbDataReader = cmdobj.ExecuteReader
dr.Read()

TextBox1.Text = dr.Item("電話")
TextBox2.Text = dr.Item("住址")
TextBox3.Text = dr.Item("家長")

dr.Close()
conobj.Close()
End Sub
End Class