2010-02-19 10 views

Respuesta

13

en el lugar:

rs.AddNew "SomeFieldName", "SomeValue" 

O en lugar de múltiples campos

rs.AddNew Array("SomeFieldName", "AnotherFieldName"), Array("SomeValue", 1234) 

O usando vars separados

Dim Fields As Variant 
Dim Values As Variant 

Fields = Array("SomeFieldName") 
Values = Array("SomeValue") 
rs.AddNew Fields, Values 

Editar: Esta es la forma de sintetizar un conjunto de registros para la muestra anterior AñadirNuevo

Set rs = new Recordset 
rs.Fields.Append "SomeFieldName", adVarChar, 1000, adFldIsNullable 
rs.Fields.Append "AnotherFieldName", adInteger, , adFldIsNullable 
rs.Open 

por lo general estoy usando una función de ayuda CreateRecordset como se ve this answer.

+0

Podría incluir la declaración y la preparación del conjunto de registros antes de la addnew() llamar? Quiero asegurarme de estar haciendo todo lo que hay que hacer, ni más ni menos. – bitcycle

+0

Agregado crear conjunto de registros código de ejemplo – wqw

+0

¡Realmente salvaste la vida! –

3
set rs = new ADODB.Recordset 
rs.Open "Select SomeFieldName, AnotherFieldName FROM MyTable", myConnection, adOpenDynamic, adLockOptimistic 

rs.AddNew 
rs("SomeFieldName").Value = "SomeValue" 
rs("AnotherFieldName").Value = 1 
rs.Update 

rs.AddNew 
rs("SomeFieldName").Value = "AnotherValue" 
rs("AnotherFieldName").Value = 2 
rs.Update 

rs.Close 
0

Con una conexión abierta Conn:

sSql="INSERT into mytable (somefieldname, anotherfieldname) values ('Somevalue','Anothervalue')" 
     Conn.Execute sSql 
Cuestiones relacionadas