Re: cambiar de access a SQL

En realidad sería así:

<%
Dim oConn,strSQL, objRS , strBD

''''' aqui el cambio
strBD = "provider=sqloledb;"
strBD = strBD & "Data Source=8.162.0.1;"
strBD = strBD & "Initial Catalog=bimbocom;"
strBD = strBD & "User Id=osito;"
strBD = strBD & "Password3123"
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strBD
''''' fin del cambio

strSQL = "SELECT * FROM botones1"
Set objRS = oConn.Execute(strSQL)
x=1
while (not objRS.Eof)
Response.Write "&nombre"&x&"=" & objRS("nombre") & "&funciona"&x&"=" &
objRS("funciona") & "&ubicación"&x&"=" & objRS("ubicación")
objRS.MoveNext
x=x+1
wend
Response.write "&finaldeudas="&x-2
oConn.Close

set objRS = nothing
set oConn = nothing
%>


Salu2
MV


"ositobimbo" wrote in message
news:
Mostrar la cita

Entonces me dices que quedaria de esta forma suponiendo que esos son

los valores que debe llevar la cadena de conexion?
Mostrar la cita

<%
Dim oConn,strSQL, objRS
Set oConn = "provider=sqloledb;" &_ "Data Source =8.162.0.1;" &_

"Initial Catalog = bimbocom; " &_ "User Id = osito;" &_ "Password= 123123"
Mostrar la cita

strSQL = "SELECT * FROM botones1"
Set objRS = oConn.Execute(strSQL)
x=1
while (not objRS.Eof)
Response.Write "&nombre"&x&"=" & objRS("nombre") & "&funciona"&x&"=" &

objRS("funciona") & "&ubicación"&x&"=" & objRS("ubicación")
Mostrar la cita

objRS.MoveNext
x=x+1
wend
Response.write "&finaldeudas="&x-2
oConn.Close

set objRS = nothing
set oConn = nothing
%>


ositobimbo


Ver este tema: http://www.softwaremix.net/viewtopic-444347.html

Enviado desde http://www.softwaremix.net