Conexion SQL server 2005

480 views
Skip to first unread message

orlin

unread,
Dec 1, 2010, 10:43:57 AM12/1/10
to Comunidad de Visual Foxpro en Español
Hola a Todos.
Nuevamente necesito de su ayuda, y quiero agradecer por toda la ayuda
brindada,
me ha sido de mucha ayuda.

Tengo un equipo Nombre C5 con XP sp3 ahi tengo SQL Server 2005 y
FoxPro 9.0,
Aqui tengo mis aplicaciones en C:\System. la carpeta esta compartida.

Pero tengo otro equipo tambien con XP sp3 pero no tengo nada mas
instalado, desde el
ejecuto mis aplicaciones. desde una conexcion a Red a C5. creo un
aceeso directo
a un exe ej: Z:\PAPELERIA\papeleria.exe

Tengo el Siguiente codigoo de Ejemplo.
LOCAL lcServidor,lcUsuario,lcClave
lcServidor = "C5"
lcUsuario = "sa"
lcClave = "123"
lcDb = "Invpapr"

oConn = createobject('ADODB.Connection')
cConnString="Provider=SQLOLEDB.1;Persist Security Info=False;User
ID="+ALLTRIM(lcUsuario )+";Pwd="+ALLTRIM(lcClave)+";Initial
Catalog="+ALLTRIM(lcDb)+";Data Source="+ALLTRIM(lcServidor)
oConn.Open(cConnString)
oRS = CREATEOBJECT("ADODB.Recordset")
oRS.ActiveConnection = oConn
oCA=CREATEOBJECT("CursorAdapter")
oCA.DataSourceType = "ADO"
oCA.DataSource = oRS
oCA.MapBinary = .T.
oCA.MapVarchar = .T.
oCA.SelectCmd = "select * from accesorios" && ejemplo
IF !oCA.CursorFill()
LOCAL laError
DIMENSION laError[1]
AERROR(laError)
MESSAGEBOX(laError[2])
ELSE
********** lo "capturo" en un cursor para manipularlo en modo local
loAlias=ALIAS()
cMacro1="SELECT * FROM "+loAlias+" INTO CURSOR cTemp readwrite"
&cMacro1
Thisform.grid1.RecordSource="cTemp"
Thisform.grid1.AutoFit()
Thisform.grid1.Refresh
ENDIF
*****************************************************************
Desde C5 donde tengo FoxPro y Sql se conecta correctamente y muestra
los Datos,
pero desde el otro equipo no se conecta y me da el siguiente Error

Codigo de Excepcion OLE IDispatch 0 de Microsoft OLE DB Provider SQL
Server:
[BDNETLIB] ConectionOpen (Connet()). No exste el servidor SQL Server o
se ha
denegado el acceso al Mismo.

Si pueden ayudarme Gracias.


Miguel Antúnez

unread,
Dec 1, 2010, 11:03:15 AM12/1/10
to publice...@googlegroups.com
abre el puerto tcp 1433 y udp 1434 en el firewall de windows

ademas activa el tcp/ip en la configuracion del sql server.
--
Miguel Angel Antúnez Camones
Especialista en SQL Server

mant...@frenosa.com.pe
mant...@gmail.com
miguel_...@msn.com
Cel. 997914428

Microsoft Active Professional
Membresía FY10-04-0745

Pedro Orlando Cardoza Padilla

unread,
Dec 1, 2010, 11:41:07 AM12/1/10
to publice...@googlegroups.com
Gracias Miguel,
Para configurar el TCP/IP en Sql debo Abrir el
Administrador de configuración de SQL Server
enque parte de SQL esta este administrador.


Pedro Orlando Cardoza Padilla

unread,
Dec 1, 2010, 12:23:14 PM12/1/10
to publice...@googlegroups.com
HOLA MIGUEL
MUCHAS GRACIAS, YA RESOLVI EL PROBLEMA AHORA SI PUEDO CONECTAR A MI
BASE EN SQL SERVER.

SALUDOS.

Miguel Antúnez

unread,
Dec 1, 2010, 12:34:44 PM12/1/10
to publice...@googlegroups.com
si esta en ingles busca
SQL Server Configuration Manager
en español 
administrador de configuración del sql server
esta dentro del menú inicio.
Reply all
Reply to author
Forward
0 new messages