Hot Fox: [usuarios_fox] RE: Visual fox con MSDE o Sql server express

quarta-feira, 14 de março de 2012

[usuarios_fox] RE: Visual fox con MSDE o Sql server express

Alex, te envío esta rutina.

*****
* MyConnect()
* Devuelve la cadena de conexión a diferentes motores SQL
*****
PROCEDURE MYCONNECT
LPARAMETERS lcDatabase
LOCAL lcString
DO CASE
CASE u_tipo=1 && MSDE
lcString = "Driver={SQL
Server};Server="+u_host+";Database="+lcDatabase+";Uid="+u_user+";Pwd="+u_pass+";"
CASE u_tipo=2 && SQLSERVER 2005 EXPRESS
lcString = "Driver={SQL Server Native Client
10.0};Server="+u_host+";Database="+lcDatabase+";Uid="+u_user+";Pwd="+u_pass+";"
CASE u_tipo=3 && SQLITE
lcDatabase = lcDatabase + ".db3"
lcString = "Driver={SQLite3 ODBC
Driver};Database="+lcDatabase+";Longnames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
CASE u_tipo=4 && MYSQL 5.0
lcDatabase = IIF(lcDatabase="master","mysql",lcDatabase)
lcString = "Driver={MySQL ODBC 3.51
Driver};Server="+u_host+";Port=3306;Option=3;Stmt=;Database="+lcDatabase+";Uid="+u_user+";Pwd="+u_pass+";"
CASE u_tipo=5 && POSTGRESQL
lcDatabase = IIF(lcDatabase="master","postgres",lcDatabase)
lcString = "Driver={PostgreSQL
ANSI};Server="+u_host+";Port=5432;Database="+lcDatabase+";Uid="+u_user+";Pwd="+u_pass+";"
OTHERWISE
lcString = "Driver={SQL
Server};Server="+u_host+";Database="+lcDatabase+";Uid="+u_user+";Pwd="+u_pass+";"
ENDCASE
SQLSETPROP(0,"DISPLOGIN",3)
RETURN SQLSTRINGCONNECT(lcString)
ENDPROC

Tanto MSDE como SQL SERVER 2005 funcionan espectacular, pero si tus bases
de datos no pasaran los 2GB te recomiendo lejos MSDE porque se instala muy
rapido y ocupa muy pocos recursos del equipo y es super estable.

Tengo empresas de mas de 10 años con MSDE y empresas nuevas con MSDE y cero
drama, con mas de 10 equipos conectados en LAN.

--
*Alfonso Ramirez Diaz*
Gestpyme - Informatica y Gestión
Fono: 055-833233
Movil: 09-82239821

[Se han eliminado los trozos de este mensaje que no contenían texto]