PEPE
02 de Enero del 2004

Desde access en la opcion de modulos me aparece una pantalla para programar desde VB pero no tengo la idea de que codigo debo escribir para ingresar los datos que se generan del ciclo for.

Option Compare Database

Public Sub prueba()
Dim V As Integer
Dim vv As Integer

For V = 1 To 45
Rst.Open ("insert into tabla (col1=V ")
Next V
End Sub

Jes?enteo
02 de Enero del 2004

Un saludo y Feliz año:
Para conectarte a una base de datos access puedes hacerlo utilizando ADO o mediante DAO
Yo te lo voy a explicar utilizando DAO (mediante ADO es similar)
1. Comprueba que tienes cargado Microsoft DAO 3.51 Object library
¿Cómo? Fácil. Abres un módulo (da igual si está vacio) y seleccionas: Herramientas -> Referencias.
En la ventana que te sale lo buscas y lo activas.( Si tienes activado Ado, lo desactivas)
2. Una vez hecho esto vamos a programar

sub conexionSencillita()
dim db as database
dim rs as recordset
dim sql as string

set db=currentdb '// abres la base de datos, ¡Fácil eh!
'// También puedes optar por la forma en que se hace en visual basic
'// set db=opendatabase('c:datos.mdb') Para más información y para profundizar busca en la ayuda
'// Esto es sumamente superficial y sencillo, la cosa, obviamente, puede complicarse

sql="SELECT * FROM tabla ORDER BY campo"
set rs=db.openrecorset(sql,dbopendynaset) '// abrimos recordset

rs.MoveFirst '// Nos situamos en el primer registro del recordset
'// recorremos el recordset actualizando el campo campo1 con el valor hola
do while not rs.eof
rs.edit
rs.fields("campo1")="hola"
rs.update
loop
'// añadimos un registro nuevo al recordset
rs.addnew
rs.fields("campo2")="adios"
rs.update

rs.close '// cerramos recordset
set rs=nothing
db.close '// Fin de la fuesta cerramos la base de datos
set db=nothing
'// Espero que te sea de ayuda
end sub