Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/10/2006, 13:32
Avatar de FNX_NET
FNX_NET
 
Fecha de Ingreso: marzo-2004
Ubicación: EN EL INFIERNO.....
Mensajes: 1.707
Antigüedad: 21 años
Puntos: 7
una de las tantas formas de hacer

aqui te va esto

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conexion As System.Data.OleDb.OleDbConnection
Dim StrConexion As String
Dim DS As System.Data.DataSet
Dim adaptador As System.Data.OleDb.OleDbDataAdapter
Dim StrComando As String

' conecta el origen con la base de dato de microsoft access
StrConexion = "provider=Microsoft.Jet.OLEDB.4.0;Password ='miclave';UserID=Admin;Data Soucer=C:\basedatos.mdb;"

' se asigna a la conecion el string de conecion (valga de rabundancia de conexion :P)
conexion = New OleDb.OleDbConnection(StrConexion)

' asigna la tabla que tomara el adaptador
StrComando = "SELECT * FROM tabla"

'se crea el adaptador
adaptador = New OleDb.OleDbDataAdapter(StrComando, StrConexion)

'se conecta y obtiene las filas, las cules seran almacenadas en ds (un data adapter)
adaptador.Fill(DS, "tabla")

'' si se requiera cargar el dataset con otras tablas solo se deben crear
'' nuevas variables
''obvio abre la conexion
conexion.Open()
''lo que se quiera hacer con las tablas y base de datos ,
''pero se tiene que recordar que esta forma extrae la las tablas
'' y se requiere del update para que los combio que se haga a la base
'' ocurran eso :P

'' y mas obvio cierra la conexion
conexion.Close()


End Sub
__________________
:-D "Que se libere del cielo confinado; que mi cuerpo sea la espada de hielo negro que nos lleve al abismo; que ningún poder pueda detenernos...Destructora de las almas de los dioses!!!":adios:


:pirata: