none
Como leer, insertar, eliminar o modificar registros de una Base de Datos Access???

    Question

  • Muy buenas tardes a todos...

     

    En primer lugar, me presento, soy Juan Ríos, chileno y estudiante de Ingeniería en Computación e Informática...

     

    Llevo como 4 años programando en Visual Basic 6.0 y en otros lenguajes como Java... pero ahora estoy tratando de aprender a programar en Visual Basic 2005, y me he encontrado con algunos problemas al momento de manejar las Bases de Datos de Access...

     

    Tengo una Base de Datos en Access, llamada Indices, la que contiene una tabla llamada "Clientes"...

     

    Ahora, desde Visual Basci quiero poder leer, insertar, eliminar o modificar los registros de esta Tabla, pero no entiendo como...

     

    He buscado por todos lados y encontré algo que me ayudó un poco, pero mi código me da problemas...

     

    Mi código es el siguiente:

    Public cn As OleDbConnection

    Public ds As Data.DataSet

    Public da As OleDbDataAdapter

    Public strConexion As String

    Public Ssql As String

    Public bs As BindingSource

    Public Fila As Data.DataRow

     

    Public Sub Guardar_Datos()

      strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\BaseDat\Indices.mdb"

      Try

        cn = New OleDbConnection(strConexion)

        cn.Open()

      Catch ex As Exception

        MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)

        Exit Sub

      End Try

     

      bs = New BindingSource

      ds = New Data.DataSet

      Ssql = "Select * from Clientes where clien_rut = '" & _

      txt_Clien_Rut.Text & "-" & txt_Clien_Dig.Text & "'"

      da = New OleDb.OleDbDataAdapter(Ssql, cn)

      Try

        da.Fill(ds, "Clientes")

      Catch ex As Exception

        MessageBox.Show("Error al cargar el DataSet:" & vbCrLf & ex.Message)

      End Try

      If ds.Tables(0).Rows.Count <> 0 Then

      Else

        bs.DataSource = ds.Tables(0)

        Fila = ds.Tables(0).NewRow()

        Fila("clien_rut") = txt_Clien_Rut.Text & "-" & txt_Clien_Dig.Text

        Fila("clien_nom") = txt_Clien_Nom.Text

        Fila("clien_fono") = txt_Clien_Fono.Text

        Fila("clien_dir") = txt_Clien_Dir.Text

        ds.Tables(0).Rows.Add(Fila)

        da.Update(CType(bs.DataSource, DataTable)) 'Acá es donde me da el Error...

      End If

    End Sub

     

    Espero que alguien pueda ayudarme...

     

    Saludos...

    Monday, May 21, 2007 6:15 PM

Answers

All replies