请帮我看一下我的ＳＱＬ连接代码，它提示　未连接到数据服务器,退出　，谢谢 If File('wjgl.dbc') =.T. &&先判断是不是数据库文件已存在 SET SAFETY OFF CLOSE DATABASES &&此处为了测试期不用重复关闭编译器所以得关掉数据库先 DELETE DATABASE wjgl &&同上,是为了清空环境,因为是远程数据库,不是本地表,大胆的删掉它 SET SAFETY ON ENDIF

Create Database wjgl Open Database wjgl &&将以前的独占方式去掉了 *SQL连接的用户名与密码 MY_USERID="sa" &&SQL的用户名 MY_PASSWORD="navy" && SQL的用户密码 MY_DATASOURCE="navy" && 要连接SQL SERVER服务器的数据库名字 ********创建远程数据连接 handle=SQLConnect(MY_DATASOURCE,MY_USERID,MY_PASSWORD) If handle<0 Messagebox("未连接到数据服务器,退出！ ",0+48+0,"警告") Close All Data Retu Endif sqldisconnect(handle) Set Database To "wjgla" **********建立“远程连接” If Indbc('远程数据',"CONNECTION" )=.F. Create Connection "远程数据" Datasource &MY_DATASOURCE Userid &MY_USERID Password &MY_PASSWORD Endif