Forums Últimos mensajes - Powered by IBM
 

Mostrar Datos de una Tabla

23/04/2007 - 23:07 por Nest | Informe spam
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

#1 Manuel Etcheto
24/04/2007 - 00:38 | Informe spam
Hola.

Aparentemente es porque haces
Dim miConexion = Conexion.Execute(strSQL)
cuando debería ser
SET miConexion = Conexion.Execute(strSQL) ' devuelve la referencia a un
recordset

De todas maneras, y no lo tomes a mal, pero deberías hacer estas consultas
en el foro de ASP o el de ADO

Suerte
Manuel



"Nest@" escribió en el mensaje
news:
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@

Preguntas similares