
28/03/2006, 18:46
|
 | | | 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. |