acceso a MySQL con vbScript en ASP

[killer_beaner]

Que tal buena tarde primero mas que nada saludos soy nuevo en la comuidad y queria ver quien me podria ayudar se los agradeceria mucho

************************************************** ***********************************************

TENGO UNA BASE DE DATOS CON MySQL DONDE ME CONECTO CON LA FUNCION: oConex Session(nom_dba"),EJECUTO UN QUERY PARA EXTRAER cuenta y nombre, ME DESPLIEGA LA CUENTA PERO EL NOMBRE ME SALE EL SIGUIENTE ERROR: Expected end of statement

No entiendo porque el campo rs(0) que es VARCHAR en MySql si lo muestra, el otro campo rs(1) que tambien es VARCHAR me sale el error antes mencionado (Expected end of statement)


rs(0)="100-000-000" *******************Este si lo muestra
rs(1)="JUAN PEREZ SANCHEZ" ************Este sale el error

Estoy usando VBscript segun funcion anexa.

<!--#include file="./db_utils.asp"-->

<SCRIPT TYPE="text/vbscript" LANGUAGE="VBScript">
<!--

<%
oConex Session("nom_dba")
ret=sql_send("SELECT cuenta, nombre FROM cont01 ORDER BY cuenta")
%>

nCTAS = <%=nrows%>
Parent.Frames("right1").Document.Forms("cuentas"). Item("catalogo").Length = nCTAS
nREGS=0
nXXX=0
<%Do Until rs.Eof%>
If nXXX<5 Then
MsgBox "<%=rs(0)%> : <%=rs(1)%>"
End If
nXXX = nXXX + 1
sCTA = "<%=rs(0)%> : ERROR EN CAMPO-NOMBRE CTA"
Parent.Frames("right1").Document.Forms("cuentas"). Item("catalogo").Options(nREGS).Text=sCTA
nREGS=nREGS+1
<%
rs.MoveNext
Loop%>

-->
</SCRIPT>

[Adler]

Hola y bienvenido

Lo que te está diciendo es que se esperaba un final de instrucción en la línea que te marca. Por otro lado, ¿donde tienes instanciado el objeto rs?

Suerte

[pbarros]

Hola... bienvenido, cada días nos sumamos más a este gran foro, no?

Yo me estoy recién iniciando con las conexiones a MySQL desde ASP, y no he tenido ningún problema, te voy a enviar mi cadena de conexión (de ejemplo) y cómo recorro los campos.

Conexión:

Código asp:

Set Conn = server.CreateObject("ADODB.Connection")
 
mvarConn_String = "Driver={MySQL ODBC 5.1 Driver}; Server=localhost; Database=Prueba; User=root; Password=; Option=3;"
Conn.Open mvarConn_String
 

Recordset y recorrido:

Código asp:

Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from Categorias_Todos"
RS.Open SQL, Conn
while Not RS.EOF
    response.write RS("Cat_Id") & "<br/>"
    response.write RS("Cat_Nombre") & "<br/>"
    RS.MoveNext
Wend
RS.Close
Set RS = Nothing
 

Es todo exactamente igual como puedes ver, sólo cambia la cadena de conexión. Debes bajar una aplicación para que se pueda conectar mediante ADO.

[killer_beaner]

Iniciado por pbarros

Hola... bienvenido, cada días nos sumamos más a este gran foro, no?

Yo me estoy recién iniciando con las conexiones a MySQL desde ASP, y no he tenido ningún problema, te voy a enviar mi cadena de conexión (de ejemplo) y cómo recorro los campos.

Conexión:

Código asp:

Set Conn = server.CreateObject("ADODB.Connection")
 
mvarConn_String = "Driver={MySQL ODBC 5.1 Driver}; Server=localhost; Database=Prueba; User=root; Password=; Option=3;"
Conn.Open mvarConn_String
 

Recordset y recorrido:

Código asp:

Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from Categorias_Todos"
RS.Open SQL, Conn
while Not RS.EOF
    response.write RS("Cat_Id") & "<br/>"
    response.write RS("Cat_Nombre") & "<br/>"
    RS.MoveNext
Wend
RS.Close
Set RS = Nothing
 

Es todo exactamente igual como puedes ver, sólo cambia la cadena de conexión. Debes bajar una aplicación para que se pueda conectar mediante ADO.

De ante mano gracias por sus comentarios pero, no resuelve mi pregunta. Siento que este es un "BUG" de ASP.

el objeto recordset (rs) y la conexion a la base de datos estan definidos en una sub rutina mencionada anteriormente llamada (oConex "base de datos"), todo esto incluye las instrucciones antes mencionadas.

El problema es que dentro de una pagina ASP tengo codigo VBScript en el cual quiero pasar el valor de una variable de ASP a VBScipt.

EJ.

< SCRIPT TYPE="text/vbscript" language=VBScript"

<!--

<%
*** aqui genero la conexion a la BD y el RS
ejecuto el siguente query: "select campo1, campo2 from tabla"
%>

<% du until rs.eof%>

msgbox "<%=rs("campo1")%>" 'campo sin espacios OK
msgbox "<%=rs("campo2")%>" 'campo con espacios ERROR

<%rs.movenext
loop%>
-->
</script>

NOTA: si el campo1 no contiene espacios en blanco esta ok, si el campo2 es extraido y contiene espacios en blanco como un nombre, sale el ERROR: unexpected end of statement.

hay que recordar que estoy pasando una variable de ASP <%variable%> a una variable dentro de vbscript.

espero que Dios los ilumine por que ya le busque de diferentes maneras, de antemano gracias por sus comentarios

[AlZuwaga]

¿El ERROR: unexpected end of statement te lo da IIS o te lo da IE? Me refiero a si es un error de ASP o de VBScript cliente.

Por otro lado, intentá hacer un <%=replace(rs("campo2"), " ", "_")%> a ver qué ocurre.

[killer_beaner]

Iniciado por AlZuwaga

¿El ERROR: unexpected end of statement te lo da IIS o te lo da IE? Me refiero a si es un error de ASP o de VBScript cliente.

Por otro lado, intentá hacer un <%=replace(rs("campo2"), " ", "_")%> a ver qué ocurre.

creo que es un error de IIS vbscript cliente, tu solucion ya la hice pero tampoco resulta cuando viene de un campo de bd, siento que debe ser alguna configuracion del juego de caracteres de la bd.

la solucion que me das si funciona con variables alfanumericas en memoria pero no resulta con datos extraidos de una bd.

gracias por tu respuesta y espero seguir buscando la solucion.

Se me estan cayendo las pelotas no se que hacer