none
连数据库出现错误。 RRS feed

  • 问题

  • 下面是一个登陆代码,测试没有错误,但是连数据库总是出现错误。。
    错误代码:"System.Data.SqlClient.SqlException"类型的未经处理的异常出现在System.Data.dll中。
    其他信息:无法打开登录所请求的数据库"Expo"。登录失败。
    Imports System
    Imports System.Data
    Imports System.Data.SqlClient
    Public Class Login
        Inherits System.Windows.Forms.Form
        Dim frm As New frm
        Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButton.Click
            Me.Close()
        End Sub
        Private Sub YesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YesButton.Click
            If UserText.Text = "" Or PassText.Text = "" Then
                MsgBox("用户名和密码不能为空")
            ElseIf ComboBox1.Text = "" Then
                MsgBox("请选择登陆用户权限")
            Else
                CheckLoginName()
            End If
        End Sub
        Sub CheckLoginName()
            Dim str As String
            str = "Data Source=.\SQLEXPRESS;Initial Catalog = Expo;integrated Security=true"
            Dim con As New SqlConnection(str)
            con.Open()
            Dim sql As String = "select * from User where User = '" & UserText.Text.ToString().Trim() & "' and Pass = '" & PassText.Text.ToString().Trim() & "' and Des='" & ComboBox1.Text.ToString().Trim() & "' "
            Dim cmd As New SqlCommand(sql, con)
            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader
            If reader.Read() = True Then
                Me.Hide()
                frm.Label1.Text = Me.ComboBox1.Text.ToString.Trim
                frm.Show()
                frm.Text = "展会管理系统---" & UserText.Text & "--" & _ComboBox1.Text
            Else
                MsgBox("登陆失败,请检查用户名、密码以及权限是否正确")
            End If
        End Sub
    End Class
    2011年11月21日 2:44

答案

全部回复