🚀 go-pugleaf

"+mArkO+" <NOSPAMjoin.xtc@gmail.comNOSPAM> wrote in message 
news:d5ou5g$dib$1@news1.nivel5.cl...
> necesito un ejemplo simple de visual basic 6 y access
> porfa paleteense
> grax
>
>
-crea un proyecto nuevo en visual basic
-agrega la referencia ( proyectos -> referencia) Microsoft Active Data 
Object, puede haber varios, agrega los ultimo o agregalos todos.
-crea una base access que tiene solo 1 tabla que se llama "tabla1" (guardala 
como c:\bd1.mdb), y los registros de esta debe tener un campo llamado 
"nombre".
-agrega algunos datos a la tabla creada, preocupate que no exista ningun 
campo vacio (pues suele dar problema con vb).
- crea un boton en el formulario
- haz doble click a el y agrega el siguiente codigo:


Private Sub Command1_Click()

Dim basedato As New ADODB.Connection
Dim rs As New Recordset
basedato.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=c:\bd1.mdb" ';User ID=MyUserID;Password=MyPassword;"
basedato.Open
rs.Open "tabla1", basedato, adOpenKeyset, adLockOptimistic, adCmdTable
rs.MoveFirst
Call MsgBox("el primer elemento es :" + rs("nombre"))
End Sub

-cuando hagas doble click, este programa lee el primer registro (movefirst) 
y muestra el campo "nombre") de ese primer registro.

Es algo complicado pero luego incluso puedes acceder a casi cualquier base 
de datos de la misma manera (mysql por ejemplo)