Como conectar vfp6 a Sql2000 Server
Estimado amigo tengo un aplicación en Vfp6 que se conectaba hasta hace unos días a través de OBDC (winXp) al Sql Server 2000 pero de un momento a otro ya no se conecta mi programa y he utilizado estos comandos que cargan, antes de entrar a la pantalla de acceso al sistema :
STORE SQLCONNECT('ALMACEN', 'SA',BASE2007') TO Xpunta2
IF Xpunta2 <= 0
= MESSAGEBOX('NO SE PUEDE HACER LA CONEXIÓN', 16, 'SQL Connect Error')
ELSE
= SQLEXEC(Xpunta2,"SELECT * FROM Acc_Alm","Acc_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Areas","Are_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Ingreso","Ing_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Qingreso","Tmp_Ing")
= SQLEXEC(Xpunta2,"SELECT * FROM Kardex","Kar_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Saldos","Sld_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Salida","Sal_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Qsalida","Tmp_Sal")
Endif
Y luego me sale que no encuentra el alias ACC_ALM . Dime amigo que hago (ya consulte con mis compañeros y me dicen que ellos no han tocado nada en el servidor.
STORE SQLCONNECT('ALMACEN', 'SA',BASE2007') TO Xpunta2
IF Xpunta2 <= 0
= MESSAGEBOX('NO SE PUEDE HACER LA CONEXIÓN', 16, 'SQL Connect Error')
ELSE
= SQLEXEC(Xpunta2,"SELECT * FROM Acc_Alm","Acc_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Areas","Are_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Ingreso","Ing_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Qingreso","Tmp_Ing")
= SQLEXEC(Xpunta2,"SELECT * FROM Kardex","Kar_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Saldos","Sld_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Salida","Sal_Alm")
= SQLEXEC(Xpunta2,"SELECT * FROM Qsalida","Tmp_Sal")
Endif
Y luego me sale que no encuentra el alias ACC_ALM . Dime amigo que hago (ya consulte con mis compañeros y me dicen que ellos no han tocado nada en el servidor.
2 respuestas
Respuesta de brownsea
1
Respuesta de h_agustin
1