SqlException异常未处理_未分类的问答_编程通用

您好所有。

我试图建立一个类，将工作与数据的基础上，偏偏我到运行时错误命名跑我的程序:

"SqlException异常是未处理 - 无效的对象名称"ProgDB"

* ProgDB是在数据库我tabale的名称

类的目标是:

1）建设"插入"功能。
2）建筑物"存在"的功能。
3）建设"获取"功能。
4）理解代码。

我的继承人到目前为止的代码:

Public Class DBClass

    Dim sqlConn As New SqlConnection

    Dim sqlCMD As New SqlCommand

    Dim sqlDataAdapter As New SqlDataAdapter

    Dim dbPath As String = My.Settings.DBPath.ToString()

    Dim connectString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & dbPath & ";Integrated Security=True;Connect Timeout=30;User Instance=True"

    Dim ds As DataSet

    Function IDExist(ByVal iDNum As String) As Boolean

        sqlConn.ConnectionString = connectString

        sqlConn.Open()

        Dim strSQL As String = "SELECT IDNum FROM ProgDB WHERE (IDNum = " & iDNum & ")"

        sqlCMD.Connection = sqlConn

        sqlCMD.CommandText = strSQL

        Dim i As String = sqlCMD.ExecuteScalar

        Dim exist = True

        If i <> Nothing Then

            exist = False

        End If

        sqlConn.Close()

        Return exist

    End Function

谢谢你提前Tsahi

回答

评论会员：sachin10d 时间：2012/02/06

试试这个

Public Class DBClass

    Dim sqlConn As New SqlConnection

    Dim sqlCMD As New SqlCommand

    Dim sqlDataAdapter As New SqlDataAdapter

    Dim dbPath As String = My.Settings.DBPath.ToString()

    Dim connectString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & dbPath & ";Integrated Security=True;Connect Timeout=30;User Instance=True"

    Dim ds As DataSet

    Function IDExist(ByVal iDNum As String) As Boolean

        sqlConn.ConnectionString = connectString

        sqlConn.Open()

        Dim strSQL As String = "SELECT IDNum FROM ProgDB WHERE (IDNum = @IDNum)"

        sqlCMD.Connection = sqlConn

        sqlCMD.CommandText = strSQL

        sqlCMD.CommandTypte = CommandType.Text

        sqlCMD.Parameters.AddWithValue("@IDNum",iDNum)

        Dim i As String = sqlCMD.ExecuteScalar

        Dim exist = True

        If i <> Nothing Then

            exist = False

        End If

        sqlConn.Close()

        Return exist

    End Function

评论会员：游客时间：2012/02/06

kris444:嗨错误清楚地说，它无法找到您所提供的细节表，你确定你连接到相同的DB作为表ProgDB存在的
？tsahi-AL:我知道是什么问题，由于某种原因，我的设置dose'nt保存到数据库的路径，并为此我的连接字符串，没有路径值，当我设置的路径手动％，它像一个魅力的作品！

现在，我需要弄清楚为什么，它dose'nt保存在我的设置路径

它保存的ImgOutput的路径，但不是DB路径

下面的代码:

Private Sub Settings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DBBox.Text = My.Settings.DBPath.ToString()

        ImgBox.Text = My.Settings.ImgOutput.ToString()

    End Sub

 

    Private Sub DoneBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoneBTN.Click

        My.Settings.DBPath = DBBox.Text

        My.Settings.ImgOutput = ImgBox.Text

        MsgBox("Settings saved successfully!")

        Me.Close()

    End Sub

的