procedimiento urgente..... ayuda!!!!!!!!!!!!1

mike_chief
26 de Junio del 2005
Acabo de ponerlo hace d铆as pero nadie me ha hecho caso, adem谩s de que ya se perdi贸 mi duda.... 驴qu茅 procedimiento uso para que, mediante un ADODC, se pueda leer y llenar una base de datos en blanco??? He aqui el ejemplo de c贸digo que uso para leer una con registros:

adodc1.refresh
adodc1.recordset.movefirst
with adodc1.recordset
do while not adodc1.recordset.EOF
if text1=.fields("nom") then
msgbox"registro repetido, intente con otro nombre"
exit sub
else
adodc1.recordset.addnew
adodc1.recordset.fields("nom")=text1
adodc1.recordset.update
msgbox"registro almacenado con exito"
end if

adodc1.recordset.movenext
loop
end with

mediante ese c贸digo leo la base de datos de access y hago que "si el text1 es igual a un registro de la base de datos, marque un error y salga de la orden; de lo contrario guarda el registro". Pero obviamente no puedo leer base de datos en blanco. 驴c贸mo lo hago??? ayudenme por favor!!!!!!!!!!!!!!


fabian
26 de Junio del 2005
simplemente veriifica que la base de datos no este vacia.

if adodc.recordset.recordcount=0 then
agregar registro sin comprobar nada 'base de datos vacia
else
hacer loop para verificar redundancia de campos
end if