codigo visual basic para BDatos

[Kelpie]

Eso que pides es muy amplio. Depende de cómo te conectes a la BD. Te pongo unos ejemplillos con DAO que es el más sencillo.

El guión general sería:

1.-Abrir o conectar con la base de datos
En DAO, puedes emplear algo así

Código:

Dim db as database
set db=openDatabase("/ruta/fihero.mdb")

En ADO crearías un objeto connection y de él abrirías las bases

Código:

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0;"  
conn.Properties("Data Source").Value = "ruta\base.mdb"
conn.Properties("Jet OLEDB:Database Locking Mode").Value = 1
conn.CommandTimeout = 10 
conn.CursorLocation = adUseClient
conn.IsolationLevel = adXactChaos
conn.Open

rs.Open "select * from tabla", conn, adOpenStatic, adLockReadOnly, adCmdText

2.- Consultar a la base
Una vez abierta, empleeas un objeto recordset para obtener datos...

Código:

dim rs as recordset
set rs=db.openRecordset("SELECT * FROM tabla",dbOpenDynaSet)

Y luego repasas los datos que has obtenido

Código:

while not rs.eof  'Repasa hasta acabar
  print rs("nombre")  'Muestra el contenido del campo 'nombre'
  rs.movenext  'Ve al siguiente registro
wend

3.- Ejecutar SQL directamente
Si no vas a recuperar datos, puedes ejecutar consultas directamente...

Código:

db.execute "DELETE * FROM tabla"

4.- Puedes modificar los valores de un RecordSet abierto con dbOpenDynaSet (que permite cambios)

Código:

set rs=db.openRecordset("SELECT * FROM tabla",dbOpenDynaSet)
rs.edit
rs("nombre")="Pepe"
rs.update

5.- O añadir nuevos...

Código:

set rs=db.openRecordset("SELECT * FROM tabla",dbOpenDynaSet)
rs.adNew
rs("nombre")="Pepe"
rs("codigo")="0001"
rs.update