如何将硬编码的Top 10替换为TextBox值以自定义DataGridView显示条数？

嘿，我来帮你搞定这个需求！你当前的代码里把随机记录条数硬编码成了Top 10，要改成用TextBox1的输入值来控制，得兼顾功能和安全性，下面是修改后的完整方案：

核心修改点 #

• 先验证用户输入的有效性，确保是正整数，避免程序崩溃或SQL错误
• 动态替换SQL语句里的固定条数，用输入值替代10
• 规避SQL注入风险（因为Access的Top不支持参数，所以先做输入验证再拼接）

修改后的代码 #

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 验证输入是否为有效正整数
    Dim desiredCount As Integer
    If Not Integer.TryParse(TextBox1.Text, desiredCount) OrElse desiredCount <= 0 Then
        MessageBox.Show("请输入一个有效的正整数哦！")
        Return
    End If

    DataBase_Connection()
    ' 动态拼接SQL语句，用输入值替换固定的Top 10
    Dim sqlQuery As String = $"SELECT Top {desiredCount} ID, First_Name, Last_Name FROM FACTORY ORDER BY RND(-(100000*ID)*Time())"
    InfoCommand = New OleDbCommand(sqlQuery, ConStr)
    InfoAdapter = New OleDbDataAdapter()
    InfoAdapter.SelectCommand = InfoCommand
    InfoTable = New DataTable()
    InfoAdapter.Fill(InfoTable)
    DataGridView1.DataSource = InfoTable
End Sub

细节说明 #

1. 输入验证：用Integer.TryParse检查用户输入，既可以判断是否是数字，还能把输入转成整数类型；同时判断数值是否大于0，避免获取0条或负数条记录的错误。
2. 动态SQL拼接：用VB.NET的字符串插值语法（$""）让代码更易读，把验证后的整数直接拼到SQL语句里，因为已经确保输入是整数，不会有SQL注入的风险。
3. 原有逻辑保留：随机排序的逻辑（ORDER BY RND(-(100000*ID)*Time())）完全保留，保证还是能获取随机的记录。

内容的提问来源于stack exchange，提问作者ABIDINE