Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/03/2006, 18:46
Avatar de mazingerz
mazingerz
 
Fecha de Ingreso: febrero-2003
Ubicación: Sarasota FL
Mensajes: 147
Antigüedad: 22 años, 2 meses
Puntos: 0
INSERT desde un Arreglo

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.