UC知道asp,net和SQL的连接问题
来源：百度知道 编辑：UC知道 时间：2024/06/28 07:51:16
Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If Page.IsValid Then
Dim conStr As String
conStr = "Server=(local);Database=StudentVB;User ID=sa;Password=sa;"
Dim objConnection As New SqlConnection(conStr)
Dim strsql As String = "Select UserID ,Password,UserType From tblUsers" & "Where LoginName='" & Trim(txtName.Text) & "'"
Dim objCmd As New SqlCommand
Dim objReader As SqlDataReader
Try
objConnection.Open()
objReader = objCmd.ExecuteReader
If objReader.Read() Then
If objReader.Read() = Trim(txtPassword.Text) Then
Session("UserName") = Trim(txtName.Text)
Response.Redirect("Scores.aspx"
If Page.IsValid Then
Dim conStr As String
conStr = "Server=(local);Database=StudentVB;User ID=sa;Password=sa;"
Dim objConnection As New SqlConnection(conStr)
Dim strsql As String = "Select UserID ,Password,UserType From tblUsers" & "Where LoginName='" & Trim(txtName.Text) & "'"
Dim objCmd As New SqlCommand
Dim objReader As SqlDataReader
Try
objConnection.Open()
objReader = objCmd.ExecuteReader
If objReader.Read() Then
If objReader.Read() = Trim(txtPassword.Text) Then
Session("UserName") = Trim(txtName.Text)
Response.Redirect("Scores.aspx"
是不是
Dim strsql As String = "Select UserID ,Password,UserType From tblUsers" & "Where LoginName='" & Trim(txtName.Text) & "'"
这里边的tblUsers" & "Where 多了" & "这几个字符啊
把" & "删了试试看~！（tblUsers Where ）