procedimiento urgente..... ayuda!!!!!!!!!!!!1
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!!!!!!!!!!!!!!
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!!!!!!!!!!!!!!