Question

所以我试图从一个表（table1）获取数据，然后将所选数据写入第二个表（table2）。我能够从table1获取数据并选择我想要的数据。我在将它写入table2时遇到了麻烦。

这就是我现在所拥有的：

let insertData(data: string []List) =

    let tableName = data.Item(0).GetValue(0).ToString() //Gets the table Name
    let columnTypes = GetDevTableColumnsTypes tableName

    let mutable tableDataTemp = List.empty
    for i = 0 to data.Length-1 do
        let mutable rowDataTemp = List.empty

        for j = 0 to data.Item(i).Length-1 do
            if data.Item(i).GetValue(j).Equals(tableName) then //if statement removes table name from string array.
                System.Diagnostics.Debug.WriteLine("tableName removed from data")
            else
                let cellData = data.Item(i).GetValue(j)

                rowDataTemp <- cellData :: rowDataTemp

        let rowData = rowDataTemp |> List.toArray |> Array.rev
        tableDataTemp <- rowData :: tableDataTemp

    let tableData = tableDataTemp |> List.toArray |> Array.rev //Probably unneeded

    let cn = new SqlConnection(Settings.Azure.SQL.CCSettingDev)
    cn.Open()
    let sQL = "INSERT INTO [" + tableName + "] VALUES(@param1)"
    let db = new SqlCommand(sQL, cn)
    db.Parameters.AddWithValue("@param1", tableData)
    db.ExecuteNonQuery()

当我运行代码时，我得到了指向executeNonQuery的这个参数异常：

类型＆＃39; System.ArgumentException＆＃39;的例外情况发生在System.Data.dll中但未在用户代码中处理

其他信息：从对象类型System.Object []到已知的托管提供程序本机类型不存在映射。

现在，我现在只使用2个表，但很快程序将使用具有不同列名的多个表，所以我需要它才能工作，无论它写入的表是什么。 table1和table2具有相同的列。表3和表4具有相同的列，但它们与表1和表2具有不同的列。

chosenData是一个包含其他对象数组的对象数组。

如果您认为有更好的方法来添加数据而不是添加数组，请告知我们。

任何帮助都将不胜感激。

Answer 1

您需要使用table-valued parameter。我认为最简单的方法是将chosenData转换为SqlDataRecord数组，然后执行

let sQL = "INSERT INTO [" + tableName + "] SELECT * FROM @param1"

Answer 2

让cn = new SqlConnection（connectionstring） cn.Open（）

for i=0 to tableData.Length-1 do
    let mutable columnsTemp = ""
    let mutable valuesTemp = ""
    for j = 0 to tableData.Item(i).Length-2 do
        columnsTemp <- columnsTemp + columnNames.GetValue(j).ToString() + ","
        valuesTemp <- valuesTemp + "'" + tableData.Item(i).GetValue(j).ToString() + "',"


    let columns = columnsTemp.Remove(columnsTemp.Length-1,1)
    let values = valuesTemp.Remove(valuesTemp.Length-1,1)
    let sQL = "INSERT INTO [" + tableName + "] (" + columns + ") VALUES (" + values + ")"
    let db = new SqlCommand(sQL, cn)
    db.ExecuteNonQuery()

F＃SqlCommand动态写入SQL表

2 个答案: