DataGrid1.DataSource = dvresult
End Sub
(2)2. 程序代码如下:
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("")
Exit Sub
End If
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim reader As OleDbDataReader
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("Msg.mdb")
mycon.Open()
mycmd.Connection = mycon
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "Select * from myuser Where 用户名='" & txtUserName.Text & "'" & " and 密码='" & txtPass.Text & "'"
reader = mycmd.ExecuteReader()
If reader.Read = False Then
Response.Write("")
Else
Session("username") = reader("用户名")
Response.Redirect("lwmsg.aspx")
End If
reader.Close()
mycon.Close()
End Sub
'''两段程序就是利用.net的连接对象的功能来完成登录的实例Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按钮触发的函数 Dim schclass As String = Trim(txtClass.Text) ‘将txtClass里文本赋值给变量schclass Dim selestr As String ’提示用户txtClass文本框不能为空 If schclass"" Then selestr = "班级='" & schcla...