Solo una pequeña AYUDA...! por fa....!

Iniciado por wili342, 19 Diciembre 2006, 00:02 AM

0 Miembros y 1 Visitante están viendo este tema.

wili342

Hola a todos, bueno, hize una conexion a la base de datos, pero tengo un problema al actualizar la base de datos...


'-----------------------------------------------
Imports System.Data
Imports System.Data.OracleClient
'-----------------------------------------------
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Cadena As String
    Dim Conex As OracleConnection
    Dim SQL As String
    Dim Comando As OracleDataAdapter
    Dim Dset As DataSet
'-----------------------------------------------
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Cadena = "Data Source = bdisur; User Id = scott; Password = tiger; Integrated Security = no;"

        Conex = New OracleConnection(Cadena)
        Conex.Open()

        SQL = "SELECT * FROM usuarios"

        Comando = New OracleDataAdapter(SQL, Conex)

        Dset = New DataSet
        Comando.Fill(Dset, "usuarios")
        TextBox1.DataBindings.Add("Text", Dset, "usuarios.nombre")
        TextBox2.DataBindings.Add("Text", Dset, "usuarios.clave")
    End Sub
'-----------------------------------------------
    Private Sub Agregar_ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim miTabla As DataTable
        Dim cfilas As DataRowCollection
        Dim nuevaFila As DataRow 'Fila de datos!
        miTabla = Dset.Tables("usuarios")
        cfilas = miTabla.Rows

        Try
            nuevaFila = miTabla.NewRow()
            nuevaFila(0) = "Ingrese Nombre"
            nuevaFila(1) = "Ingrese Codigo"
            cfilas.Add(nuevaFila)
            BindingContext(Dset, "usuarios").Position = BindingContext(Dset, "usuarios").Count - 1
            TextBox1.Focus()
        Catch ex As System.Data.ConstraintException
            MessageBox.Show(ex.Message)
        Catch ex2 As System.Data.DataException
            MessageBox.Show(ex2.Message)
        Catch ex3 As Exception
            MessageBox.Show(ex3.Message)
        End Try
        miTabla.AcceptChanges()
    End Sub
'-----------------------------------------------
    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Comando.Update(Dset, "usuarios")
    End Sub

En este codigo, me llana perfectamente el Data Set, le puedo hacer modificaciones (insertar nuevas filas), pero el problema esta al querer pasar las actualizaciones al dataadapter... no se si me puedan ayudar por fa es super urgente...!