F # SqlCommand динамически писать в таблицу SQL

Question

Так что я пытаюсь получить данные из одной таблицы (table1), а затем записывать выбранные данные во вторую таблицу (таблица2). Я могу получить данные из таблицы1 и выбрать нужные данные. У меня возникли проблемы с записью его на стол2.

Это то, что я имею на данный момент:

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:

Исключение типа «System.ArgumentException» произошло в System.Data.dll, но не обрабатывался в коде пользователя

Дополнительная информация: Состояния объектов из System.Object [] в известный тип управляемого управляемого провайдера отсутствует.

Теперь на данный момент я работаю только с 2 таблицами, но вскоре программа будет работать с несколькими таблицами с разными именами столбцов, поэтому мне нужно, чтобы это работало независимо от таблицы, в которую она пишет. table1 и table2 имеют одинаковые столбцы. таблицы 3 и 4 имеют одинаковые столбцы друг с другом, но они имеют разные столбцы для таблиц 1 и 2.

selectedData - массив объектов, который содержит другие массивы объектов.

Если вы считаете, что лучше добавить данные вместо добавления массива, пожалуйста, дайте мне знать.

Любая помощь будет оценена по достоинству.

Answer 1

пусть сп = новый 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() 

Answer 2

Вам необходимо использовать table-valued parameter. Я думаю, что здесь самый простой способ будет конвертировать chosenData в массив SqlDataRecord, а затем сделать

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