orlin
unread,Dec 1, 2010, 10:43:57 AM12/1/10Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
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.