upssss se me olvidó eso, mil perdones.
La base en Oracle
La base en Oracle
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
REVOKE ALL ON tabla FROM usuario;
REVOKE privilegio FROM usuario;
Private oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source=Resources\BD_Diseño.mdb")
Me.oDataAdapter = New OleDbDataAdapter("select Libros.Id_libro, Titulo, Autor from libros, prestamos where Libros.Id_libro = Prestamos.Id_libro", Me.oConexion)
Me.oCommandBuilder = New OleDbCommandBuilder(Me.oDataAdapter)
Me.oDataSet = New DataSet()
Me.oConexion.Open()
Me.oDataAdapter.Fill(Me.oDataSet, "libros")
Me.oConexion.Close()
Me.DataGridView1.DataSource = Me.oDataSet.Tables("Libros")
Private oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source=C:\Biblioteca.mdb")
Private oDataAdapter As OleDbDataAdapter
Private oCommandBuilder As OleDbCommandBuilder
Private oDataSet As DataSet
Private SQL As String
Private Sub ConsultaBasePrestamos()
Me.SQL = "select * from Libros, Prestamos"
Me.oDataAdapter = New OleDbDataAdapter(Me.SQL, Me.oConexion)
Me.oCommandBuilder = New OleDbCommandBuilder(Me.oDataAdapter)
Me.oDataSet = New DataSet
Me.oConexion.Open()
Me.oDataAdapter.Fill(Me.oDataSet, "Prestamos")
Me.oDataAdapter.Fill(Me.oDataSet, "Libros")
Me.oConexion.Close()
Dim oDataRow0 As DataRow ' Variable para trabajar con las filas de Prestamos
Dim oDataRow1 As DataRow 'Variable apra trabajar con las filas de Libros
Dim oDataTable As DataTable ? 'Tabla para almacenar la consulta
' Procedimiento para obtener los libros prestados
For i As Integer = 0 To Me.oDataSet.Tables(0).Rows.Count - 1
oDataRow0 = Me.oDataSet.Tables(0).Rows(i)
For j As Integer = 0 To Me.oDataSet.Tables(1).Rows.Count - 1
oDataRow1 = Me.oDataSet.Tables(1).Rows(j)
If oDataRow0("Id_libro") = oDataRow1("Id_libro") Then
oDataTable = (oDataRow1.Table)
End If
Next
Next
End Sub
Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
Me.txtDni.Text = Me.DataGridView1.CurrentRow.Cells.Item("dni").Value
Me.txtNombre.Text = Me.DataGridView1.CurrentRow.Cells.Item("nombre").Value
Me.txtTelefono.Text = Me.DataGridView1.CurrentRow.Cells.Item("telefono").Value
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Me.txtDni.Text = Me.DataGridView1.CurrentRow.Cells.Item("dni").Value
Me.txtNombre.Text = Me.DataGridView1.CurrentRow.Cells.Item("nombre").Value
Me.txtTelefono.Text = Me.DataGridView1.CurrentRow.Cells.Item("telefono").Value
End Sub