主题:高手快来
我在解决方案资源管理器中按分类建了学生登陆窗体文件夹、学生注册窗体文件夹。目的就是为了清楚。可是为什么必须在每个文件加中都得建立同样的数据库,要不然找不到路径。我用的代码是:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ConnString As String
Dim strSql As String
Dim Conn As New OleDbConnection
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
ConnString += Server.MapPath("22.mdb")
Conn.ConnectionString = ConnString
Conn.Open()
Dim cmd As New OleDbCommand
Dim lngCount As Long
strSql = " select * from mima where 学号='" & txtUserName.Text & "'And 密码='" & Password.Text & "'"
cmd.Connection = Conn
cmd.CommandText = strSql
lngCount = cmd.ExecuteScalar()
If lngCount = 0 Then
Response.Write("<script languaage='javascript'>alert('对不起!用户名和密码不符,请重新输入!')</script>")
txtUserName.Text = ""
Password.Text = ""
Else
Response.Redirect("http://www.163.com")
End If
cmd.Dispose()
Conn.Close()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ConnString As String
Dim strSql As String
Dim Conn As New OleDbConnection
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
ConnString += Server.MapPath("22.mdb")
Conn.ConnectionString = ConnString
Conn.Open()
Dim cmd As New OleDbCommand
Dim lngCount As Long
strSql = " select * from mima where 学号='" & txtUserName.Text & "'And 密码='" & Password.Text & "'"
cmd.Connection = Conn
cmd.CommandText = strSql
lngCount = cmd.ExecuteScalar()
If lngCount = 0 Then
Response.Write("<script languaage='javascript'>alert('对不起!用户名和密码不符,请重新输入!')</script>")
txtUserName.Text = ""
Password.Text = ""
Else
Response.Redirect("http://www.163.com")
End If
cmd.Dispose()
Conn.Close()