vf调用网络数据库.docVIP

*-----------------------------------------------------------------------------------??* [级别]??通用代码??* [方法]??ConnectMDF??* [功能]??创建MDF数据库连接??* [入口]??*????lcDatabase??- MDF数据库名称(必选)(例UFDATA_2003)??*????lcServer????- 运行SQL Server实例的服务器名(默认为本机机器名, 推荐必须指定)??*????lcUID???????- 登录用户名(默认为sa)??*????lcPWD???????- 密码(如果已指定用户密码, 则必选)??* [返回]??正数???- 数据文件连接成功, 且为连接句柄??*?????????非正数 - 数据文件连接不成功??* [作者]??Foxer12345??*-----------------------------------------------------------------------------------????#DEFINE MDF_DRIVER???{SQL Server}????#DEFINE MDF_NETWORK??DBMSSOCN????#DEFINE SEMICOLON???;????LPARAMETERS lcDatabase, lcServer, lcUID, lcPWD????LOCAL lcStr, lnRetuvar, lcComputerName????lcComputerName = ALLTRIM(LEFT(SYS(0), AT(#, SYS(0)) - 1))????lcStr = Driver= + MDF_DRIVER + SEMICOLON +;????????????Server= + IIF(EMPTY(lcServer), lcComputerName, lcServer) + SEMICOLON +;????????????UID= + IIF(EMPTY(lcUID), sa, lcUID) + SEMICOLON +;????????????PWD= + IIF(EMPTY(lcPWD), , lcPWD) + SEMICOLON +;????????????APP=Microsoft Visual FoxPro + SEMICOLON +;????????????WSID= + lcComputerName + SEMICOLON +;????????????DATABASE= + lcDatabase + SEMICOLON ????lnRetuVar = SQLSTRINGCONNECT(lcStr)????RETURN lnRetuVar????#UNDEFINE MDF_DRIVER????#UNDEFINE MDF_NETWORK????#UNDEFINE SEMICOLON 一、基本准备1、安装SQL个人版+SP4；2、安装VFP9+SP1+汉化。（看自己中意汉化否）3、会做一点单机版的项目。二、准备实施1、启动SQL企业管理器，选择当前服务器，新建一数据库，命名?cj，在该库下建一表，字段为???字段名???类型???宽度???编号??????C??????6???姓名??????C??????8???职务??????C??????10???股室??????C??????10???电话??????C　　　11???将编号设为主键，保存，命名为?人员表；?2、建一ODBC，指向人员表。（ODBC所在位置：开始-设置-控制面板-管理工具-数据源ODBC）?添加。?选择SQL，完成。?输入想要的名称、描述，服务器要选对，下一步?输入用户ID和密码，下一下。?更改数据库，下一步。?完成。?测试一下数据源。?至此，准备工作已完成。三、实施过程1、新建一项目，名自己定。2、新建一程序，用来连接服务器，并将服务器上的数据下载到客户端。（因为用到的表比较小，可以整个下载下来，如果表比较大，最好是有选择地下载需要用到的记录）程序思路如下：先定义一个连接串nhandle，并使用用户名密码连接相应的数据库，测试连接是否成功。如果成功，则下载表到本地临时表（好象是视图？弄不明白，先当它是表），命名为gh，如果不成功，则提示连接失败，并提示再次连接否。连接成功并下载好表后，设置表与服务器表的相应更新。（此设置可以为另一种形式，等做好这种形式后可试试另一种）程序如下：??public?nhand