|
发表于 2020-2-14 08:45:01
|
显示全部楼层
首先在Default.aspx.vb页面的最上端也要引用代码Imports System.Data.SqlClient
然后给你个例子看一下就明白了。
Dim con As New SqlConnection("server=.;database=jie;uid=sa")
//server=.代表连接的是本机,database名添你要连接的数据库名,用户名和密码用你自己的。
Dim cmd As New SqlCommand("select Uid from 用户表 where 用户名称='" & TextBox1.Text & "' and 用户密码='" & TextBox2.Text & "'", con)
Dim dr As SqlDataReader
con.Open()
dr = cmd.ExecuteReader
If dr.Read Then
Response.Redirect("WebForm1.aspx")
Else
Response.Write("<script>alert('用户名或密码错误')</script>")
End If
dr.Close()
con.Close() |
|