Hola de nuevo por fin ya conseguí que me mostrara las tablas como yo quería, pero ahora se me a presentado otro problema el cual es que quiero utilizar una sola conexión para toda la aplicación, para ello cree una clase en la cual creo la conexión(cconexion)
La clase es la siguiente
Código PHP:
Public Class Cconexion
Public con As SqlConnection
Sub abrir()
If IsNothing(con) Then
con = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
con.Open()
End If
End Sub
Public Function ejecutar(ByVal orden As String) As Integer
abrir()
Dim cmd As New SqlCommand(orden, con)
Return cmd.ExecuteNonQuery
End Function
Public Function consultar(ByVal orden As String) As SqlDataReader
abrir()
Dim cmd As New SqlCommand(orden, con)
Return cmd.ExecuteReader
End Function
Public Function escalar(ByVal orden As String) As Object
abrir()
Dim cmd As New SqlCommand(orden, con)
Return cmd.ExecuteScalar
End Function
Public Function consulta2(ByVal orden As String) As Data.DataTable
abrir()
Dim Tabla As New Data.DataTable
Dim cmd As New SqlCommand(orden, con)
Dim da As New SqlDataAdapter(cmd)
da.Fill(Tabla)
Return Tabla.Copy
End Function
End Class
Código PHP:
Partial Class _Default
Inherits System.Web.UI.Page
Dim conexion As New Cconexion
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim respuesta As Integer = "4"
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
End Sub
End Class
¿cómo podría conectarme a través de la clase cconexión y rellenar Tabla? Para que de esta forma no tener que repetir la conexión. Muchas gracias
Cita: Dim strConexion As String
strConexion = "Data Source=ADRSERVER/SQLEXPRESS; Initial Catalog=nortwind;" & "Integrated Security=Yes"
Dim objConexion As New SqlConnection(ConfigurationManager.ConnectionStrin gs("ConnectionString").ConnectionString)