Estoy probando con el dataTable pero me da un error
Cita: Un valor de tipo System.Data.DataTable no se puede convertir en String
Código PHP:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim respuesta As Integer = "4"
Dim dt As New Data.DataTable
dt = Me.conexion.consulta2("select * from T_preguntas")
Dim dt2 As New Data.DataTable
dt2 = Me.conexion.consulta2("select * from T_respuestas")
Me.lblsesion.Text = Session("alumno")
Dim objCommandT As New SqlCommand(dt, objConexion)
Dim objCommandR As New SqlCommand(dt2, 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
End Sub