Hola caballeros, bien mi problema es el siguiente: estoy realizando un programita en vb.net con la cual conecto a la base de datos sql y estoy mas de una semana con un apartado que no termino de resolver. Ya que soy un novato, espero recibir su profesional ayuda (y no es por hacer la rosca). Muchas gracias de antemano, aqui les enseño mi codigo y mi problema:
Imports Oracle.DataAccess.Client
Public Class Form1
Dim usuario As String
Dim contraseña As String
Dim cadena As String = "Data Source=(DESCRIPTION=" _
+ "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.0.222)(PORT=1521)))" _
+ "(CONNECT_DATA=(SID=test)));" _
+ "User Id=++++++++++;Password=+++++++++;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conexion As OracleConnection
Dim consulta As String
Dim cmd As OracleCommand
Dim resultado As OracleDataReader
'cadena de conexión a la bbdd
' creamos la conexión a la bbdd
conexion = New OracleConnection(cadena)
' abrimos la conexión
conexion.Open()
'Indicamos la consulta
consulta = "select username from all_users"
'ejecutamos la consulta
cmd = New OracleCommand(consulta, conexion)
'Ejecutamos la consulta y obtenemos el resultado
resultado = cmd.ExecuteReader()
' recorremos el resultado
While (resultado.Read)
cbUsuarios.Items.Add(resultado("username"))
End While
' Cerra el resultado y la conexión
resultado.Close()
conexion.Close()
End Sub
Private Sub cbUsuarios_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbUsuarios.SelectedIndexChanged
Dim conexion As OracleConnection
Dim consulta As String
Dim cmd As OracleCommand
Dim resultado As OracleDataReader
Dim campos As String = ""
Dim i As Integer = 0
consulta = "select table_name from all_tables where owner='" & cbUsuarios.SelectedItem & "'"
conexion = New OracleConnection(cadena)
conexion.Open()
cmd = New OracleCommand(consulta, conexion)
resultado = cmd.ExecuteReader()
While (resultado.Read)
campos = ""
campos = vbNewLine & resultado("table_name")
lbsalida.Items.Add(resultado("table_name"))
i += 1
End While
End Sub
Private Sub lbsalida_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbsalida.SelectedIndexChanged
Dim conexion As OracleConnection
Dim consulta As String
Dim cmd As OracleCommand
Dim resultado As OracleDataReader
Dim campos As String = ""
Dim i As Integer = 0
consulta = "select column_name, data_type, NULLABLE from all_tab_columns where table_name='" & lbsalida.SelectedItem & "'"
conexion = New OracleConnection(cadena)
conexion.Open()
cmd = New OracleCommand(consulta, conexion)
resultado = cmd.ExecuteReader()
dgresultado1.ColumnCount = 3
dgresultado1.Columns.Item(0).Name = "Nombre"
dgresultado1.Columns.Item(1).Name = "Tipo"
dgresultado1.Columns.Item(2).Name = "¿Nulo?"
While (resultado.Read)
dgresultado1.Rows.Add()
dgresultado1.Rows(i).Cells(0).Value = resultado("column_name")
dgresultado1.Rows(i).Cells(1).Value = resultado("data_type")
dgresultado1.Rows(i).Cells(2).Value = resultado("NULLABLE")
i = i + 1
End While
End Sub
End Class
tengo 2 data grid. En el segundo datagrid necesito que me aparezcan todos los atributos de la tabla, es decir, pincho en una lista de tablas y en el data grid 1 me aparece el nombre de la tabla, el tipo de los atributos que contiene y si es nula o no y lo que pretendo saber en el data grid 2 es el contenido de la tabla misma cuando pinche en ella. Como ya he dicho antes, muchas gracias de antemano
