elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Solo una pequeña AYUDA...! por fa....! 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...!
2  Programación / .NET (C#, VB.NET, ASP) / Conexion de Oracle a vb.net en: 13 Diciembre 2006, 14:21 pm
Me gustaria que me ayuden con un poco de codigo, nesesito crear un componente que me conecte con la base de datos Oracle.
Que con 'Public Sub' (procedimientos) pueda eliminar filas, crear nuevas filas, y hacer uptade, por ultimo. Muchas Gracias a Todos.  :D
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines