Visual Basic - Conectar con Base de Datos Acces

Lo primero que hay que hacer es añadir la referencia Microsoft ADO.

Ahora, conectamos con las base de datos.

Set BaseDatos = Workspaces(0).OpenDatabase("RutadelaBD\bd.mdb", False, False)

Cuando conectamos, abrimos un recorset con la consulta que queremos realizar.

SQL = "SELECT * FROM Clientes"

Set Rs = BaseDatos.OpenRecordset(SQL, dbOpenSnapshot)

Luego imprimimos los resultados

Msgbox "Nombre: "+ Rs!Nombre

Si la consulta devuelve mas de una fila, para pasar de un registro a otro utilizamos, Rs.MoveNext

Un ejemplo sería:

while not Rs.EOF
combo1.addItem Rs!Nombre
Rs.MoveNext
end while

El while not Rs.EOF significa, Mientras no sea el final del RecordSet

You liked this post? Subscribe via RSS feed and get daily updates.

1 comentarios:

  1. hoola alguien sabe de casualidad donde, en q pagina puedo encontrar alguna informacion para conectar mi base de datos en sql server 2000 y visual basic 2005 es q ya busque y no encuentro si me dan alguna pagina s elos agradeceria mucho x fitaz si grax...

Publicar un comentario en la entrada