资源描述:
《vf调用网络数据库》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、.*----------------------------------------------------------------------------------- *[级别] 通用代码 *[方法] ConnectMDF *[功能] 创建MDF数据库连接 *[入口] * lcDatabase -MDF数据库名称(必选)(例"UFDATA_2003") * lcServer -运行SQLServer实例的服务器名(默认为本机机器名,推荐必须指定) * lcUID
2、 -登录用户名(默认为"sa") * lcPWD -密码(如果已指定用户密码,则必选) *[返回] 正数 -数据文件连接成功,且为连接句柄 * 非正数-数据文件连接不成功 *[作者] Foxer12345 *----------------------------------------------------------------------------------- #DEFINEMDF_DRIVER '{SQLServer}' #DEF
3、INEMDF_NETWORK 'DBMSSOCN' #DEFINESEMICOLON ';' LPARAMETERSlcDatabase,lcServer,lcUID,lcPWD LOCALlcStr,lnRetuvar,lcComputerName lcComputerName=ALLTRIM(LEFT(SYS(0),AT('#',SYS(0))-1)) lcStr='Driver='+MDF_DRIVER+SEMICOLON+; 'Server='+IIF
4、(EMPTY(lcServer),lcComputerName,lcServer)+SEMICOLON+; 'UID='+IIF(EMPTY(lcUID),'sa',lcUID)+SEMICOLON+; 'PWD='+IIF(EMPTY(lcPWD),'',lcPWD)+SEMICOLON+; 'APP=MicrosoftVisualFoxPro'+SEMICOLON+; 'WSID='+lcComputerName+SEMICO
5、LON+; 'DATABASE='+lcDatabase+SEMICOLON lnRetuVar=SQLSTRINGCONNECT(lcStr) RETURNlnRetuVar #UNDEFINEMDF_DRIVER #UNDEFINEMDF_NETWORK #UNDEFINESEMICOLON...*-----------------------------------------------------------------------------------
6、 *[级别] 通用代码 *[方法] ConnectMDF *[功能] 创建MDF数据库连接 *[入口] * lcDatabase -MDF数据库名称(必选)(例"UFDATA_2003") * lcServer -运行SQLServer实例的服务器名(默认为本机机器名,推荐必须指定) * lcUID -登录用户名(默认为"sa") * lcPWD -密码(如果已指定用户密码,则必选) *[返回] 正数 -数据文件连接成功,且为连接句
7、柄 * 非正数-数据文件连接不成功 *[作者] Foxer12345 *----------------------------------------------------------------------------------- #DEFINEMDF_DRIVER '{SQLServer}' #DEFINEMDF_NETWORK 'DBMSSOCN' #DEFINESEMICOLON ';' LPARAMETERSlcDatabase,lcServe
8、r,lcUID,lcPWD LOCALlcStr,lnRetuvar,lcComputerName lcComputerName=ALLTRIM(LEFT(SYS(0),AT('#',SYS(0))-1)) lcStr='Driver='+MDF_DRIVER+SEMICOLON+; 'Server='+