bueno he modificado la función consulta2 de la clase cconexión por:
Código PHP:
Public Function consulta2(ByVal orden As String) As Data.DataTable
abrir()
Dim cmd As New SqlCommand(orden)
cmd.Connection = Me.con
Dim da As SqlDataAdapter = New SqlDataAdapter
da.SelectCommand = cmd
Dim datos As Data.DataTable = New Data.DataTable
cmd.ExecuteNonQuery()
da.Fill(datos)
Return datos
y al hacer la llamada a la función desde el documento Page_load me da problemas.
Necesita ayuda y no soy capaz de conseguir dicha conexión y no se si lo que voy probando va por buen camino o no si alguien me puede ayudar se lo agradecería mucho ya que esto me solucionaría muchas dudas. (lo que si me funciona es cuando creo en otra conexión dentro del Page_load pero lo que deseo es crear una sola conexion para todo el proyecto)
Esto si funciona:
Código PHP:
Dim strConexion As String
strConexion = "Data Source=ADRSERVER/SQLEXPRESS; Initial Catalog=nortwind;" & "Integrated Security=Yes"
Dim objConexion As New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
Dim rs1 As String
rs1 = "select * from T_preguntas"
Dim rs2 As String
rs2 = "select * from T_respuestas"
Me.lblsesion.Text = Session("alumno")
Dim objCommandT As New SqlCommand(rs1, objconexion)
Dim objCommandR As New SqlCommand(rs2, objconexion)
Dim objAdapterT As New SqlDataAdapter
Dim objAdapterR As New SqlDataAdapter
objAdapterT.SelectCommand = objCommandT
objAdapterR.SelectCommand = objCommandR
Dim objDs As New Data.DataSet
objAdapterT.Fill(objDs, "Preguntas")
objAdapterR.Fill(objDs, "Respuestas")
Dim relacion As Data.DataRelation = objDs.Relations.Add("Examen", objDs.Tables("Preguntas").Columns("c_idpregunta"), objDs.Tables("Respuestas").Columns("c_Pregunta"))
Dim filaR, filaT As Data.DataRow
For Each filaR In objDs.Tables("Preguntas").Rows
Response.Write("<br>" & filaR("c_Pregunta").ToString)
For Each filaT In filaR.GetChildRows(relacion)
Response.Write("<br>" & filaT("c_Respuestas").ToString)
Next
Next