Hola a todos, tengo una aplicacion hecha en asp, que conectaba a una web tambien en asp. Ahora la web es en php con mysql, y me falta solo enlazar una cosa, pero necesito saber si esta funcion me vale o debo modificarla, ya que conectarme a mysql desde asp ya me conecta, pero no me graba los registros... y la base de datos de la web tiene exactamente la misma estructura que la web que estaba en asp.
Estas son las funciones :
Código HTML:
function darconexion(cadenaConexion)
Dim cnn
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open cadenaConexion
set darconexion = cnn
end function
function EjecutarSpRs(byval nombresp ,byref valores(),byref cnn)
set EjecutarSpRs= spRs( nombreSp,valores,cnn)
' call InsertarLog( nombresp, valores,cnn)
end function
function EjecutarSp(byval nombre ,byref valores(), byref cnn)
' call InsertarLog( nombre, valores,cnn)
ejecutarSp = spEjecutar( nombre, valores, cnn )
end function
function spEjecutar(byval nombre ,byref valores(), byref cnn)
dim cmd
dim i
set cmd = server.CreateObject("adodb.command")
cmd.CommandText = nombre
cmd.CommandType = 4 'SP
cmd.ActiveConnection = cnn
cmd.parameters.refresh
cmd.Execute , valores
for i=0 to cmd.Parameters.count -1
if (cmd.Parameters(i).Direction = 2) OR (cmd.Parameters(i).Direction = 3) OR (cmd.Parameters(i).Direction = 4) THEN
valores(i) = cmd.Parameters (i).Value
end if
next
spEjecutar= valores(0)
end function
function spRs(byval nombresp ,byref valores(),byref cnn)
dim cmd
set cmd = server.CreateObject("adodb.command")
'cmd.ConnectionTimeOut = 0
'cmd.CommandTimeout = 0 'contra timeout
cmd.CommandText = nombresp
cmd.CommandType = 4 'SP
cmd.ActiveConnection = cnn
cmd.parameters.refresh
set spRs= cmd.Execute (, valores )
end function
Y luego en el archivo donde graba los datos en la bd de la web:
Código HTML:
'1############################################################################
Dim gblCnn2 ' para la web
dim gblConnectionString2 ' para la web
gblConnectionString2 = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=++++; DATABASE=+++; UID=+++; PASSWORD=++++; OPTION=3"
On Error Resume Next
set gblCnn2 = darConexion(gblConnectionString2)
if err.number<>0 then
response.write("El sitio web no es accesible")
else
'actualizando cursos
if isarray(arrResultados1) then
'eliminar la tabla actual de cursos
Set RS2 = Server.CreateObject("ADODB.RecordSet")
RS2.Open "delete From cursos", gblCnn2
Dim k, par(16)
Dim rsPaginas2
k=0
while k <= regTotales1
'response.write(arrResultados1(0,k))
par(1) = arrResultados1(0,k)'idcurso
par(2) = arrResultados1(3,k)'idplanificacion
par(3) = arrResultados1(6,k)'HorasCurso
par(4) = arrResultados1(7,k)'NumeroAlumnos
par(5) = arrResultados1(1,k)'Accion
par(6) = arrResultados1(15,k)'IdEspecialidad
par(7) = arrResultados1(4,k)'FechaInicio
par(8) = arrResultados1(5,k)'FechaFinal
par(9) = arrResultados1(13,k)'modalidad a Observaciones
par(10) = arrResultados1(2,k)'CodigoExpediente
par(11) = arrResultados1(11,k)'objetivos
par(12) = arrResultados1(12,k)'contenido
if (arrResultados1(9,k)) then
par(13) = -1'trabaja
else
if not(arrResultados1(9,k)) then
par(13) = 0'no trabaja
end if
end if
par(14) = 1'activo
par(15) = arrResultados1(16,k)'municipio
par(16) = arrResultados1(17,k)'idCol
set rsPaginas2 = ejecutarsprs("CursosWeb__Ins", par, gblcnn2 )
k=k+1
wend
sel2="Se han actualizado "®Totales1&" cursos"
end if
end if
On Error goto 0
end if
Cuando actualizo para grabar los cursos en la bd de la web, no me da ningun error, me dice que se han actualizado....
Y no me sale el error de la conexion, asi que doy por echo que conectarse se conecta.....
Espero que alguien pueda revisar si las funciones son compatibles para el cambio que he hecho , ya que antes las dos bases de datos eran sql server y ahora la de la web es mysql...