Dao y Access
Hola,
Estoy intentando escribir 162 registros en una BBDD de access usando ado. Pero, cuando me llega al registro numero 16, Error: "-2147217887 Múltiple-step operation generated errores. Check status value"
Si intento grabar menos de 16 datos, fantaastico, pero si intento grabar más, se va todo a la kk
Os dejo el bucle que uso para guardarlo
cont = 0
res = 1
Call Panel(1, "Guardando nuevos datos...")
Do While cont < contMAX
Call Panel(2, "Nuevo dato numero: " & cont)'Envia msg a la barra
'de estado
Adodc1.Refresh
Adodc1.Recordset.AddNew
Text1(0).Text = Nuevo(cont).empresa
Text1(1).Text = Nuevo(cont).nombre
Text1(2).Text = Nuevo(cont).apellido
Text1(3).Text = Nuevo(cont).departamento
Text1(4).Text = Nuevo(cont).email
Text1(5).Text = Nuevo(cont).telefono
Text1(6).Text = Nuevo(cont).fax
Text1(7).Text = Nuevo(cont).direccion
Text1(8).Text = Nuevo(cont).cp
Text1(9).Text = Nuevo(cont).provincia
Text1(10).Text = Nuevo(cont).nick
Text1(11).Text = Nuevo(cont).fecha
Text1(12).Text = Nuevo(cont).comentario
'Adodc1.Recordset.Update '\_He stado haciendo
Adodc1.Recordset.UpdateBatch adAffectCurrent '/ pruebas ...
Adodc1.Recordset.Requery
Adodc1.Recordset.MoveLast
DoEvents
cont = cont + 1
Loop
Gracias compañero!
Estoy intentando escribir 162 registros en una BBDD de access usando ado. Pero, cuando me llega al registro numero 16, Error: "-2147217887 Múltiple-step operation generated errores. Check status value"
Si intento grabar menos de 16 datos, fantaastico, pero si intento grabar más, se va todo a la kk
Os dejo el bucle que uso para guardarlo
cont = 0
res = 1
Call Panel(1, "Guardando nuevos datos...")
Do While cont < contMAX
Call Panel(2, "Nuevo dato numero: " & cont)'Envia msg a la barra
'de estado
Adodc1.Refresh
Adodc1.Recordset.AddNew
Text1(0).Text = Nuevo(cont).empresa
Text1(1).Text = Nuevo(cont).nombre
Text1(2).Text = Nuevo(cont).apellido
Text1(3).Text = Nuevo(cont).departamento
Text1(4).Text = Nuevo(cont).email
Text1(5).Text = Nuevo(cont).telefono
Text1(6).Text = Nuevo(cont).fax
Text1(7).Text = Nuevo(cont).direccion
Text1(8).Text = Nuevo(cont).cp
Text1(9).Text = Nuevo(cont).provincia
Text1(10).Text = Nuevo(cont).nick
Text1(11).Text = Nuevo(cont).fecha
Text1(12).Text = Nuevo(cont).comentario
'Adodc1.Recordset.Update '\_He stado haciendo
Adodc1.Recordset.UpdateBatch adAffectCurrent '/ pruebas ...
Adodc1.Recordset.Requery
Adodc1.Recordset.MoveLast
DoEvents
cont = cont + 1
Loop
Gracias compañero!
Respuesta de marcosz
1