Как сделать ВСТАВИТЬ Строка запроса с использованием массива переменных

Question

Мой код:

For index = 0 To dupColIndx - 1 
    expression(index) = dgvINSRT.Rows.Item(i).Cells.Item(index).Value.ToString 
Next 

Dim strInsrt As String = "INSERT INTO " & _ 
         dbTbl & _ 
         colStr & _ 
         Strings.Replace(expression(0), "'", "''", 1, -1, CompareMethod.Binary) & "','" & _ 
         Strings.Replace(expression(1), "'", "''", 1, -1, CompareMethod.Binary) & "','" & _ 
         Strings.Replace(expression(2), "'", "''", 1, -1, CompareMethod.Binary) & "')" 

В коде выше, вместо ручного ввода выражения (0), выражение (1), и т.д. Я хочу строку автоматически объединяться после ввода значения «n» для выражения (n).

Спасибо.

Answer 1

Вы можете использовать String.Join:

For index = 0 To dupColIndx - 1 
    expression(index) = dgvINSRT.Rows.Item(i).Cells.Item(index).Value.ToString.Replace("'", "''") 
Next 

Dim strInsrt As String = "INSERT INTO " & _ 
        dbTbl & _ 
        colStr & _ 
        String.Join("','", expression) & "')" 

Примечание: Если вы убегаете значения самостоятельно, это важно, что вы используете правильную замену для базы данных, которую вы используете, или запрос широко открыт для Атаки SQL-инъекций. Используемый здесь метод работает для SQL Server и Access, но может быть неправильным для других баз данных. Это не подходит для MySQL, например, вам также необходимо избежать обратных косых черт.

Answer 2

If expression.Count >= 1 
    Dim strInsrt As String = "INSERT INTO " & dbTbl & colStr 

    For i= 0 To expression.Count - 2 
     strInsrt &= "'" & Strings.Replace(expression(i), "'", "''", 1, -1, CompareMethod.Binary) & "'," 
    Next i 

    strInsrt &= "'" & Strings.Replace(expression(expression.Count - 1), "'", "''", 1, -1, CompareMethod.Binary) & "')" 
End If