Ante todo buenos dias a todos, voy a romper las reglas del juego pero
es por fines netamenta academicos.
Tengo una Pequeña base de datos llamada BDEjemplo1, en la cual tengo
mi tabla Persona y en ella tengo 3 campos
(nombre,apepaterno,apematerno) la cual tengo a 10 usuarios; ahora
estoy con un libro de ASP3, la cual ya realize mi conexion a mi BD por
intermedio del driver ODBC, tengo el siguiente codigo el cual me da
como resultado la conexion ok:
<%
On Error Resume Next
Dim Conexion = CreateObject("ADODB.Connection")
Conexion.Open("Ej1")
Dim strSQL = "Select * from Persona"
Dim miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" Then
Response.Write("<b>Error en la Base de Datos: " &
Err.Description & "</b>")
Else
Response.Write("<b>Todo ok</b>")
End If
miConexion = Nothing
Conexion = Nothing
%>
Ahora lo que quiero es mostrar los datos de mi tabla para esto tengo
el siguiente codigo:
<%
On Error Resume Next
Dim Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open("Ej1")
Dim strSQL = "Select Nombre, ApePaterno from Persona"
Dim miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" Then
Response.Write("<b>Error en la Base de Datos: " &
Err.Description & "</b>")
Else
Response.Write("<b>Datos Consultados Correctamente</b></br></
br>")
End If
%>
<table border=1 bgcolor=#C0C0C0><tr><th>Nombre</th><th>ApePaterno</
th></tr>
<% Do While Not miConexion.EOF%>
<tr><td>
<% =miConexion("Nombre")%>
</td><td>
<% =miConexion("ApePaterno")%>
</td></tr>
<% miConexion.MoveNext()
Loop%>
</table>
<%
miConexion = Nothing
Conexion = Nothing
%>
Sucede pues q con este codigo carga mi tabla de 2 campos (Nombre y
ApePaterno) pero en los campos en la cual deberia de visualizar mi
nombre y appepaterno sale lo siguiente: System.__ComObject.
Requiero de su ayuda para poder visualizar los datos de mi tabla,
desde ya agradesco su atencion a mi caso.
Atte.
N3st@
Leer las respuestas