向 SQL Server VB.NET 数据库添加多个值

Question

我正在尝试使用 VB.NET 向 SQL Server 数据库添加多个值。

我已包含以下命名空间：

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlServerCe

在启动时，我已经声明了 SQL 连接：

con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=""G:\Program\X\Database1.mdf"";Integrated Security=True"

我创建了一个 VB Windows 窗体，使用户能够为试卷添加、编辑和删除问题。

当用户单击“保存问题”按钮时，问题将保存为 .txt 文件。

这应该调用InsertQuestion 子例程：

 con.Open()
 InsertQuestion(con)
 con.Close()

InsertQuestion子程序：

Sub InsertQuestion(ByVal con As SqlConnection)

    Using con

    Dim command As New SqlCommand(("INSERT INTO Table VALUES('" & Collection(0).Question & "','" & Collection(0).Answer & "','" & Collection(0).Type & "','" & Collection(0).Mark & "')'"), con)                                                         

        command.ExecuteNonQuery()

        con.Close()

    End Using

End Sub

这应该将此数据添加到表中。该表有五列 - ID、问题、答案、类型、标记。 ID 是问题的编号，设置为自动递增。

从数组的第一个元素开始，索引 (0) 中的问题应该添加到第 2 列（在问题下），索引（0）中的答案应该添加到第 3 列（答案下）......等等.

但是，当程序运行时，用户点击“保存问题”，就会出现错误：

Microsoft.VisualBasic.dll 中出现“System.InvalidCastException”类型的未处理异常

附加信息：未为字符串“INSERT INTO QuestionTable VALUES”和类型“RuntimeType”定义运算符“&”。

因此，我非常感谢有关如何修复此命令/代码以将数据添加到表中的建议。

此外，我将如何从索引 1 等向表中添加更多问题...

非常感谢。

Answer 1

在cmets中提到，创建参数化命令可以避免SQL语句出错。

另外，回答您的其他问题，创建事务是一次向数据库插入多个值的一种方式：

Sub InsertQuestion(ByVal con As SqlConnection)

Using con

    Dim command As New SqlCommand("INSERT INTO Table VALUES(@Question, @Answer, @Type, @Mark)", con)                                                         

    command.Parameters.Add("@Question", YourType)
    command.Parameters.Add("@Answer", YourType)
    command.Parameters.Add("@Type", YourType)
    command.Parameters.Add("@Mark", YourType)

    command.Transaction = command.Connection.BeginTransaction

    For i = 0 To Collection.Count - 1
        command.Parameters("@Question").Value = Collection(i).Question
        command.Parameters("@Answer").Value = Collection(i).Answer
        command.Parameters("@Type").Value = Collection(i).Type
        command.Parameters("@Mark").Value = Collection(i).Mark
        command.ExecuteNonQuery()
    Next

    command.Transaction.Commit()

    con.Close()

End Using

End Sub