AYUDA!!! conexion sql server

jahman · #1 (**permalink**) 19/11/2003, 21:17

Hola a todos necesito hacer la conexion para SQL Server y me sale el siguiente problema :

este es el codigo de mi pagina, necesito listar los registro de la bd :

----------------------------------------------------------------------

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=will;PWD=will;DATABASE=Proyectos "

Strcon "SELECT * FROM Proyecto"

If oConn.EOF And oConn.BOF Then
Response.Write "No hay Registros."
Else
oConn.MoveFirst%>
<h2> Proyectos Registrados.</h2>
<center>

<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>

<td> Código Proyecto</td>

<td> Código Persona</td>

<td> Código Cliente</td>
<td> Nombre Proyecto</td>
<td> Fecha Inicio</td>

<td> Fecha Término</td>

<td> Descripción</td>
</tr>

<%
While Not oConn.EOF %>
<tr>
<td><%Response.Write oConn.Fields ("CodProyecto") %></td>
<td><%Response.Write oConn.Fields ("Persona") %></td>
<td><%Response.Write oConn.Fields ("Cliente") %></td>
<td><%Response.Write oConn.Fields ("NomProyecto") %></td>
<td><%Response.Write oConn.Fields ("FechaInEstimada")%></td>
<td><%Response.Write oConn.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write oConn.Fields ("Descripcion") %></td>
</tr>
<%oConn.MoveNext
Wend
oConn.close
End If
%>
<table> 
</BODY>

-----------------------------------------------------------------------------

Y ESTE ES EL ERROR QUE ME SALE

------------------------------------------

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos

/taller/web/listar.asp, line 13

------------------------------------------------
si es posible que me arreglen el codigo o cualquier sugerencia,
Se agradece de antemano cualquier ayuda.
Jah Bless. jahman

bakanzipp · #2 (**permalink**) 20/11/2003, 08:54

cambia esto

oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=will;PWD=will;DATABASE=Proyectos
"

Strcon "SELECT * FROM Proyecto"

If oConn.EOF And oConn.BOF Then

por esto

oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=will;PWD=will;DATABASE=Proyectos
"
Set rs = Server.CreateObject ("ADODB.RecordSet")
sSQL = "SELECT * FROM Proyecto"
rs.Open sSQL, oConn, 3, 3

If rs.EOF And rs.BOF Then
..
...
....

con el objeto oConn creas la conexion y con el objeto rs creas y recorres el recordset

saludos

jahman · #3 (**permalink**) 20/11/2003, 21:22

Bueno Gracias por la ayuda pero ahora tengo otro problema ya que soy nuevo con el SQL server 7 no se muy bien como darles los permisop ya que el error que tengo es el siguiente:

---------------------

Proveedor de Microsoft OLE DB para SQL Server error '80040e09'

Permiso SELECT denegado para el objeto 'Proyecto', base de datos 'Proyectos', propietario 'dbo'.

/taller/web/listar.asp, line 15

---------------------

Bueno espero que me puedeas ayudar ya que este es un proyecto para el instituto y desgraciadamente no se utilizar muy bien el SQL Server 7, Muchisimas Gracias por lo anterior

!!, Jah Bless, Jahman

jahman · #4 (**permalink**) 22/11/2003, 11:05

Bueno lo anterior me funciono y cambie de usuarios y al ejecutar me tira un error acontinuacion expongo el codigo de la pagina que lista los registros para ver si encuentran el error y me puedan ayudar.

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=sa;PWD=;DATABASE=Proyectos"

Set rs = Server.CreateObject ("ADODB.RecordSet")
sSQL = "SELECT * FROM Proyecto"
rs.Open sSQL, oConn, 3, 3
If rs.EOF And rs.BOF Then

Response.Write "No hay Registros."
Else
oConn.MoveFirst%>
<h2> Proyectos Registrados.</h2>
<center>

<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>

<td> Código Proyecto</td>

<td> Código Persona</td>

<td> Código Cliente</td>
<td> Nombre Proyecto</td>
<td> Fecha Inicio</td>

<td> Fecha Término</td>

<td> Descripción</td>
</tr>

<%
While Not oConn.EOF %>
<tr>
<td><%Response.Write oConn.Fields ("CodProyecto") %></td>
<td><%Response.Write oConn.Fields ("Persona") %></td>
<td><%Response.Write oConn.Fields ("Cliente") %></td>
<td><%Response.Write oConn.Fields ("NomProyecto") %></td>
<td><%Response.Write oConn.Fields ("FechaInEstimada")%></td>
<td><%Response.Write oConn.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write oConn.Fields ("Descripcion") %></td>
</tr>
<%oConn.MoveNext
Wend
oConn.close
End If
%>
<table> 
</BODY>

y este es el error que me sale

Proveedor de Microsoft OLE DB para SQL Server error '80040e14'

No se encontró el procedimiento almacenado 'MoveFirst'.

/taller/web/listar.asp, line 20

Gracias Jah Bless.

jahman · #5 (**permalink**) 22/11/2003, 17:36

Problema Resuelto, Gracias por tu Ayuda que Jah te Bendiga.

La pagina lista de marravilla.

Jah Bless Jahman

jahman · #6 (**permalink**) 22/11/2003, 17:47

Bueno ahora necesito si alguien me podria ayudar a listar los registros pero pero mediante paginacion si alguien puede editar el siguiente codigo y hacerlo con la paginacion de a 5 registros se lo agradeceria ya que estoy muy aburrido ya que no logro hacer que me salga bueno espero la ayuda gracias

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=sa;PWD=;DATABASE=Proyectos"

Set rs = Server.CreateObject ("ADODB.RecordSet")
sSQL = "SELECT * FROM Proyecto"
rs.Open sSQL, oConn, 3, 3
If rs.EOF And rs.BOF Then

Response.Write "No hay Registros."
Else
rs.MoveFirst%>
<h2> Proyectos Registrados.</h2>
<center>

<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>

<td> Código Proyecto</td>

<td> Código Persona</td>

<td> Código Cliente</td>
<td> Nombre Proyecto</td>
<td> Fecha Inicio</td>

<td> Fecha Término</td>

<td> Descripción</td>
</tr>

<%
While Not rs.EOF %>
<tr>
<td><%Response.Write rs.Fields ("CodProyecto") %></td>
<td><%Response.Write rs.Fields ("Persona") %></td>
<td><%Response.Write rs.Fields ("Cliente") %></td>
<td><%Response.Write rs.Fields ("NomProyecto") %></td>
<td><%Response.Write rs.Fields ("FechaInEstimada")%></td>
<td><%Response.Write rs.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write rs.Fields ("Descripcion") %></td>
</tr>
<%rs.MoveNext
Wend
rs.close
End If
%>
<table> 
</BODY>