Conexion de CGI a SQL Server
Publicado: Jue Dic 10, 2009 2:58 pm
Buenos Días por aca en mi pais.
Estoy haciendo pruebas desarrollando un CGI, hasta el momento lo he probado
usando IIS y Apache server mostrando una pequeña leyenda al estilo "HOLA".
Adicionalmente, he hecho pruebas haciendo una conexion a una base de datos
SQL Server para leer cierta informacion de una tabla, pero tengo un
problema. Si la conexion la hago desde un programa en windows este me
funciona correctamente; pero si la hago por medio del CGI esta se queda
esperando y me termina dando error de tiempo de espera.
Ya esta habilitado en el servidor permitir las conexiones remotas, incluso
he agregado en el grupo de administrado del servidor de sql server la pc
donde esta instalado el IIS. He probado el CGi en ambos servidores WEB.
Alguien me podria dar luz en que estoy fallando ?
Adjunto parte del codigo.
Saludos
//---------------------------------------------------------- ---------------------------------------------------------
Public ccSConnect := "Provider=SQLNCLI.1;Persist Security Info=False;User
ID=sa;Initial Catalog=SharePoint_Datos;Data Source=DYNAMICS;password=sa123"
WITH Object aAdo := TAdoDataSource():New()
:cConnect:= ccSconnect
:nMode := adModeReadWrite
:nConntimeout := 120000
:lConnected := .t.
End
aData := aAdo:Query( "SELECT * FROM CASOS.USUARIOS WHERE
IDUSUARIO='"+LTRIM(RTRIM(ccUsuario))+"'")
adata:Open()
If adata:Reccount() >0
IF cRecAccess:RecordCount() > 0
cNombre := aData:aFields[2]:Value
cVence := aData:aFields[6]:Value
cPasstbl := aData:aFields[3]:Value //Decrypt(
rtrim(ltrim(aData:aFields[3]:Value)) ,'disal')
cStatus := aData:aFields[4]:Value
cMail := aData:aFields[5]:Value
endif
Endif
aData:Close()
Estoy haciendo pruebas desarrollando un CGI, hasta el momento lo he probado
usando IIS y Apache server mostrando una pequeña leyenda al estilo "HOLA".
Adicionalmente, he hecho pruebas haciendo una conexion a una base de datos
SQL Server para leer cierta informacion de una tabla, pero tengo un
problema. Si la conexion la hago desde un programa en windows este me
funciona correctamente; pero si la hago por medio del CGI esta se queda
esperando y me termina dando error de tiempo de espera.
Ya esta habilitado en el servidor permitir las conexiones remotas, incluso
he agregado en el grupo de administrado del servidor de sql server la pc
donde esta instalado el IIS. He probado el CGi en ambos servidores WEB.
Alguien me podria dar luz en que estoy fallando ?
Adjunto parte del codigo.
Saludos
//---------------------------------------------------------- ---------------------------------------------------------
Public ccSConnect := "Provider=SQLNCLI.1;Persist Security Info=False;User
ID=sa;Initial Catalog=SharePoint_Datos;Data Source=DYNAMICS;password=sa123"
WITH Object aAdo := TAdoDataSource():New()
:cConnect:= ccSconnect
:nMode := adModeReadWrite
:nConntimeout := 120000
:lConnected := .t.
End
aData := aAdo:Query( "SELECT * FROM CASOS.USUARIOS WHERE
IDUSUARIO='"+LTRIM(RTRIM(ccUsuario))+"'")
adata:Open()
If adata:Reccount() >0
IF cRecAccess:RecordCount() > 0
cNombre := aData:aFields[2]:Value
cVence := aData:aFields[6]:Value
cPasstbl := aData:aFields[3]:Value //Decrypt(
rtrim(ltrim(aData:aFields[3]:Value)) ,'disal')
cStatus := aData:aFields[4]:Value
cMail := aData:aFields[5]:Value
endif
Endif
aData:Close()