Hola a Todos, alguien sabe como hacer un Insert en un SQL Server, a partir de un Array, estoy capturando un TXT enorme de Largo y ancho..
Dim Rs, Cnn, strSQL
Dim ForReading As Integer, ForWriting As Integer, ForAppending As Integer
ForReading = 1
ForWriting = 2
ForAppending = 8
Set MyFile = Fso.OpenTextFile(FileInput, ForReading, True)
'*******Fin OpenTextFile
nLinea = 1
Do While Not MyFile.AtEndOfStream
RLine = MyFile.ReadLine
If nLinea > 2 Then
MyArray = Split(RLine, ";", -1, vbBinaryCompare)
'aca seria la Ayuda
Cadena = "INSERT INTO Tabla (campos) VALUES(El Array)"
'insertaremos los Registros a Execute
Cnn.Execute (Cadena)
End If
nLinea = nLinea + 1
Loop
En Visual FoxPro existe un insert en un cursor FROM ARRAY.
Aca no lo encontre...
Si alguien sabe, Genial.
Sino a armar la cadena....
Saludos a Todos.
