搜索按钮错误

Question

我搜索了一些关于如何在 VB.net 中执行搜索按钮的代码。但不知何故，由于错误，它不会工作。仅仅因为，我无法理解它的算法和功能。新手来了无论如何，这里是搜索按钮的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    myConnection.Open()
    crd.Clear()
    fn.Clear()
    ln.Clear()
    Dim str As String
    str = "SELECT * FROM tblReg WHERE (Code = '" & src.Text & "')"
    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
    dr = cmd.ExecuteReader
    While dr.Read()
        crd.Text = dr("crd").ToString
        fn.Text = dr("fName").ToString
        ln.Text = dr("lName").ToString
    End While
    myConnection.Close()
End Sub

错误出现了：

dr = cmd.ExecuteReader

而VB说：

System.Data.dll 中出现“System.Data.OleDb.OleDbException”类型的未处理异常

附加信息：没有为一个或多个必需参数指定值。

Answer 1

不应遵循教授非常糟糕的代码的在线教程。 That code 非常糟糕，因为它包含 SQL injection 并让数据库对象处于打开状态。

你应该重写你的代码如下：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    myConnection.Open()
    crd.Clear()
    fn.Clear()
    ln.Clear()

    Using cmd = New OleDbCommand("SELECT * FROM tblReg WHERE Code = ?", myConnection)
        cmd.CommandType = CommandType.Text

        With cmd.Parameters.Add(Nothing, OleDbType.VarChar, 50)
            .Direction = ParameterDirection.Input
            .Value = src.Text
        End With

        Using dr = cmd.ExecuteReader()
            While dr.Read()
                crd.Text = dr("crd").ToString
                fn.Text = dr("fName").ToString
                ln.Text = dr("lName").ToString
            End While
        End Using
    End Using

    myConnection.Close()
End Sub

您必须使用问号代替参数，因为您使用的是OleDbCommand 和does not support named parameters。

将OleDbType.VarChar 更改为您的实际列类型。

Answer 2

这是获取代码的链接吗？

http://www.visual-basic-tutorials.com/ReadFromAccess.htm

请不要让代码读取输出显示的每个数据，并检查这部分代码。

 crd.Text = dr("crd").ToString
        fn.Text = dr("fName").ToString
        ln.Text = dr("lName").ToString

您确定crd,fname,lname 是您表中字段的名称吗？请检查一下，code? 的字段类型是什么，它是自动增量的文本还是 INT？还是只是一个INT？不管是什么改变你的代码。

来自

str = "SELECT * FROM tblReg WHERE (Code = '" & src.Text & "')"

到

str = "SELECT * FROM tblReg WHERE Code =" & src.Text

更新

我建议您根据获取代码的链接更好地阅读或遵循整个说明。我建议按照链接所说的创建相同的内容，当程序运行时没有错误，然后将其与您的程序合并，因为我使用 VB.NET 和 Access 进行了尝试，它确实有效，我确定您没有阅读它。这样做，我相信您不仅会获得所需的代码，而且还会学习。