Título: Solo una pequeña AYUDA...! por fa....! Publicado por: wili342 en 19 Diciembre 2006, 00:02 am 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...! |