Hola a todos los del foro. Necesito ayuda de como acceder a una base de datos de Access 2003 con visual studio.NET 2003, ya lei algunos manuales pero la verdad no sale y en muchos me marca errores.


De antemano gracias

[color=#0000ff size=2]


Mira esto, asi yo lo he hecho...


Imports[/color] System.Data[color=#0000ff size=2]


Imports[/color] System.Data.OleDb[color=#0000ff size=2]


Imports[/color] Microsoft.VisualBasic


[color=#0000ff size=2]Public[/color] [color=#0000ff size=2]Class[/color] Form1


[color=#008000 size=2]'Inherits System.Windows.Forms.Form[/color]


[color=#008000 size=2]'Las variables declaradas a nivel de clase para poder usarlas desde[/color]


[color=#008000 size=2]'cualquier procedimiento o función[/color]


[color=#0000ff size=2]Public[/color] Con [color=#0000ff size=2]As[/color] OleDbConnection = [color=#0000ff size=2]New[/color] System.Data.OleDb.OleDbConnection [color=#008000 size=2]'El objeto que establece la coneccion de tipo oledb[/color]


[color=#0000ff size=2]Public[/color] Adaptador [color=#0000ff size=2]As[/color] OleDbDataAdapter [color=#008000 size=2]'DataAdapter: adaptador de datos[/color]


[color=#008000 size=2]' Public datos As DataSet 'DataSet: conjunto de datos desconectados[/color]


[color=#0000ff size=2]Public[/color] EnlaceBase [color=#0000ff size=2]As[/color] BindingManagerBase [color=#008000 size=2]'administrador de los objetos de enlace a datos[/color]


[color=#0000ff size=2]Public[/color] Comando [color=#0000ff size=2]As[/color] OleDbCommandBuilder [color=#008000 size=2]'constructor de comandos para el DataAdapter[/color]


[color=#0000ff size=2]Public[/color] Ruta [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color] [color=#008000 size=2]'almacena la ruta a la base de datos[/color]


[color=#0000ff size=2]Private[/color] Abierto [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean[/color] = [color=#0000ff size=2]False[/color] [color=#008000 size=2]'para saber si ya está abierta la base de datos[/color]


[color=#0000ff size=2]Private[/color] Cambios [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean[/color] = [color=#0000ff size=2]False[/color] [color=#008000 size=2]'para saber si hay cambios pendientes de guardar[/color]


[color=#0000ff size=2]Private[/color] DT [color=#0000ff size=2]As[/color] [color=#0000ff size=2]New[/color] DataTable


[color=#0000ff size=2]Private[/color] Tupla [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color]


[color=#0000ff size=2]Dim[/color] Consulta [color=#0000ff size=2]As[/color] OleDbDataAdapter


[color=#0000ff size=2]Dim[/color] ConjuntoDatos [color=#0000ff size=2]As[/color] DataSet


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] Form1_Load([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] [color=#0000ff size=2]MyBase[/color].Load


[color=#0000ff size=2]For[/color] [color=#0000ff size=2]Each[/color] c [color=#0000ff size=2]As[/color] Control [color=#0000ff size=2]In[/color] [color=#0000ff size=2]Me[/color].Controls


[color=#0000ff size=2]If[/color] [color=#0000ff size=2]TypeOf[/color] c [color=#0000ff size=2]Is[/color] TextBox [color=#0000ff size=2]Then[/color]


c.Text = [color=#800000 size=2]""[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]Next[/color]


txtRutaBD.Text = [color=#800000 size=2]"C:\Documents and Settings\Roque\My Documents\Visual Studio 2005\Projects\OtraAplicacion\OtraAplicacion\bin\bd 1.mdb"[/color]


Abierto = [color=#0000ff size=2]False[/color]


lblEstadoBD.Text = [color=#800000 size=2]"Sin cargar"[/color]


btnGuardar.Enabled = [color=#0000ff size=2]False[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub


[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnConectar_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnConectar.Click


[color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]If[/color] System.IO.File.Exists(txtRutaBD.Text) = [color=#0000ff size=2]True[/color] [color=#0000ff size=2]Then[/color]


Ruta = txtRutaBD.Text


Coneccion(Ruta)





[color=#008000 size=2]'Si la base de datos está abierta, simplemente informar[/color]


[color=#008000 size=2]' If Abierto = True Then[/color]


[color=#008000 size=2]'Dim aviso As String = "La base de datos ya está cargada en el DataSet"[/color]


[color=#008000 size=2]'lblPrimera.Text = aviso.ToUpper[/color]


[color=#008000 size=2]'End If[/color]


[color=#0000ff size=2]Else[/color]


MessageBox.Show([color=#800000 size=2]"No existe la base de datos indicada"[/color])


txtRutaBD.Focus()


[color=#008000 size=2]'Si la base de datos NO está abierta[/color]


[color=#0000ff size=2]If[/color] Abierto = [color=#0000ff size=2]False[/color] [color=#0000ff size=2]Then[/color]


[color=#0000ff size=2]Try[/color]


[color=#008000 size=2]'Cuadro de diálogo para elegir la base de datos[/color]


dlgFile = [color=#0000ff size=2]New[/color] OpenFileDialog


dlgFile.Filter = [color=#800000 size=2]"Base de datos db1 (*.mdb)|*.mdb"[/color]


dlgFile.Title = [color=#800000 size=2]"Selecciona la base de datos Agenda"[/color]


[color=#008000 size=2]'Si el diálogo devuelve OK[/color]


[color=#0000ff size=2]If[/color] dlgFile.ShowDialog() = Windows.Forms.DialogResult.OK [color=#0000ff size=2]Then[/color]


[color=#008000 size=2]'Nombre del archivo elegido, con su ruta completa,[/color]


[color=#008000 size=2]'equivale a la base de datos[/color]


Ruta = dlgFile.FileName


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]Catch[/color] pollo [color=#0000ff size=2]As[/color] Exception


lblPrimera.Text = pollo.Message.ToUpper


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


MessageBox.Show([color=#800000 size=2]"ERROR: "[/color] & ex.Message & vbCrLf & [color=#800000 size=2]"Seguramente porque no existe la base de datos indicada"[/color])


txtRutaBD.Focus()


[color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub


[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnsiguiente_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnsiguiente.Click


[color=#0000ff size=2]Dim[/color] UltimaFila [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = DT.Rows.Count - 1


Tupla = Tupla + 1


[color=#0000ff size=2]If[/color] Tupla > UltimaFila [color=#0000ff size=2]Then[/color]


Tupla = UltimaFila


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


MostrarDatos(Tupla)


RegistroActual()


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Sub[/color] MostrarDatos([color=#0000ff size=2]ByVal[/color] f [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color])


[color=#0000ff size=2]Dim[/color] UltimaFila [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = DT.Rows.Count - 1


[color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]If[/color] f < 0 [color=#0000ff size=2]OrElse[/color] UltimaFila < 0 [color=#0000ff size=2]Then[/color] [color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


[color=#008000 size=2]'[/color]


[color=#0000ff size=2]Dim[/color] dr [color=#0000ff size=2]As[/color] DataRow = DT.Rows(f)


txtCodigo.Text = dr([color=#800000 size=2]"CODIGO"[/color]).ToString


txtNombre.Text = dr([color=#800000 size=2]"NOMBRE"[/color]).ToString


txtApellido.Text = dr([color=#800000 size=2]"APELLIDO"[/color]).ToString


cboSexo.Text = dr([color=#800000 size=2]"SEXO"[/color]).ToString


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


MsgBox([color=#800000 size=2]"Error al mostrar los datos"[/color], MsgBoxStyle.Information)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnPrimero_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnPrimero.Click


Tupla = 0


MostrarDatos(Tupla)


RegistroActual()


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnAtras_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnAtras.Click


[color=#0000ff size=2]Dim[/color] UltimaFila [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = DT.Rows.Count - 1


Tupla = Tupla - 1


[color=#0000ff size=2]If[/color] Tupla < 0 [color=#0000ff size=2]Or[/color] Tupla = 0 [color=#0000ff size=2]Then[/color]


Tupla = 0


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


MostrarDatos(Tupla)


RegistroActual()


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnUltimo_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnUltimo.Click


Tupla = DT.Rows.Count - 1


MostrarDatos(Tupla)


RegistroActual()


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Sub[/color] Coneccion([color=#0000ff size=2]ByVal[/color] Ruta [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color])


[color=#008000 size=2]'Cadena de conexión típica de base de datos de Microsoft Access[/color]


Con.ConnectionString = [color=#800000 size=2]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="[/color] _


& Ruta & [color=#800000 size=2]";User Id=admin;Password=;"[/color]


[color=#008000 size=2]'DataAdapter: objeto que hace de puente entre la base de datos[/color]


[color=#008000 size=2]'y el DataSet o conjunto de datos[/color]


Adaptador = [color=#0000ff size=2]New[/color] OleDbDataAdapter([color=#800000 size=2]"SELECT * FROM PERSONA ORDER BY CODIGO"[/color], Con)


[color=#008000 size=2]'DataAdapter puede contener sentencias SQL y objetos Command[/color]


Comando = [color=#0000ff size=2]New[/color] OleDbCommandBuilder(Adaptador)


Adaptador.UpdateCommand = Comando.GetUpdateCommand


Adaptador.InsertCommand = Comando.GetInsertCommand


Adaptador.DeleteCommand = Comando.GetDeleteCommand


[color=#008000 size=2]'DataSet: contiene una copia de la base de datos, en esquema XML,[/color]


[color=#008000 size=2]'independiente del proveedor, con sus elementos tablas y relaciones.[/color]


[color=#008000 size=2]'Es el verdadero almacén de datos desconectados: actuamos sobre[/color]


[color=#008000 size=2]'el DataSet desconectado y el DataAdapter se conecta para volcar[/color]


[color=#008000 size=2]'los datos entre base de datos y DataSet, en ambos sentidos[/color]


DT = [color=#0000ff size=2]New[/color] DataTable


[color=#008000 size=2]'Abrir la conexión, el DataAdapter llena el DataSet,[/color]


[color=#008000 size=2]'cerrar la conexión[/color]


Con.Open()


Adaptador.Fill(DT)


Con.Close()


[color=#008000 size=2]'Llenar el DataGrid con los datos de la tabla[/color]


[color=#0000ff size=2]Me[/color].DesplegarDatos.DataSource = DT


lblPrimera.Text = [color=#800000 size=2]"Base de datos cargada usando solo codigo."[/color]


lblSegunda.Text = [color=#800000 size=2]"Archivo de datos: "[/color] & Ruta


[color=#008000 size=2]'Procedimiento descrito más abajo[/color]


[color=#0000ff size=2]If[/color] DT.Rows.Count > 0 [color=#0000ff size=2]Then[/color]


btnPrimero_Click([color=#0000ff size=2]Nothing[/color], [color=#0000ff size=2]Nothing[/color])


[color=#0000ff size=2]Else[/color]


Tupla = -1


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#008000 size=2]'Tupla = 0[/color]


[color=#008000 size=2]'MostrarDatos(Tupla)[/color]


[color=#008000 size=2]'Para saber que la base de datos ya está cargada[/color]


Abierto = [color=#0000ff size=2]True[/color]


lblEstadoBD.Text = [color=#800000 size=2]"Cargada..."[/color]


txtRutaBD.Enabled = [color=#0000ff size=2]False[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Sub[/color] AsignarDatos([color=#0000ff size=2]ByVal[/color] Tupla [color=#0000ff size=2]As[/color] DataRow)


Tupla([color=#800000 size=2]"NOMBRE"[/color]) = txtNombre.Text


Tupla([color=#800000 size=2]"APELLIDO"[/color]) = txtApellido.Text


Tupla([color=#800000 size=2]"SEXO"[/color]) = cboSexo.Text


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Sub[/color] LimpiarCampos()


[color=#0000ff size=2]For[/color] [color=#0000ff size=2]Each[/color] C [color=#0000ff size=2]As[/color] Control [color=#0000ff size=2]In[/color] GroupBox3.Controls


C.Text = [color=#800000 size=2]""[/color]


txtNombre.Focus()


[color=#0000ff size=2]Next[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] Button2_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] Button2.Click


LimpiarCampos()


btnGuardar.Enabled = [color=#0000ff size=2]True[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnGuardar_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnGuardar.Click


[color=#0000ff size=2]Dim[/color] DR [color=#0000ff size=2]As[/color] DataRow = DT.NewRow


AsignarDatos(DR)


DT.Rows.Add(DR)


[color=#0000ff size=2]Try[/color]


Adaptador.Update(DT)


DT.AcceptChanges()


[color=#008000 size=2]' Si es el primer registro de la base,[/color]


[color=#008000 size=2]' volver a leer los datos para actualizar los IDs[/color]


[color=#0000ff size=2]If[/color] [color=#0000ff size=2]CInt[/color]([color=#800000 size=2]"0"[/color] & DR([color=#800000 size=2]"CODIGO"[/color]).ToString) = 0 [color=#0000ff size=2]Then[/color]


DT = [color=#0000ff size=2]New[/color] DataTable


Adaptador.Fill(DT)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#008000 size=2]' Posicionarlo en la última fila[/color]


btnUltimo_Click([color=#0000ff size=2]Nothing[/color], [color=#0000ff size=2]Nothing[/color])


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] DBConcurrencyException


MessageBox.Show([color=#800000 size=2]"Error de concurrencia:"[/color] & vbCrLf & ex.Message)


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


MessageBox.Show(ex.Message)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#008000 size=2]'Este procedimiento me muestra el detalle del registro p. ej. registro n de x[/color]


[color=#0000ff size=2]Sub[/color] RegistroActual()


[color=#0000ff size=2]Dim[/color] UltimoRegistro [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color] = DT.Rows.Count


lblRegistro.Text = [color=#800000 size=2]"Registro "[/color] & Tupla + 1 & [color=#800000 size=2]" de "[/color] & UltimoRegistro


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnActualizar_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnActualizar.Click


[color=#008000 size=2]'Codigo para actualizar una tupla[/color]


[color=#008000 size=2] '************************************************* ********** ********[/color]


[color=#0000ff size=2]If[/color] Tupla < 0 [color=#0000ff size=2]Or[/color] Tupla > DT.Rows.Count - 1 [color=#0000ff size=2]Then[/color] [color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Dim[/color] dr [color=#0000ff size=2]As[/color] DataRow = DT.Rows(Tupla)


AsignarDatos(dr)


[color=#0000ff size=2]Try[/color]


Adaptador.Update(DT)


DT.AcceptChanges()


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] DBConcurrencyException


MessageBox.Show([color=#800000 size=2]"Error de concurrencia:"[/color] & vbCrLf & ex.Message)


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


MessageBox.Show(ex.Message)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Private[/color] [color=#0000ff size=2]Sub[/color] btnBuscar_Click([color=#0000ff size=2]ByVal[/color] sender [color=#0000ff size=2]As[/color] System.Object, [color=#0000ff size=2]ByVal[/color] e [color=#0000ff size=2]As[/color] System.EventArgs) [color=#0000ff size=2]Handles[/color] btnBuscar.Click


[color=#0000ff size=2]If[/color] txtFiltro.Text = [color=#800000 size=2]""[/color] [color=#0000ff size=2]Then[/color]


MsgBox([color=#800000 size=2]"Debe especificar un criterio de búsqueda"[/color], MsgBoxStyle.Information, [color=#800000 size=2]"Criterio de Filtro"[/color])


[color=#0000ff size=2]Exit[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Else[/color]


[color=#0000ff size=2]Try[/color]


Coneccion2(txtRutaBD.Text)


[color=#0000ff size=2]Catch[/color] ex [color=#0000ff size=2]As[/color] Exception


MsgBox([color=#800000 size=2]"Error:"[/color] & ex.Message)


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Try[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]If[/color]


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub[/color]


[color=#0000ff size=2]Sub[/color] Coneccion2([color=#0000ff size=2]ByVal[/color] Ruta [color=#0000ff size=2]As[/color] [color=#0000ff size=2]String[/color])





[color=#008000 size=2]'DataAdapter: objeto que hace de puente entre la base de datos[/color]


[color=#008000 size=2]'y el DataSet o conjunto de datos[/color]


Adaptador = [color=#0000ff size=2]New[/color] OleDbDataAdapter([color=#800000 size=2]"SELECT * FROM PERSONA WHERE (SEXO LIKE '"[/color] & txtFiltro.Text & [color=#800000 size=2]"') ORDER BY CODIGO"[/color], Con)





[color=#008000 size=2]'DataSet: contiene una copia de la base de datos, en esquema XML,[/color]


[color=#008000 size=2]'independiente del proveedor, con sus elementos tablas y relaciones.[/color]


[color=#008000 size=2]'Es el verdadero almacén de datos desconectados: actuamos sobre[/color]


[color=#008000 size=2]'el DataSet desconectado y el DataAdapter se conecta para volcar[/color]


[color=#008000 size=2]'los datos entre base de datos y DataSet, en ambos sentidos[/color]


DT = [color=#0000ff size=2]New[/color] DataTable


[color=#008000 size=2]'Abrir la conexión, el DataAdapter llena el DataSet,[/color]


[color=#008000 size=2]'cerrar la conexión[/color]


Con.Open()


Adaptador.Fill(DT)


Con.Close()


[color=#008000 size=2]'Llenar el DataGrid con los datos de la tabla[/color]


[color=#0000ff size=2]Me[/color].DesplegarDatos.DataSource = DT


[color=#0000ff size=2]End[/color] [color=#0000ff size=2]Sub


End[/color] [color=#0000ff size=2]Class[/color]


[color=#0000ff size=2]Roque A. Ramirez[/color]

Buena info a ver si me sirve de algo ya que no acabo de aclararme. Gracias.

Hola. Como vi en el comienzo del foro veo que tienen manuales para las interrelaciones entre Acces y vb. NET, me gustaria mucho si fuera posible q me los pasaran o que me digan un lugar donde conseguirlos.


De antemano les agradezco la ayuda prestada, y les agradeceria otros manuales de interacciones entre vb.NET y office (word, excel y acces)