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