Informix permite encadenar consultas de inserción, pero eso no sería lo más eficiente.
Podrías hacer lo que dices, separando cada consulta con ;
:
sql = "INSERT INTO linea VALUES (1, 1, 3); INSERT INTO linea VALUES (2, 1, 6);INSERT INTO linea VALUES (3, 1, 1); INSERT INTO linea VALUES (4, 1, 2);"
Pero lo más eficiente sería hacer un único INSERT
con varios conjuntos de valores, separados por ,
:
sql = "INSERT INTO linea VALUES (1, 1, 3), (2, 1, 6), (3, 1, 1), (4, 1, 2);"
Suponiendo que estás trabajando en WindowsForms, podría ser algo así:
Public Class MiForm
Dim _listaValores As List(Of Integer())
Private Sub MiForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'vaciamos la lista
_listaValores.Clear()
End Sub
Private Sub AgregarConjunto(a As Integer, b As Integer, c As Integer)
'agregamos un conjunto de 3 valores a la lista
_listaValores.Add({a, b, c})
End Sub
Private Sub GenerarSQL()
'definimos dos plantillas
Dim _plantillaINSERT As String = "INSERT INTO linea VALUES {0};" 'plantilla para todo el INSERT
Dim _plantillaVALUES As String = "({0}, {1}, {2})" 'plantilla para cada trío de valores
If _listaValores.Count = 0 Then
MsgBox("No hay valores para insertar")
Else
'pasamos la lista de valores a una lista de strings usando la plantilla
Dim _listaValores2 As New List(Of String)
For Each i As Integer() In _listaValores
'cada string queda algo como (1, 2, 3)
_listaValores2.Add(String.Format(_plantillaVALUES, i(0), i(1), i(2)))
Next i
'hacemos un string combinando los elementos de la lista, separándolos con una coma
'quedaría algo como (1, 2, 3), (4, 5, 6)
Dim arrayConComas As String = Strings.Join(_listaValores2.ToArray, ",")
'metemos esos valores en la plantilla principal
'quedaría algo como INSERT INTO linea VALUES (1,2,3), (4,5,6);
Dim sql As String = String.Format(_plantillaINSERT, arrayConComas)
MsgBox("La consulta final sería: " & sql)
End If
End Sub
End Class
En el click de algún botón: AgregarConjunto(valor1, valor2, valor3)
para agregarlo a la lista.
Por último, en el click de algún otro botón: GenerarSQL()
El código podría ser mucho más breve, pero preferí hacerlo paso a paso, explicando, para que fuera más claro.