Mostrar consula SQL
Publicado por Carloco (2 intervenciones) el 13/05/2007 19:07:32
Hola
Tengo el siguiente problema: He de hacer una consulta a una BD mediante una sentencia SQL y que lo que me devuelva lo muestre en un datagrid, u otro control. El problema se encuentra en que cuando la sentencia SQL hace referencia a mas de una tabla, ya no soy capaz de mostrar la consulta.
Hasta ahora tengo el siguiente codigo:
Dim Conecci As New OleDbConnection
Dim Comando As New OleDbCommand
Dim Lectors As OleDbDataReader
Dim Ds As New DataSet
Dim CadenaCon As String
Dim SQL As String
CadenaCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gimnasio.mdb"
Try
Conecci.ConnectionString = CadenaCon
Comando.Connection = Conecci
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
SQL = "select socios.* from socios, matriculas_curso, cursos where matriculas_curso.cod_socio = socios.cod_socio and cursos.cod_curso = matriculas_curso.cod_curso =" & Me.TextBox2.Text & ";"
Dim Da As New OleDbDataAdapter(SQL, CadenaCon)
Da.Fill(Ds, "socios")
DataGrid3.DataSource = Ds.Tables("socios")
Puede alguien ayudarme? o darme una solucion alternativa?
Gracias de antemano
Tengo el siguiente problema: He de hacer una consulta a una BD mediante una sentencia SQL y que lo que me devuelva lo muestre en un datagrid, u otro control. El problema se encuentra en que cuando la sentencia SQL hace referencia a mas de una tabla, ya no soy capaz de mostrar la consulta.
Hasta ahora tengo el siguiente codigo:
Dim Conecci As New OleDbConnection
Dim Comando As New OleDbCommand
Dim Lectors As OleDbDataReader
Dim Ds As New DataSet
Dim CadenaCon As String
Dim SQL As String
CadenaCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gimnasio.mdb"
Try
Conecci.ConnectionString = CadenaCon
Comando.Connection = Conecci
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
SQL = "select socios.* from socios, matriculas_curso, cursos where matriculas_curso.cod_socio = socios.cod_socio and cursos.cod_curso = matriculas_curso.cod_curso =" & Me.TextBox2.Text & ";"
Dim Da As New OleDbDataAdapter(SQL, CadenaCon)
Da.Fill(Ds, "socios")
DataGrid3.DataSource = Ds.Tables("socios")
Puede alguien ayudarme? o darme una solucion alternativa?
Gracias de antemano
Valora esta pregunta


0