SQLSTRINGCONNECT( ) (Función)
Establece una conexión con un origen de datos a través de una cadena de conexión.
SQLSTRINGCONNECT([cConnectString])
Valores devueltos
Numeric
Parámetros
cConnectString
Especifica la cadena de origen de datos que necesitan algunos controladores ODBC. Visual FoxPro pasa la cadena de conexión al controlador ODBC. Para obtener más información acerca de las cadenas de conexión a un origen de datos, consulte la documentación del controlador ODBC.Si se ejecuta SQLSTRINGCONNECT( ) sin cConnectString, aparecerá el cuadro de diálogo Orígenes de datos SQL, que permite elegir un origen de datos.
Observaciones
SQLSTRINGCONNECT( ) devuelve un identificador numérico positivo distinto de cero si conecta con el origen de datos. Almacene este identificador en una variable de memoria y utilice la variable en llamadas de función posteriores en las que se necesite un identificador de conexión.
Ejemplo
En el ejemplo siguiente se supone que hay un origen de datos ODBC disponible llamado MyFoxSQLNT; el Id. de usuario para el origen de datos es "sa" y la contraseña es "FOXPRO". Se ejecuta SQLSTRINGCONNECT( ) y el valor devuelto se almacena en una variable llamada gnConnHandle.
Si se conecta correctamente con el origen de datos, SQLSTRINGCONNECT( ) devuelve un número positivo, se muestra un cuadro de diálogo y se usa SQLDISCONNECT( ) para desconectarse del origen de datos.
Si no puede conectarse con el origen de datos, SQLSTRINGCONNECT( ) devuelve un número negativo y se muestra un mensaje.
STORE SQLSTRINGCONNECT('dsn=MyFoxSQLNT;uid=sa;pwd=FOXPRO')
TO gnConnHandle
IF gnConnHandle < 0
= MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error')
ELSE
= MESSAGEBOX('Connection made', 48, 'SQL Connect Message')
= SQLDISCONNECT(gnConnHandle)
ENDIF
Los siguientes ejemplos muestran la forma de utilizar el comando SQLStringConnect sin un Nombre de origen de datos (DSN).
lcDSNLess="driver = SQL Server;server=your_server;uid=sa;pwd=sa_pw"
–O bien–
lcDSNLess="driver = {SQL Server};server=your_server;uid=sa;pwd=sa_pw"
–O bien–
lcDSNLess="DRIVER = {SQL Server};" ;
+ "SERVER=your_server;" ;
+ "UID=your_server_userid;" ;
+ "PWD=your_server_pw;" ;
+ "DATABASE=PUBS;" ;
+ "WSID=your machine name or userid;" ;
+ "APP=MicroX(R) Sample App"
lnConnHandle=sqlstringconnect(m.lcDSNLess)