未处理的“System.Data.SqlClient.SqlException”类型的异常……

主题：未处理的“System.Data.SqlClient.SqlException”类型的异常……

hahalgj [专家分：0] 发布于 2007-07-15 10:20:00

未处理的“System.Data.SqlClient.SqlException”类型的异常出现在 system.data.dll 中。其他信息: 系统错误。
错误图片已经上传，看的直接。
如果看不到代码，看下面。

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim con As String = "data source=22D40806BFE6477;integrated security=sspi;database=student"
        Dim sqlcon As New SqlClient.SqlConnection(con)
        Dim cmd As String = " select  用户名  from  学生信息 where  用户密码 = " & txtPassword.Text
        Dim da As New SqlDataAdapter(cmd, sqlcon)
        Dim ds As New DataSet
        sqlcon.Open()
        da.Fill(ds, "aa")

        If ds.Tables("aa").Rows.Count > 0 Then
            If txtPassword.Text = ds.Tables("aa").Rows(0)("用户密码") And radio1.Checked Then
                frmLogin.ActiveForm.Visible = False
                Dim fr As New frmMain
                fr.ShowDialog()
            ElseIf txtPassword.Text = ds.Tables("aa").Rows(0)("用户密码") And radio2.Checked Then

                frmLogin.ActiveForm.Visible = False
                Dim fs As New mainstudent
                fs.ShowDialog()

            Else

                MsgBox("出现错误，请正确填写!")
                txtPassword.Focus()
            End If
        Else
            MsgBox("不存在此用户")
            txtUsername.Text = ""
            txtPassword.Text = ""
        End If

        sqlcon.Close()
    End Sub

错误出现在 da.Fill(ds, "aa")
希望有人能帮我解决这个问题

本帖地址： http://bbs.pfan.cn/post/242535.html

回复列表（共3个回复）

沙发

jzyray [专家分：20610] 发布于 2007-07-15 13:01:00

DataTable dt = new DataTable("aa");
ds.Tables.Add(dt);

然后再fill

板凳

orangegxm [专家分：0] 发布于 2007-07-17 19:43:00

Private Sub bCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCancel.Click
        If comPoint.PortOpen Then
            Dim iRet As MsgBoxResult
            iRet = MsgBox("Spectrophotometer already connected ,disconnect it now ?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Warning")
            If iRet = MsgBoxResult.Yes Then
                sExitFlag = True
                Call CloseConnect()
            Else
                Return
            End If
        End If
        sExitFlag = True
        Me.Close()
    End Sub

    Private Sub bConnnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bConnnect.Click
        '获取串口信息
        Dim t_ret As Boolean
        GetComPorts(nComPortsQty, sComPortsString, sComPortsList)

        'TestConnect()
        color=FF0000]If comPoint.PortOpen Then Return[/color]
        t_ret = GetDeviceSerialID()
        If Not t_ret And classDeviceMess.sDeviceSer <> "" Then
            Dim wID As New wDeviceInfo
            wID.ShowDialog()
            Return
        End If
        If classDeviceMess.sDeviceSer = "" Then
            Return
        End If
        bConnnect.Enabled = False
        If Not CheckCom() Then
            bOK.Enabled = False
            bConnnect.Enabled = True
        Else
            bConnnect.Enabled = False
            lMess.Text = "Ready"
            bOK.Enabled = True
        End If
    End Sub

提示错误就是红色部分！！

先谢谢各位大虾，小弟菜鸟．多多关照

3 楼

orangegxm [专家分：0] 发布于 2007-07-17 19:45:00

同样的问题大家帮解决下

Private Sub bCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCancel.Click
        If comPoint.PortOpen Then
            Dim iRet As MsgBoxResult
            iRet = MsgBox("Spectrophotometer already connected ,disconnect it now ?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Warning")
            If iRet = MsgBoxResult.Yes Then
                sExitFlag = True
                Call CloseConnect()
            Else
                Return
            End If
        End If
        sExitFlag = True
        Me.Close()
    End Sub

    Private Sub bConnnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bConnnect.Click
        '获取串口信息
        Dim t_ret As Boolean
        GetComPorts(nComPortsQty, sComPortsString, sComPortsList)

        'TestConnect()
        If comPoint.PortOpen Then Return
        t_ret = GetDeviceSerialID()
        If Not t_ret And classDeviceMess.sDeviceSer <> "" Then
            Dim wID As New wDeviceInfo
            wID.ShowDialog()
            Return
        End If
        If classDeviceMess.sDeviceSer = "" Then
            Return
        End If
        bConnnect.Enabled = False
        If Not CheckCom() Then
            bOK.Enabled = False
            bConnnect.Enabled = True
        Else
            bConnnect.Enabled = False
            lMess.Text = "Ready"
            bOK.Enabled = True
        End If
    End Sub

提示错误就是:If comPoint.PortOpen Then！！

先谢谢各位大虾，小弟菜鸟．多多关照

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：未处理的“System.Data.SqlClient.SqlException”类型的异常……

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：未处理的“System.Data.SqlClient.SqlException”类型的异常……

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）