Sentencia SQL

[pdjazr]

Esto es para una tabla con VB.

el valor de un campo con fields.value ...el nombre es fields.name

saludos


Set rst = dbsAct.OpenRecordset("SCINIT", dbOpenDynaset)

NROCAMPOS = rst.Fields.Count

For i = 1 To NROCAMPOS
If i = 1 Then
cadena = cadena + "?"
Else
cadena = cadena + ",?"
End If
Next
Set qryMyQuery3 = cntAS400.CreateQueryDef("", "INSERT INTO SCINIT VALUES( " + cadena + ")")
With rst
.MoveFirst
Do While Not .EOF

For i = 1 To NROCAMPOS

j = i - 1

var = NoNull(rst.Fields(j).Value)

If var = "" Then


qryMyQuery3(j) = 0

Else

qryMyQuery3(j) = rst.Fields(j).Value

End If

Next

qryMyQuery3.Execute

.Edit
rst.Update

.MoveNext
Loop
.Close
End With